CAD中的特定计算？

xljz

如何实现对选定的单行或多行文字进行相加或其它计算？

phoenixdjq

(defun c:qq (/ ss n totn adn)
  (prompt "\n拾取数字求和: ")
  (setq ss (ssget '((0 . "TEXT")))
 n  0
  )
  (setq totn 0.0)
  (while (setq en (ssname ss n))
    (setq adn (atof (cdr (assoc 1 (entget en)))))
    (setq totn (+ totn adn))
    (setq n (1+ n))
  )
  (princ (strcat "\n数字和: "))
  (princ totn)
  (princ)
)

 

这是一个求和的，是我从网上下载的

看满足你的要求吗