xline 켜자동변환
페이지 정보
작성자 iiiaha 댓글 4건 조회 325회 작성일 24-04-03 08:17본문
오류 내용 (오류 메세지 등) :
안녕하세요 이자더님.
xline 을 자동으로 레이어 분류해주는 기능을
xisetup 내 켜자동변환을 사용하여 쓰고 있습니다.
정상적으로 잘 작동되는데요,
매번 xline -> v or h 누르는게 번거로워
_onekey.lsp 파일에
(defun c:xz() ;; xline ver
(command "xline" "ver")
(princ)
)
(defun c:xc() ;; xline hor
(command "xline" "hor")
(princ)
)
을 작성하여 저장하고 사용했더니,
이렇게 하니까 켜자동변환이
xline 두 번째 클릭부터는 적용 안되더군요.
혹시 이에 대한 원인을 하실지 하여 문의드립니다.
미리감사드립니다.
좋은 하루 되세요!
댓글목록
이자더님의 댓글
이자더 작성일
안녕하세요..
xisetup 에 xline 이 아닌.. 만들어 놓으신 xz , xc 를 넣어 보시겠습니까?
iiiaha님의 댓글
iiiaha 작성일네 xz xc 를 넣어도 마찬가지 현상이 발생합니다..
이자더님의 댓글
이자더 작성일
그럼 아래 것을 사용해 보세요.
(defun c:xv ( / v)
(xi:StartS)
(xi:StartUndo xi_acDoc)
(while (setq p (getpoint "\n>> 점 지정: "))
(setq v '(0.0 1.0 0.0))
(entmake
(list
'(0 . "XLINE")
;'(8 . "XLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbXline")
(cons 10 (trans p 1 0))
(cons 11 (trans v 1 0 t))
)
)
)
(xi:EndUndo xi_acDoc)
(xi:EndS)
)
(defun c:xh ( / v)
(xi:StartS)
(xi:StartUndo xi_acDoc)
(while (setq p (getpoint "\n>> 점 지정: "))
(setq v '(1.0 0.0 0.0))
(entmake
(list
'(0 . "XLINE")
;'(8 . "XLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbXline")
(cons 10 (trans p 1 0))
(cons 11 (trans v 1 0 t))
)
)
)
(xi:EndUndo xi_acDoc)
(xi:EndS)
)
iiiaha님의 댓글
iiiaha 작성일
감사합니다... 잘 작동합니다.
감사히 쓰겠습니다.