Auto Lisp 快速上手應用小程式 - E02

Erase Screen

清除圖面範圍中的圖元 . 如果是在 ZOOM ALL 的範圍 , 程式會清除所有在極限範圍內的圖元 ; 如果有圖元位於極限範圍之外 , 則不會被清除 .

Note: 如果要回復剛被清除的圖元 , 可 以下 OOPS 指令救回來 .

(defun c:erasescr (/ l u)

(setq l (getvar "limmin"))

(setq u (getvar "limmax"))

(command "erase" "w" l u "")

(princ)

)

---