[AutoLISP] AutoCAD에서 AutoLisp으로 길이를 구합니다.

길이를 구하는 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