增强“炸开”工具

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

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

[sell]

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

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

[/sell]

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

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

强大

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

支持一下。

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

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

谢谢分享！我的豆豆啊！

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

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

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

[图块] 增强“炸开”工具

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。