通信人家园

标题: CAD数字求和又一例(好久没来求下载权) [查看完整版帖子] [打印本页]

时间: 2013-12-4 10:01

作者: wxmys 标题: CAD数字求和又一例(好久没来求下载权)

(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)
)

通信人家园 (https://www.txrjy.com/)