CAD如何把所有数字加起来

小动物925

AutoCAD主要功能是绘bai制图纸，要把数字文字加du起来的话，使用小zhi插件就可dao以办到。
代码如zhuan下：
1
2
3
4
5
6
7
8
9
10
11
12
13
14
(defun C:tes ( / #t1 #t2 &k1 &kw1)
(if (setq &kw1 (ssget '((0 . "text,mtext") (1 . "~*[~+-.0-9]*" ))) );只是选择数字的文字shu
  (progn
   (setq #t1 0)
   (while (setq &k1 (ssname &kw1 0))
    (setq &kw1 (ssdel &k1 &kw1))
    (if (setq #t2 (atof (cdr (assoc 1 (entget &k1))))) (setq #t1 (+ #t1 #t2)) )
   )
   (princ "\n数字和是:")
   (princ #t1);命令行显示
  )
)
(princ)
);复制到记事本,以【.lsp】为后缀命名,打开CAD，autolisp加载，命令【TES】