안녕하세요 리습 관련해서 질문이 있어서 글 남겨봅니다
현재 오토캐드가 아닌 ZWCAD를 사용하고 있는데
캐드상에 버그 인지는 모르겠는데 무한선을 사용할 경우 레이어를 키고 끄는 과정에서 선택이 제대로 되지 않거나 보이지 않는 현상이 발생하여
무한선 대신 긴 길이의 수평선과 수직선을 그리는 리습을 사용하고 있습니다.
현재 사용하고 있는 리습에서는 선을 하나 그리고 나면 명령어가 끝이 나더군요
무한선 처럼 여러번 클릭을 하고 싶은데 어떻게 하는 건지 몰라서 질문드립니다.
밑에가 해당 리습입니다.
(defun c:XH ()
(graphscr)
(setq pt1 (getpoint “nenter 1st point: “))
(setq pt2 (polar pt1 pi 1000000))
(setq pt3 (polar pt2 (* pi 2) 2000000))
(command “layer” “s” CON “” “”)
(command “line” pt2 pt3 “”)
)
;세로선 그리기
(defun c:XV ()
(graphscr)
(setq pt4 (getpoint “nenter 1st point: “))
(setq pt5 (polar pt4 (* pi 0.5) 1000000))
(setq pt6 (polar pt5 (* pi 1.5) 2000000))
(command “layer” “s” CON “” “”)
(command “line” pt5 pt6 “”)
)
고수님들의 답변 부탁드립니다. 감사합니다
1 답변