cad线段总和lisp_cad lisp-求线段总长度

来源： 明经CAD社区 　作(译)者： 龙龙仔

上传者： mccad 　上传时间：2002年9月23日

;;;-----------------------------------------------------

;;;计算线加总长度

;;;-----------------------------------------------------

(defun C:LENOF (/ 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-&gtvla-object (ssname SS N)))

(setq TLEN (vlax-curve-getdistatparam

CURVE

(vlax-curve-getendparam CURVE)

)

)

(setq SUMLEN (+ SUMLEN TLEN))

(setq N (1+ N))

)

(print (strcat "总长度: " (rtos SUMLEN 2 5)))

(princ)

)