地美橄榄树 发表于 2020-4-16 14:22:59

一键炸开CAD图里的所有块

一键炸开CAD图里的所有块

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

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自动循环五次分解，基本上可以满足大部分的图纸工作需求，节省不少时间。

Grgogo 发表于 2022-6-28 05:57:17

(defun c:bb(/ *error* ss qf)
(defun *error* (msg)
    (setvar "qaflags" qf)
    (princ msg)
    (princ)
    )
(setq qf (getvar "qaflags"))
(setvar "qaflags" 1)
(princ"\n炸块")
(setq ss (ssget '((0 . "INSERT" ))))
(while (setq ss (ssget "P" '((0 . "INSERT" ))))
(command ".explode" ss ""))
(setvar "qaflags" qf)
(princ)
)


这个怎么样，和你的比起来，哪个更好

刚开始 发表于 2020-4-22 16:39:10

楼主太好了，下载不设任何条件，也有这么多人下载了，竟然没一个回复的。

KMCM_JET 发表于 2020-4-22 18:20:46

谢谢分享

地美橄榄树 发表于 2020-5-12 22:42:33

以前在一个网站上一个好人写给我的，我也没付出啥，怎么能拿着别人的东西来收费呢

孤人旧梦 发表于 2020-5-13 09:23:38

非常感谢楼主

sunny_8848 发表于 2020-5-13 11:17:24

多谢楼主分享，最近有些天河画的图纸，插件不好装，明细栏好难修改，炸开后原有的内容都没有了

yoyoho 发表于 2020-5-13 16:10:06

多谢楼主分享程序!!!!!!

jason_1301 发表于 2020-5-17 10:09:59

感谢楼主无私的奉献

cren1128 发表于 2020-5-19 23:04:26

很不错的插件，收藏了

快乐贝贝 发表于 2020-5-20 08:07:53

楼主太好了
页: [1] 2 3 4 5 6 7
查看完整版本: 一键炸开CAD图里的所有块