分解所有无名块，取消块

戏男

如题，把所有的无名的块分解爆炸了，不做成块，但有名的块保留

ssyfeng

试试这个行不行：
已更新炸开无名块并删除无名块

(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)
)

戏男

ssyfeng 发表于 2023-8-2 10:27
试试这个行不行：

(defun c:tt (/ n ss)

原始的图块还保留的啊，不保留原始图块，只是炸开无名块

ssyfeng

重新更新了，你试一下

戏男

ssyfeng 发表于 2023-8-2 11:30
重新更新了，你试一下

可以了，谢谢

jkop

路过，收藏，刚好有需要。