通信人家园

标题: CAD如何把所有数字加起来 [查看完整版帖子] [打印本页]

时间: 2021-2-18 16:52

作者: 小动物925 标题: CAD如何把所有数字加起来

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】

时间: 2021-2-18 19:10

作者: 李硕1994

这是那种语言了

时间: 2021-9-7 15:38

作者: ym314

这需要那个版本的CAD支持

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