mo 사용시.. 오스냅이 자동으로 꺼져 버리는 형상이 일어 납니다.
여기에서 관련 오스냅 조회 해보니.. 이해가 좀 안돼서요..
리습의 어느 부분을 고쳐야 오스냅이 꺼지는 형상이 없어 지는지요?
;;===========================================================
; MULTIPLE OFFSET (96cho_i)
;;———————————————————–
(defun c:mo(/ myerror OS bl ss pt1 pt2 ang1 d1 d2)
;start — Internal error handler ———-
(defun myerror(S)
(if (/= s “Function cancelled”)(princ (strcat “nError:” s)))
(setvar “blipmode” bl)(setvar “osmode” os)
(setq *error* olderr)(princ) )
(setq olderr *error* *error* myerror)
;end—————————————-
(setvar “cmdecho” 0)(setq os (getvar “osmode”))
(setvar “osmode” 0)
(setq bl (getvar “blipmode”))
(prompt “nCommand: Multi Offset…”)
(setq ss (ssget))
(setq pt1 (getpoint “nBase point->”))
(setq pt2 (getpoint pt1 “nSecond point->”))
(setq ang1 (angle pt1 pt2))
(if (= mod1 nil) (setq mod1 100))
(setq d1 (getdist (strcat
“nEnter Offset Distance <" (rtos mod1 2 0) ">:”)))
(if (= d1 nil) (setq d1 mod1))
(setq mod1 d1)
(while (/= d2 0)
(setq p2 (polar pt1 ang1 d1))
(command “copy” ss “” pt1 p2)
(setq d2 (getdist (strcat
“nEnter Offset Distance <" (rtos mod1 2 0) ">:”)))
(if (= d2 nil) (setq d2 mod1))
(if (/= d2 0) (setq mod1 d2))
(setq d1 (+ d1 d2))
)
(setvar “osmode” os)
(prin1)
)