一键炸开CAD图里的所有块

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

一键炸开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

楼主太好了

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

一键炸开CAD图里的所有块

本帖子中包含更多资源