能不能一次测量若干条互不相连的线段的长度之和？

mingvictor

兄弟在制图中！会遇到以下情况：有若干根互不相连的线条，要测量它们的长度之和！兄弟我只得一根一根的用LI命令测量!然后手边在放一个计算器，记录每条线条的长度，最后算出它们的长度！能不能用LISP命令一次点选所有线条，然后计算出它们的长度之和！

ZZXXQQ

能！坛子里有好多现成程序。搜下看看。

jingweirensh

有很多,自己艘,如果找补到,告诉我.

linhui12

试试下面这个:

(defun c:test(/ curve tlen ss n sumlen)
(vl-load-com)
(setq sumlen 0)
(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 sumlen (+ sumlen tlen))
(setq n (1+ n))
)
(alert (strcat "\n总长度: " (rtos sumlen 2 3) (princ "m")))
(princ)
)