几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量

几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量 (http://www.dimcax.com/hust/index.php)
-   ObjectARX(AutoLISP) (http://www.dimcax.com/hust/forumdisplay.php?f=178)
-   -   cad标注计算求和. (http://www.dimcax.com/hust/showthread.php?t=10544)

yang686526 2009-04-25 07:34 PM

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


所有的时间均为北京时间。 现在的时间是 09:22 AM.