通信人家园

 找回密码
 注册

只需一步,快速开始

短信验证,便捷登录

搜索

军衔等级:

  上等兵

注册:2011-4-6
跳转到指定楼层
1#
发表于 2013-12-4 10:01:42 |只看该作者 |倒序浏览
(defun c:textsum (/ ss n totn x adn)
  (graphscr)       
  (prompt "\n纯数字求和[可点选,可框选,Shift+点选移去误选,复杂文本不会被计算,右键结束]: ")
  (setq ss (ssget '((0 . "*TEXT")(-4 . "<NOT")(1 . "*P*")(-4 . "NOT>")))  ;杆号不会被选择
        n 0
  )
  (setq totn 0.0)
(while (< n (sslength ss))
    (setq en (ssname ss n))
    (setq x (cdr (assoc 1 (entget en)))) ;取出文本内容
     (if (distof x)
         (progn
         ;处理数字文本
         (setq adn (atof x))
         (setq totn (+ totn adn))
         )
     );if
    (setq n (1+ n))
   );while

  (princ (strcat "\n数字之和: "))(princ totn)
  (alert (strcat "数字之和: " (rtos totn 2)))
  (princ)
)

举报本楼

您需要登录后才可以回帖 登录 | 注册 |

版规|手机版|C114 ( 沪ICP备12002291号-1 )|联系我们 |网站地图  

GMT+8, 2025-7-22 05:16 , Processed in 0.096333 second(s), 17 queries , Gzip On.

Copyright © 1999-2025 C114 All Rights Reserved

Discuz Licensed

回顶部