안녕하세요 자주 도움을 얻고있는 건축인입니다.
많이 도움을 드려야하는데 받기만해서 문제입니다
바로 본론들어가겠습니다.
XLINE을 긋는 구문인데 작동방식은 CHECK라는 레이어의 유뮤를 체크 – 레이어를 바꾼뒤 – XLINE 원하는만큼 긋는 리습입니다.
문제는 GETPOINT인듯한데요 M2P명령어를 사용하면 첫포인트 둘째포인트를 잡아도 가운데로
찍히지않고 첫번째점/두번째점에 찍히는 문제가 있습니다.
어떤것때문인지 알수없어 질문드립니다.!!!
스냅과 커멘드의 문제가 아닐지…조심스레 생각해봅니다
(defun C:x1 (/ ac ab)
(setvar “cmdecho” 0)
(SETQ AB (GETVAR “CLAYER”))
(if (tblsearch “layer” “CHECK”)
(progn
(SETVAR ‘CLAYER “CHECK”)
(if (= ac nil)
(progn
(while
(SETQ Ac (getpoint))
(COMMAND “xline” “v” ac “”)
)
)
)
)
(progn
(xline)
(SETVAR ‘CLAYER “CHECK”)
(while
(SETQ Ac (getpoint))
(if (/= ac nil)
(COMMAND “xline” “v” ac “”)
)
)
)
)
(princ “n>>>end xline”)
(SETVAR ‘CLAYER AB)
(PRINC)
)
(defun xline ()
(command “-layer” “make” “CHECK” “lt” “continuous” “” “color” “231” “”
“”)
)
m2p를 언제 썼는지를 쓰셔야 문제를 알 수 있지 않을까요???