戏男 发表于 2023-8-2 09:21:02

分解所有无名块，取消块

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

ssyfeng 发表于 2023-8-2 09:21:03

本帖最后由 ssyfeng 于 2023-8-2 11:30 编辑

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

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

戏男 发表于 2023-8-2 10:53:46

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

(defun c:tt (/ n ss)


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

ssyfeng 发表于 2023-8-2 11:30:32

重新更新了，你试一下

戏男 发表于 2023-8-2 11:39:32

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

可以了，谢谢:handshake

jkop 发表于 2024-2-17 16:44:18

路过，收藏，刚好有需要。
页: [1]
查看完整版本: 分解所有无名块，取消块