올만에 질문이라는걸 해보내염..^^
제가 리습이라는걸 하나도 몰라서..쿡쿡–쪽팔려..
이걸 어케 사영하고
이걸 사영하면 호에 길이를 알수있는 명령어는 무었이며
서포트 방에다 깔고 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)
)
support 디렉토리에 leng.lsp파일로 저장하신후,
command 명령어란에 leng 하고 타이핑하시면
select object라고 뜰겁니다.
그러면 말그대로 object를 select 하세요.
그리구 enter키를 치시면 그 호나 라인에 대한 길이가 나옵니다.
만약에 록태님께서 단지 호나 라인. 원에 대해서 길이만 알고
싶으시다면 cad 명령중에 list 라는 명령어 아시죠?
그걸로 하시면 간단하게 길이를 구할수 있답니다.
그럼 수고 하십시오.
..