论坛 › 每日插件 › 增强“炸开”工具

Lispboy 发表于 2017-8-15 22:21:46

增强“炸开”工具

见 http://bbs.xdcad.net/thread-711560-1-1.html 帖子的申请。


增强了下，可以批量处理。裁剪块只生成显示范围内，带属性图快保留属性文字内容



(defun c:XDTB_XExplode (/ base blk box data e ents mat ss x)
(if (and
        (xdrx_initssget "\n选取要炸开的图块<退出>:")
        (setq ss (xdrx_ssget '((0 . "INSERT"))))
      )
    (progn
      (mapcar
        '(lambda (e)
           (cond
             ((xdrx_insert_isclip e)
              (setq mat (xdrx_matrix_block2wcs e))
              (setq data (xdrx_insert_getclipinfo e))
              (setq box (cdr (assoc "BoundBox" data)))
              (setq base (car box))
              (setq blk (xdrx_getpropertyvalue e "blocktablerecord"))
              (setq box        (xdrx_points_transform
                          box
                          (xdrx_matrix_inverse
                          (xdrx_matrix_block2wcs e)
                          )
                        )
              )
              (setq ents (xdrx_block_getentities t (cadr blk) "C" box))
              (mapcar
                '(lambda (x)
                   (xdrx_entity_transformedcopy x mat)
               )
                ents
              )
              (xdrx_entity_delete e)
             )             
             (t
              (xdrx_entity_explode e)
             )
           )
       )
        (xdrx_pickset->ents ss)
      )
    )
)
(princ)
)

lw5297590 发表于 2017-8-21 08:55:30

回复学习学习

yanchao316 发表于 2017-8-29 10:20:25

好像很实用的东西

lzy1979 发表于 2017-8-30 08:32:02

好东西饿喜色小i

liulisheng 发表于 2017-9-2 14:27:48

{:1_12:}{:1_12:}{:1_12:}{:1_12:}{:1_12:}{:1_12:}

xzxw2015001 发表于 2017-9-24 15:07:55

{:1_12:}{:1_12:}{:1_12:}{:1_12:}强大

sicky111 发表于 2017-9-28 00:05:12

支持一下。

lijunfa12345 发表于 2017-10-2 19:00:54

{:1_9:}{:1_5:}{:1_1:}

tht-0 发表于 2018-9-21 16:15:42

谢谢分享！我的豆豆啊！{:1_7:}

dyjwyqz5221 发表于 2019-9-16 12:12:05

看看，到底怎么炸开的，我用xdrx_entity_explode经常炸没了，为什么

onemax 发表于 2020-3-4 20:41:02

对裁剪块的处理还有问题，如下图，左边是裁剪块，右边是非裁剪块，块内有裁剪嵌套块，炸散后左边的块内裁剪嵌套块未炸散，裁剪框外有部分线条未剪除，右边的块炸散后块内的嵌套块也一起炸散了，但嵌套块并没按原块内裁剪状态剪除，未达到楼主所讲只生成显示范围内的效果，附件内有本图测试块

齐天大圣悟空 发表于 2020-3-7 13:29:27

感谢楼主分享

xiabangchao 发表于 2020-3-7 14:02:00

感谢楼主分享

天龙八部乔峰 发表于 2020-3-8 14:57:44

感谢楼主分析

龙一哥哥 发表于 2020-5-8 12:04:10

看看~~~~~~~~~~~~~~

查看完整版本: 增强“炸开”工具