길이합(LLE) 수정좀…길이합 끝에에 ” 가 붙는데 왜 그런지?

길이합(LLE) 수정좀…길이합 끝에에 ” 가 붙는데 왜 그런지?

막 짜집기 해서 만든건데….어찌 어찌 해서 돌아는 가는데….끝에 따음표가 왜 붙는지?

(defun c:lle ()
(setvar “cmdecho” 0)
(setq ent (ssget ‘((0 . “LINE,CIRCLE,ARC,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE”))))
(setq n 0 dis 0)
(repeat (sslength ent)
(setq ent_l (ssname ent n))
(command “lengthen” ent_l “” “” “”)
(setq dis (+ dis (GETVAR “PERIMETER”)))
(setq n (1+ n))
(setq diss (/ dis 1000))
)
(prompt (strcat “n***** 선택 객체수 = “(rtos n)” 길이합계 = ” (rtos diss 3 3)))
(setq xx (getpoint “n문자 시작점 :”))
(setq yy (getreal “n문자 크기 :”))
(command “text” xx yy “” (strcat “길이(m) :  “(rtos diss 3 3)))
(setvar “cmdecho” 0)
(princ)
)