明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 667|回复: 19

[源码] (EB)超级炸弹(炸块/嵌套块)

  [复制链接]
发表于 2021-11-19 16:33 | 显示全部楼层 |阅读模式
超级炸弹,刚刚出炉,能炸开块与嵌套块,不管嵌套多少层,榨干为止!!!!


炸完后的图元以选择集的方式进行亮显!!!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

评分

参与人数 3明经币 +3 收起 理由
gaics + 1 很给力!
USER2128 + 1 赞一个!
bssurvey + 1 赞一个!

查看全部评分

发表于 2021-11-19 17:15 | 显示全部楼层
讚喔,感謝fangmin723大分享
发表于 2021-11-19 18:36 | 显示全部楼层
非常感谢楼主分享好程序
发表于 2021-11-19 20:29 | 显示全部楼层
本帖最后由 wzg356 于 2021-11-19 20:30 编辑

差很多
这样有偏见?
(defun explo(en / e e0)
        (setq e(entlast))       
        (command "_explode" en)
        (while (setq e(entnext e))               
                (setq e0(cdr(assoc 0 (entget e))))
                (if(wcmatch e0 "INSERT,DIMENSION" )(explo e))
        )       
)

评分

参与人数 2明经币 +2 收起 理由
bssurvey + 1 赞一个!
gaics + 1 很给力!

查看全部评分

发表于 2021-11-20 07:08 来自手机 | 显示全部楼层
wzg356 发表于 2021-11-19 20:29
差很多
这样有偏见?
(defun explo(en / e e0)

好精简啊这个
发表于 2021-11-20 08:00 | 显示全部楼层
非常感謝樓主分享好程序
发表于 2021-11-20 08:42 | 显示全部楼层
感謝你分享這麼方便的工具
謝謝!
发表于 2021-11-20 11:32 | 显示全部楼层
本帖最后由 gaics 于 2021-11-20 12:20 编辑

(defun c:xk (/ qf ss err *error* retune)
  (defun retune        (msg)
    (setvar "Qaflags" qf)
    (setq *error* err)
    (princ msg)
  )
  (setq err *error*)
  (setq *error* retune)
  (setq qf (getvar "Qaflags"))
  (command "_undo" "be")
  (setvar "Qaflags" 1)
  (if (setq ss (ssget '((0 . "INSERT"))))
    (while (setq ss (ssget "_P" '((0 . "INSERT"))))
      (command ".explode" ss "")
    )
  )
  (setvar "Qaflags" qf)
  (command "_undo" "e")
  (princ)
)

论速度,我觉得还是这个快一些
 楼主| 发表于 2021-11-20 12:16 | 显示全部楼层
本帖最后由 fangmin723 于 2021-11-20 12:17 编辑
gaics 发表于 2021-11-20 11:32
(defun c:xk (/ Q ss)
  (setq Q (getvar "QAFLAGS"))
  (command "_undo" "be")

在我的中望2014的CAD上测试,只炸开了前3个,其他的都失败了

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2021-11-20 12:22 | 显示全部楼层
fangmin723 发表于 2021-11-20 12:16
在我的中望2014的CAD上测试,只炸开了前3个,其他的都失败了

(setvar "Qaflags" 1)
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2020 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2021-12-2 08:09 , Processed in 0.512787 second(s), 32 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表