선의 길이 구하고 텍스트로 표기하는 리습 문의

고캐드 질문게시판에 올라와 있는 리습 내용입니다.
라인을 선택하면 길이가 텍스트로 표기되는 리습같아서 복사해서 로드 시켰는데 단축키만 넣으면 캐드 프로그램이 멈춰버립니다. 원인을 알고싶습니다.


(defun c:lp (/ ss en n n1 k tot dis dis1)
(prompt “nCommand: Line Plus…”)
(prompt “n line을 선택-> “)
(setq d_ts (getvar “textsize”)
os (getvar “osmode”)
dlf (getvar “dimlfac”)
)
(setq ht d_ts)

(setq ss (ssget))
(setq n1 (sslength ss))
(setq n n1
k 0
)
(setq tot 0
dis 0
dis1 0
)
(while (<= 1 n)
(setq en (ssname ss k))
(setq stype (cdr (assoc 0 (entget en))))
(if (= stype “LINE”)
(progn
(setq spt (cdr (assoc 10 (entget en))))
(setq ept (cdr (assoc 11 (entget en))))
(setq dis1 (distance spt ept))
(setq dis (/ dis1 1000))
(prin1 dis)

(setq tot (rtos dis 2 2))
(setq p1 spt)
(command “text” “j” “m” p1 ht “0” tot)
(setq n (- n 1))
(setq k (+ k 1))

)
)
))