CAD如何把所有数字加起来

2025-05-12 18:30:41

推荐回答（1个）

回答（1）：

AutoCAD主要功能是绘制图纸，要把数字文字加起来的话，使用小插件就可以办到。
代码如下：
(defun C:tes ( / #t1 #t2 &k1 &kw1)
(if (setq &kw1 (ssget '((0 . "text,mtext") (1 . "~*[~+-.0-9]*" ))) );只是选择数字的文字
(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】