分解所有无名块，取消块
分解所有无名块，取消块(defun c:tt (/ qf ss)
(setvar "CMDECHO" 0)
(vl-cmdf "undo" "be")
(setq qf (getvar "qaflags"))
(setvar "qaflags" 1)
(setq ss (ssget "x" '((0 . "INSERT") (2 . "`*U*"))))
(vl-cmdf "EXPLODE" ss "")
(vl-cmdf "-purge" "b" "*U*" "n")
(setvar "qaflags" qf)
(vl-cmdf "undo" "e")
(princ)
)
页:
[1]