查看单个帖子
旧 2009-04-25, 07:34 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 cad标注计算求和.

cad标注计算求和.
www.dimcax.com
cad标注计算求和.
高手们大家好,想求一个能把标注值计算求和的软件,(也就是选择标注尺寸)然后右键可以得出总和.找了很长时间没找到,开发吧,自己也不会,希望得到你的帮助,谢谢.
一位叫"风筝"的高手帮我解决了问题.在这里对他表示祝福!谢谢.
d
怎么解决的啊!分享一下
d
(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)
)
d
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)