첨부된 리습은 전체 라인의 길이를 산출하는 리습입니다.

단위는 당연히 미터(M)로 산출하는 리습이구요..

이걸 인치(Inch)용 도면에서 산출할 수 있도록 변경 하고 싶습니다.

예시로 길이 산출 시

미터일 때 (10m = 10,000mm) 으로 표기가 되지만..

인치(Inch) 일때 (10000mm= 32ft 9.700788in) 이런 식으로 표현이 되었으면 합니다.

변경 작업이 가능 할까요??

새로운 형식의 리습으로 변경도 괜찮습니다.

고수님들의 많은 조언과 관심 부탁드립니다.

감사합니다.

========================== 사용 리습 ===========================

(DEFUN C:qw(/ eg egl n l ne entname entn p1 p2 l2 radi l_ength)
(SETVAR “cmdecho” 0)
(SETQ EG (SSGET))
(SETQ EGL (SSLENGTH EG))
(SETQ N 0)
(setq l 0)
(setq ne 0)
(WHILE (>>>> “)
(if (> egl ne)
(progn
(princ ne)(princ ” of “)(princ egl)
(princ ” objects are measured // “)
)
)
(princ ” Total length is “)
(setq l_ength (rtos (/ l 1000) 2 2))
(prin1 l_ength)
(setq pt (getpoint “nText Point: “))
(setq h (getvar “textsize”))
(prompt “nText Height: “)
(princ H)
(princ ” : “)
(setq z (getdist))
(if z
(setq h z)
)
(command “text”
(setq z pt)
(setq z h)
(setq z 0.0)
(setq z l_ength)
)
(setvar “cmdecho” 1)
(setvar “blipmode” 1)
(princ)
)

===========================================================