[LISP] 옵셋후 삭제 (postid = "6160607489571055640")

;;고캐드, 상큼메론90

(defun c:MO (/ cmd)
     (setq cmd (getvar "cmdecho"))
     (setvar "cmdecho" 0)
     (if (null dist)
         (setq dist 1)
     )
     (setq d (getreal (strcat "\n>> offset 할 거리를 입력하세요 <" (itoa (fix dist)) ">: ")))
     (if (null d)
         (setq d dist)
     )
     (setq e (entsel "\n>> 객체를 선택하세요 :"))
     (prompt "\n>> offset 방향을 클릭하세요 : ")
     (while (null e)
            (setq e (entsel "\n>> 객체를 선택하세요 :"))
            (prompt "\n>> offset 방향을 클릭하세요 : ")
     )
     (while (not (null e))
            (command "offset" d e pause "")
            (command "erase" e "")
            (setq dist (fix d))
            (setq e (entsel "\n>> 계속 작업하려면 객체를 선택, 끝내려면 엔터를 치세요 :"))
            (prompt "\n>> offset 방향을 클릭하세요 : ")
     )
     (setvar "cmdecho" cmd)
     (prin1)
)
(princ "\n\t 선택요소가 옮겨지면서 Offset. 명령어 : MO")
(princ)