x선 리습 쓰는데요 이 리습만 쓰면 오스냅이 자꾸 임의로 몇개 꺼지네요
오스넵 제가 지정해놓데로 그대로 변하지 않고 쓸수 있게 수정좀해주세요
부탁드려요~
(defun C:X1 ()
(setvar “cmdecho” 0)
(setq osn1 (getvar “osmode”) clay1 (getvar “clayer”))
(graphscr)
(IF (= (tblsearch “LAYER” “XLINE”) nil) (command “layer” “m” “XLINE” “c” “RED” “XLINE” “lt” “continuous” “” “”) )
(command “layer” “s” “XLINE” “”)
(PRINC “n삽입점을 지정 하세요!! : “)
(setq XP1 0)
(while (/= XP1 NIL)
(setvar “osmode” 37)
(setq XP1 (getpoint))
(setvar “osmode” 0)
(IF (/= XP1 NIL)
(COMMAND “XLINE” “H” XP1 “”)
)
)
(setvar “osmode” osn1) (command “layer” “s” clay1 “”) ; 오스넵 모드와 레이어 복귀
(setvar “cmdecho” 1)
(prin1)
)
(defun C:X2 ()
(setvar “cmdecho” 0)
(setq osn1 (getvar “osmode”) clay1 (getvar “clayer”))
(graphscr)
(IF (= (tblsearch “LAYER” “XLINE”) nil) (command “layer” “m” “XLINE” “c” “RED” “XLINE” “lt” “continuous” “” “”) )
(command “layer” “s” “XLINE” “”)
(PRINC “n삽입점을 지정 하세요!! : “)
(setq XP1 0)
(while (/= XP1 NIL)
(setvar “osmode” 37)
(setq XP1 (getpoint))
(setvar “osmode” 0)
(IF (/= XP1 NIL)
(COMMAND “XLINE” “V” XP1 “”)
)
)
(setvar “osmode” osn1) (command “layer” “s” clay1 “”) ; 오스넵 모드와 레이어 복귀
(setvar “cmdecho” 1)
(prin1)
)
(defun C:X3 ()
(setvar “cmdecho” 0)
(setq osn1 (getvar “osmode”) clay1 (getvar “clayer”))
(graphscr)
(IF (= (tblsearch “LAYER” “XLINE”) nil) (command “layer” “m” “XLINE” “c” “RED” “XLINE” “lt” “continuous” “” “”) )
(command “layer” “s” “XLINE” “”)
(PRINC “n삽입점을 지정 하세요!! : “)
(setq XP1 0)
(while (/= XP1 NIL)
(setvar “osmode” 37)
(setq XP1 (getpoint))
(setvar “osmode” 0)
(IF (/= XP1 NIL)
(PROGN
(COMMAND “XLINE” “V” XP1 “”)
(COMMAND “XLINE” “H” XP1 “”)
)
)
)
(setvar “osmode” osn1) (command “layer” “s” clay1 “”) ; 오스넵 모드와 레이어 복귀
(setvar “cmdecho” 1)
(prin1)
)
(defun C:X4 ()
(setvar “cmdecho” 0)
(setq osn1 (getvar “osmode”) clay1 (getvar “clayer”))
(graphscr)
(PRINC “n삭제할 XLINE 을 선택 하세요!! : “)
(setvar “osmode” 0)
(setq ssg (ssget (list (cons 0 “XLINE”))))
(COMMAND “ERASE” SSG “”)
(setvar “osmode” osn1) (command “layer” “s” clay1 “”) ; 오스넵 모드와 레이어 복귀
(setvar “cmdecho” 1)
(prin1)
)
(defun C:X5 ()
(setvar “cmdecho” 0)
(setq osn1 (getvar “osmode”) clay1 (getvar “clayer”))
(graphscr)
(setq ssg (ssget “ALL” (list (cons 0 “XLINE”))))
(COMMAND “ERASE” SSG “”)
(PRINC “n모든 XLINE 을 삭제 하였습니다. “)
(setvar “osmode” osn1) (command “layer” “s” clay1 “”) ; 오스넵 모드와 레이어 복귀
(setvar “cmdecho” 1)
(prin1)
)
(defun C:Xboundary ()
(setvar “cmdecho” 0)
(setq osn1 (getvar “osmode”) clay1 (getvar “clayer”))
(graphscr)
(PRINC “n경계를 설정할 기준 선을 선택 하세요!! : “)
(setq ssg (ssget))
(PRINC “n경계를 설정할 기준 포인터을 선택 하세요!! : “)
(setq XP1 (getpoint))
(COMMAND “boundary” “A” “B” “N” SSG “” “” XP1 “”)
(setvar “osmode” osn1) (command “layer” “s” clay1 “”) ; 오스넵 모드와 레이어 복귀
(setvar “cmdecho” 1)
(prin1)
)