cad求和问题

2025-05-14 20:15:20

推荐回答（5个）

回答1：

(defun C:1H ( / #k #k1 &k1 &kw i)
 (princ "\n请选择文字及多行文字")
 (setq &kw (ssget '((0 . "TEXT,MTEXT"))))
 (if (/= &kw nil);如果有选择
  (progn;那么
   (setq i 0);设置数值
   (repeat (sslength &kw);进入循环
    (setq &k1 (ssname &kw i));取得一个对象
    (setq #k (atof (cdr (assoc 1 (entget &k1)))));取得文字内容变为数值
    (if (= i 0) (setq #k1 #k) );如果只有一个对象就这个数值#k1
    (if (> i 0) (setq #k1 (+ #k1 #k)) );如果有多个对象就两个数值合并
    (setq i (+ i 1));下一个对象提取
   )
   (princ "\n数字累加等于：<") (princ (rtos #k1 2 5)) (princ ">");命令行显示累计数值
  )
 )
 (princ);结束程序;复制到记事本以（1H.lsp）命名，autoLISP程序加载到AutoCAD，命令为:1H
);AutoCAD只有基础功能，要实现你的要求只有编程来解决

回答2：

可以的话先在EXCEL里求和吧，我觉得CAD没有这个功能

回答3：

你的问题是能够解决的，用cad求和搜索到nbs.zip安装使用

回答4：

这个搞不定，CAD解决不了这个问题。

回答5：

应该还没有这个功能吧