一键炸开CAD图里的所有块

黔北邱引 · 发表于 2021-6-29 19:42:05

多谢楼主分享

liweitung · 发表于 2021-7-1 08:46:31

先感谢楼主！

sunny_8848 · 发表于 2021-7-5 19:17:11

会弹出一个对话框来，有点点不方便

宁静港湾 · 发表于 2021-7-7 00:09:22

楼主好，加载后的启动命令是什么——怎么操作呀

白色微風1991 · 发表于 2021-7-7 07:39:16

非常感謝樓主

dasha321 · 发表于 2021-7-15 11:06:28

收藏了，谢谢楼主，

1254888410 · 发表于 2021-7-21 22:19:23

(defun c:tt()
(setvar "qaflags" 1)
(command "explode" (ssget "X" '((0 . "INSERT"))) "")
(setvar "qaflags" 0)
(princ)
)
；能加一个循环的话就好了，让程序运行的时候至少分解两到三次，以达到所有图块都能分解的目的。

1254888410 · 发表于 2021-7-21 22:41:12

(defun c:tt()
(setvar "qaflags" 1)
(command "explode" (ssget "X" '((0 . "INSERT"))) "")
(setq ss (ssget "p" ))
(command "explode" ss "")
(setq ss (ssget "p" ))
(command "explode" ss "")
(setq ss (ssget "p" ))
(command "explode" ss "")
(setq ss (ssget "p" ))
(command "explode" ss "")
(setvar "qaflags" 0)
(princ"\n***已自动循环五次分解命令***")
(princ)
)
；这个是更改过后的循环，点击卡快捷键TT自动循环五次分解，基本上可以满足大部分的图纸工作需求，节省不少时间。

1254888410 · 发表于 2021-7-21 22:51:11

还有一种简便点的循环
(defun c:tt1()
(setvar "qaflags" 1)
(command "explode" (ssget "X" '((0 . "INSERT"))) "")
(setq ss (ssget "p" ))
(command "explode" ss "")
(repeat 5
(setq ss (ssget "p" ))
(command "explode" ss ""))
(setvar "qaflags" 0)
(princ"\n***已自动循环五次分解命令***")
(princ)
)

zklyhx · 发表于 2021-9-2 21:31:46

非常感谢楼主！

账号		自动登录	找回密码
密码			注册