오토캐드] 무한 수직, 수평선 긋기 리습

 도면 작성시 수직선, 수평선을 자주 그리게 되는데요, 여러분들은 "l"(line) 으로 그리시나요? 저는 "xv" , "xh" 라는 리습 명령어로 간편하게 그립니다.

 

 바로 보시겠습니다. 명령어 "xv" 를 누르면 무한 수직선을 그리는데 연속으로 여러번 찍어서 그릴 수 있습니다.

 

"xh"는 무한 수평선입니다. xv와 마찬가지입니다.

 

리습입니다. 

(defun c:xv()       ;; xline ver
  (command "xline" "ver")
  (princ)
)
 
(defun c:xh()       ;; xline hor
  (command "xline" "hor")
  (princ)
)

너무 간단한가요? ^^

 

긁어서 메모장에 붙인 후 파일명을 xvh.lsp 로 만들고 appload 로딩하면 됩니다. 

 

활용해 보시기 바랍니다~