한선으로 그려진 선의 길이를 알고 싶어요.. ㅠㅠㅠ

;; Line,Polyline,LwPolyline의 길이를 계산..
(defun c:q()

(setq len 0
totlen 0
i 0
front 0
end 0
)

(princ “n 화면에서 Polyline,LWPolyline,Line을 선택하세요..”
)

(setq ssgetList (list
(cons -4 “ (cons 0 “POLYLINE”)
;(-4 . “OR>”)
;(-4 . “ (cons 0 “LWPOLYLINE”)
;(-4 . “OR>”)
;(-4 . “ (cons 0 “LINE”)
(cons -4 “OR>”)
)
)

(setq
ss (ssget ssgetList

)
)
(command “change” ss “” “p” “c” “blue” “”)
(setq sslen (sslength ss))
(setq i 0)

(repeat sslen

(setq ename (ssname ss i))
(setq i (1+ i))

(setq ents (entget ename))
(setq ent0 (cdr (assoc 0 ents)))

(cond

((= ent0 “LINE”)

(setq ent10 (cdr (assoc 10 ents)))
(setq ent11 (cdr (assoc 11 ents)))
(setq totlen (distance ent10 ent11))

)

((= ent0 “POLYLINE”)

(setq ename (entnext ename))
(setq ents (entget ename))
(setq ent0 (cdr (assoc 0 ents)))
(setq front (cdr (assoc 10 ents)))

(setq ename (entnext ename))
(setq ents (entget ename))
(setq ent0 (cdr (assoc 0 ents)))

(while (/= ent0 “SEQEND”)

(setq end (cdr (assoc 10 ents)))

(setq totlen (+ totlen (distance front end)))

(setq front end)

(setq ename (entnext ename))
(setq ents (entget ename))
(setq ent0 (cdr (assoc 0 ents)))

)

)

((= ent0 “LWPOLYLINE”)

;; 그룹 10을 뽑아서 리스트로만든다..
(setq list10 (list))
(setq ent-one (car ents))
(while (/= ents nil)
(if (= (car ent-one) 10)
(setq list10 (append list10 (list (cdr ent-one))))
)
(setq ents (cdr ents))
(setq ent-one (car ents))
)

(setq ii 0)
(repeat (1- (length list10))
(setq front (nth ii list10))
(setq end (nth (1+ ii) list10))
(setq totlen (+ totlen (distance front end)))
(setq ii (1+ ii))
)

)

(t
)

)

)

(princ ” nn *** 총 합계 ==> “)
(prin1 totlen)

(princ)
)

(princ “nn 선형데이타의 길이를 구함. ==> 명령: q “)