[求助]所有图元总周长的程式
 

[求助]所有图元总周长的程式
www.dimcax.com
[求助]所有图元总周长的程式可以计算所有图元的总周长，要是可以出图表就更ok！
d
完全可以实现,可将详图发至ljttjl@ tom.com
楼上的搂了多少业务啊，说来听听
d
(defun c:tt(/ ss sum i ena sum)
(vl-load-com)
(setq ss (ssget '((0 . "*line"))))
(setq sum 0 i -1)
(repeat (sslength ss)
(setq i (+ i 1))
(setq val (vlax-ename->vla-object (ssname ss i))
eparam (vlax-curve-getendparam val )
)
(setq sum (+ (vlax-curve-getdistatparam val eparam ) sum))
)
(setvar "dimzin" 8)
(princ (strcat "总周长长度是" (rtos sum 2 3)))
(princ)
)
d