分解所有无名块，取消块

admin

分解所有无名块，取消块

1. (defun c:tt (/ qf ss)
2.   (setvar "CMDECHO" 0)
3.   (vl-cmdf "undo" "be")
4.   (setq qf (getvar "qaflags"))
5.   (setvar "qaflags" 1)
6.   (setq ss (ssget "x" '((0 . "INSERT") (2 . "`*U*"))))
7.   (vl-cmdf "EXPLODE" ss "")
8.   (vl-cmdf "-purge" "b" "*U*" "n")
9.   (setvar "qaflags" qf)
10.   (vl-cmdf "undo" "e")
11.   (princ)
12. )

复制代码