取多条多段线长的lps

tll1923

<p>取得多条多段线的长 按选取顺序写到一个文件里</p><p>自己试了半天也没编成 555</p><p>求高手帮忙  多谢了！ </p>

tll1923

(defun c:tlen(/ curve tlen ss n f)
(vl-load-com)
(setq f (open (getfiled "" "" "" 1) "w"))
(setq ss (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
(setq n 0)
(repeat (sslength ss)
(setq curve (vlax-ename->vla-object (ssname ss n)))
(setq tlen (vlax-curve-getdistatparam curve
(vlax-curve-getendparam curve)
)
)
(setq tlen (strcat (rtos tlen 2 5) "\n"))
(princ tlen f)
(setq n (1+ n))
)
(close f)
(princ)
)

自己编出来了！哈哈

sailorcwx

老毛就说了，自己动手，丰衣足食

ljttjl

联系：ljttjl@ tom.com