고수님들
아래리습은 미세하게 틀려있는 선을 바로잡는 리습인데 이리습은 선을 일일이 클릭해야되는데 여러선을 한번에 다중으로 가능하게 만들게금 수정가능할까요?
(defun c:vhal(/ ot os e1 p1)
(setq ot (getvar “orthomode”) os (getvar “osmode”))
(setvar “orthomode” 1)(setvar “osmode” 0)
(prompt “nCommand: vertical & horizontal Line…”)
(setq e1 (entsel “nPick V&H line–>”))
(setq p1 (osnap (cadr e1) “END”))
(command “change” e1 “” p1)
(command “list” e1 “”)
(graphscr)
(prin1 “수직<수평> 라인으로 변환됨”)
(setvar “orthomode” ot)
(setvar “osmode” os)
(prin1)
);end of de