안녕하세요. 아래 문구의 리습을 사용하면 온스냅이 초기화됩니다..
어떻게 해결해야 될지 문의드립니다. .
(defun c:C1(/ ent cen rad val pnt1 pnt2 pnt3 pnt4 )
(setvar “cmdecho” 0)
(setvar “osmode” 0)
(setvar “orthomode” 1)
(setq ent (entget (car (entsel “n>> Select circle : “))))
(setq cen (cdr (assoc 10 ent)))
(setq rad (cdr (assoc 40 ent)))
(setq val (* rad 1.20))
(setq pnt1 (list (- (car cen) val) (cadr cen)))
(setq pnt2 (list (+ (car cen) val) (cadr cen)))
(setq pnt3 (list (car cen) (+ (cadr cen) val)))
(setq pnt4 (list (car cen) (- (cadr cen) val)))
(entmake (list (cons 0 “LINE”) (cons 8 “C”) (cons 10 pnt1) (cons 11 pnt2)))
(entmake (list (cons 0 “LINE”) (cons 8 “C”) (cons 10 pnt3) (cons 11 pnt4)))
(princ)
)
(setvar “osmode” 0) 앞에 세미콜론 넣으시던가 아예 지워버리세요
간단하게 해결 됐네요. .감사합니다