라인 더하기 리습인데 오류수정부탁합니다.

라인 더하기 리습이에요 텍스트에 결과를 바뀌어 출력하게 해놓았는데 이상하게 pline은 적용이 안되는군요
그리고 2006을 쓰는데 2002에서는 되지도 않고요 수정이나 자문 구합니다.
(defun c:lp(/ ss en n n1 k tot dis dis1 tot1)
(prompt “nCommand: Line Plus…”)
(prompt “n더하고자하는 line을 선택-> “)
(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 1.0))(prin1 dis)
))(terpri)
(if (= stype “POLYLINE”)(progn
(command “area” “e” en)
(setq dis1 (getvar “perimeter”))
(setq dis (/ dis1 1.0))
))
(setq tot (+ tot dis))
(setq n (- n 1))
(setq k (+ k 1))
)(terpri)(prompt “총”)(prin1 n1)(prompt “개의 라인…”)
(setq tot1 (rtos tot 2 3))
(setq bb (getpoint “n 글씨선택:”))
(command “change” bb “” “” “” “” “” “” tot1)
(prompt “전체길이 : “)(prin1 tot)(prompt ” mm”)
(prin1)
)