안녕하세요
캐드 2014버전 ->2017캐드로 변경하면서 잘되던 오스냅이 오류가 나더니 오스냅이 자동 초기화 됩니다
아래 리습 내용 보시고 오류를 잡을 수 있는 방법이 있으시면 꼭 좀 부탁드립니다
;=======================<< #25 FREEZE1 >>=====================================
(DEFUN C:AF (/ es eg as)
(setvar “cmdecho” 0)
(SETQ ES (CAR (ENTSEL “>>Pick no freeze..?”))
EG (ENTGET ES)
AS (CDR (ASSOC 8 EG))
);SETQ
(COMMAND “LAYER” “s” AS “off” “*” “” “”)
)
;========================<< #26 FREEZE2 >>====================================
(DEFUN C:FF ()
(SETQ ES (CAR (ENTSEL “>>PICK FREEZE..?”))
EG (ENTGET ES)
AS (CDR (ASSOC 8 EG))
);SETQ
(COMMAND “LAYER” “off” AS “”)
)
;======================<< #27 ALL THAW >>=====================================
(Defun C:AT ()
(setvar “cmdecho” 0)
(command “LAYER” “on” “*” “”))
;=======================<< #28 MULTI BREAK >>=================================
(defun c:mv (/ osm sel1 b b1 pnt1) ;polyline break
(setvar “cmdecho” 0)
(setq osm (getvar “OSMODE”))
(setvar “OSMODE” 32)
(graphscr)
(while
(setq pnt1 (getpoint “n*Pick break point ::” ))
(command “break” pnt1 “f” pnt1 pnt1)
)
(command “osnap” “” )
(prin1)
)
;========================<< END OF PROGRAM >>=================================