길이를 구하는 Lisp입니다. Pline, Line, arc, circle 모두 가능합니다. (defun c:getlength() (vl-load-com) (setq x_object (entsel)) (setq x_object (vlax-Ename->Vla-Object (car x_object))) (setq x_length (vlax-curve-getdistatparam x_object (vlax-curve-getendparam x_object ))) (princ (rtos x_length))(alert (strcat "길이 = " (rtos x_length)))(princ) ) 결과: 명령: GETLENGTH 객체 선택: 1695.5227
