이 리습 어케 사영해염(호길이재는거)

올만에 질문이라는걸 해보내염..^^
제가 리습이라는걸 하나도 몰라서..쿡쿡–쪽팔려..

이걸 어케 사영하고
이걸 사영하면 호에 길이를 알수있는 명령어는 무었이며

서포트 방에다 깔고 appload만 시키면 되나염..

밑에 님이 갈쳐준 홈에서 리습을 받아 왔는데
당체 뭔줄알아야지…
모두들 수고염..

(defun c:leng()
(setq e (ssget))
(setq el (entget (ssname e 0)))
(setq typ (cdr (assoc 0 el)))

(cond ((equal typ "ARC")

(setq s-ang (cdr (assoc 50 el)))
(setq e-ang (cdr (assoc 51 el)))
(setq rad (cdr (assoc 40 el)))

(if (> s-ang e-ang) (setq e-ang (+ e-ang (* pi 2))))

(setq le (* (/ (- e-ang s-ang) (* pi 2)) (* 2 pi rad)))
)

((equal typ "LINE")
(setq sp (cdr (assoc 10 el)))
(setq ep (cdr (assoc 11 el)))
(setq le (distance sp ep))
)
)

(setq le (rtos le 2 3))
(setq te (strcat "TYPE: " typ "t Length: " le))
(alert te)
)