黔北邱引 发表于 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

非常感谢楼主！
页: 1 2 3 4 5 [6] 7
查看完整版本: 一键炸开CAD图里的所有块