CAD标注计算求和.

ddhulian

高手们大家好,想求一个能把标注值计算求和的软件,(也就是选择标注尺寸)然后右键可以得出总和.找了很长时间没找到,开发吧,自己也不会,希望得到你的帮助,谢谢.QQ:307995197

ddhulian

一位叫"风筝"的高手帮我解决了问题.在这里对他表示祝福!谢谢.

DAMATIME

怎么解决的啊!分享一下

caoyin

(defun c:tt (/ ss i num)
  (setq num 0)
  (if (setq ss (ssget'((0 . "DIMENSION")(-4 . "<OR")(70 . 32)(70 . 33)(-4 . "OR>"))))
    (repeat (setq i (sslength ss))
      (setq num (+ num (cdr (assoc 42 (entget (ssname ss (setq i (1- i))))))))
    )
  )
  (princ num)
  (princ)
)