xline 켜자동변환 > 질문 및 오류신고

본문 바로가기

질문 및 오류신고

xline 켜자동변환

페이지 정보

작성자 iiiaha 댓글 4건 조회 2,005회 작성일 24-04-03 08:17

본문

캐드 프로그램 종류 및 버전 : 오토캐드 2025
오류 내용 (오류 메세지 등) :

안녕하세요 이자더님.
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 작성일

감사합니다... 잘 작동합니다.
감사히 쓰겠습니다.


XICAD, Copyright © izzarder.com All rights reserved.