ddhulian 发表于 2008-12-8 22:09:00

CAD标注计算求和.

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

ddhulian 发表于 2008-12-9 16:55:00

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

DAMATIME 发表于 2008-12-10 23:44:00

<p>怎么解决的啊!分享一下</p>

caoyin 发表于 2008-12-11 09:01:00

(defun c:tt (/ ss i num)<br/>&nbsp; (setq num 0)<br/>&nbsp; (if (setq ss (ssget'((0 . "DIMENSION")(-4 . "&lt;OR")(70 . 32)(70 . 33)(-4 . "OR&gt;"))))<br/>&nbsp;&nbsp;&nbsp; (repeat (setq i (sslength ss))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq num (+ num (cdr (assoc 42 (entget (ssname ss (setq i (1- i))))))))<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>&nbsp; (princ num)<br/>&nbsp; (princ)<br/>)
页: [1]
查看完整版本: CAD标注计算求和.