我能加上一堆数字吗

Jessica28 · 发表于 2022-7-5 23:41:45

我正在运行AutoCad MEP 2014。我有一些画在他们自己的独立层上有一堆数字。这些数字是用单个文本创建的。它们是用常规文本命令输入的。数百个数字。有没有办法让Cad帮我把所有的数字加起来，然后给我一个总数？

杰西

ReMark · 发表于 2022-7-6 00:16:03

我认为您正在寻找一个自定义lisp例程，它将添加文本。我很确定我看过一两本，但我没有一本。不过，一个简单的搜索应该很容易找到一个。

试一试这个例行程序的形式成员李Mac。

添加文本。lsp

加载程序后，在命令行键入addtxt启动程序。

SLW210 · 发表于 2022-7-6 00:35:38

我将你的帖子转移到AutoLISP、Visual LISP和DCL论坛。

如果上述解决方案不能满足您的需要，也许您可以发布一个示例。图纸。

Tharwat · 发表于 2022-7-6 00:57:52

试试这个。

copy

(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)
)

[编程交流] 我能加上一堆数字吗

发表回复

精选推荐