리습 수정 요청드립니다.<br>리습 수정 요청드립니다.

헤드와 헤드 사이 배관연결리습인데 가로는되는데 세로로할경우 헤드심벌과 겹처버립니다.
수정좀 부탁드릴꼐요.

(defun int4()
    (setq dwg_scale (getvar "dimscale"))
    (setq olderr *error*
                    *error* gerr)
    (setq _cmdecho (getvar "cmdecho"))
    (setq _layer (getvar "clayer"))
    (setq _osmode (getvar "osmode"))
    (setq _ortho (getvar "orthomode"))
    (setvar "cmdecho" 0)
    (setq _osmode (getvar "osmode"))
    (setq _poi (getpoint "n —> 원하시는 위치를 알려주세요: "))
    (setvar "osmode" 0)
    (command "insert" DWGN _poi DWG_scale DWG_scale)
    (setvar "osmode" _osmode)
  );;; defun end

블록이 나타나고 각도를 맞추고
블록 이 깨져야되는데
블록이 깨지는게 안되네요 ㅠㅜㅜ
수정부탁드립니다.