我能加上一堆数字吗
我正在运行AutoCad MEP 2014。我有一些画在他们自己的独立层上有一堆数字。这些数字是用单个文本创建的。它们是用常规文本命令输入的。数百个数字。有没有办法让Cad帮我把所有的数字加起来，然后给我一个总数？杰西 我认为您正在寻找一个自定义lisp例程，它将添加文本。我很确定我看过一两本，但我没有一本。不过，一个简单的搜索应该很容易找到一个。
试一试这个例行程序的形式成员李Mac。
添加文本。lsp
加载程序后，在命令行键入addtxt启动程序。 我将你的帖子转移到AutoLISP、Visual LISP和DCL论坛。
如果上述解决方案不能满足您的需要，也许您可以发布一个示例。图纸。 试试这个。
(defun c:GiveTotal (/ ss l)
;; Tharwat 21. jan. 2014 ;;
(if (setq ss (ssget '((0 . "TEXT"))))
(progn ((lambda (u / sn)
(while (setq sn (ssname ss (setq u (1+ u))))
(if (numberp (setq n (read (cdr (assoc 1 (entget sn))))))
(setq l (cons n l))
)
)
)
-1
)
(if l
(alert (strcat "Total < " (rtos (apply '+ l) 2) " > :"))
)
)
)
(princ)
)
页:
[1]