【已解决】求块分解，分解后为原图自动剪切遮罩块 有效果动画图

a13678

块分解，分解后为原图自动剪切遮罩块，现场图纸分解会出现很多原先隐藏的块 找到一个效果的动态图

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:1.rar 
下载次数:60  文件大小:1.09 MB 
下载权限: 不限 以上  [免费赚D豆]

longer1000

哦哦噢噢噢哦哦

qqqincccken

谢谢提供,学习学习了

fan_zh

这个有难度，先马克等高手

yangjian001

图纸分解会出现很多原先隐藏的块

a13678

yangjian001 发表于 2017-8-14 08:11

对啊 就是会出现啊 所以想找个分解完了能维持原图的啊 自动删除隐藏的块  我在别人用的一个工具箱里面有这样的功能

marting

你要炸开哪个？ 截图说明下

a13678

marting 发表于 2017-8-14 08:23

所有的块啊 就是想要 全选图纸 然后炸开 图纸依旧是打开时显示的样子 LISP自动将炸开时显示出的别的东西都自动删除掉  这样说能明白不

gufengyin

测试:

2. 
   
3. (defun c:tt2 (/ EN ENBJ I OBJ OBJLST OBJS PT SS SS1 SS2 X)
   
4.   (princ "\n选择裁剪块")
   
5.   (setq ss (ssget '((0 . "INSERT"))))
   
6.   (setq i -1)
   
7.   (while (setq en (ssname ss (setq i (1+ i))))
   
8.     (if (xdrx_insert_isCLIP en)
   
9.       (progn
   
10.         (setvar 'cmdecho 0)
    
11.         (vl-cmdf ".xclip" en "" "p")
    
12.         (setq enbj (entlast));_裁剪边界
    
13.         (setq pt (cdr (assoc 10 (entget en))));_裁剪块的插入点
    
14.         (setq obj (vlax-ename->vla-object en))
    
15.         (setq objs (vla-Explode obj))
    
16.         (setq objLst (vlax-safearray->list (vlax-variant-value objs)))
    
17.         (setq ss1 (ssadd))
    
18.         (mapcar '(lambda (x) (ssadd (vlax-vla-object->ename x) ss1)) objLst)
    
19.         (setq ss2 (xdrx_geom_clipboundary ss1 enbj))
    
20.         (entdel enbj);_删除创建的边界
    
21.         (entdel en);_删除原块
    
22.         (xdrx_block_make ss2 pt t);_创建匿名块
    
23.         )
    
24.       )
    
25.     )
    
26.   (princ)
    
27.   )
    
28. 
    

<br /> (defun c:tt2 (/ EN ENBJ I OBJ OBJLST OBJS PT SS SS1 SS2 X)<br />   (princ "\n选择裁剪块")<br />   (setq ss (ssget '((0 . "INSERT"))))<br />   (setq i -1)<br />   (while (setq en (ssname ss (setq i (1+ i))))<br />     (if (xdrx_insert_isCLIP en)<br />       (progn<br />         (setvar 'cmdecho 0)<br />         (vl-cmdf ".xclip" en "" "p")<br />         (setq enbj (entlast));_裁剪边界<br />         (setq pt (cdr (assoc 10 (entget en))));_裁剪块的插入点<br />         (setq obj (vlax-ename->vla-object en))<br />         (setq objs (vla-Explode obj))<br />         (setq objLst (vlax-safearray->list (vlax-variant-value objs)))<br />         (setq ss1 (ssadd))<br />         (mapcar '(lambda (x) (ssadd (vlax-vla-object->ename x) ss1)) objLst)<br />         (setq ss2 (xdrx_geom_clipboundary ss1 enbj))<br />         (entdel enbj);_删除创建的边界<br />         (entdel en);_删除原块<br />         (xdrx_block_make ss2 pt t);_创建匿名块<br />         )<br />       )<br />     )<br />   (princ)<br />   )<br /> <br />

q3_2006

gufengyin 发表于 2017-8-14 16:19

xdrx_geom_clipboundary能打断的填充..好厉害

newer

q3_2006 发表于 2017-8-14 17:14

块，填充都能打断，打断后还保持是块和填充。

a13678

gufengyin 发表于 2017-8-14 16:19

非常感谢  但是貌似不是我想要的这个功能 我终于提取出了这个效果 请大神帮忙看看

Lispboy

a13678 发表于 2017-8-14 18:29

看了你的图，这些块都是XCLIP裁剪的块，你是希望把显示的部分给提取出来？

不知道谁会这样画图，垃圾信息保存太多了，图要多大。

a13678

Lispboy 发表于 2017-8-14 18:44

是啊 就是想要这样的效果 我们这个设计院都是出的这样的图啊 很郁闷啊

Lispboy

a13678 发表于 2017-8-14 18:29

对你这个图，帮你写个代码，原位置提取出裁剪块里面显示的部分。

1. (defun c:tt ()
   
2.   (if (and
   
3.         (setq e (car (xdrx_entsel "\n拾取一个裁剪块<退出>:" '((0 . "INSERT")))))
   
4.         (xdrx_insert_isclip e)
   
5.         (setq mat (xdrx_matrix_block2wcs e))
   
6.         (setq data (xdrx_insert_getclipinfo e))
   
7.         (setq box (cdr (assoc "BoundBox" data)))
   
8.         (setq base (car box))
   
9.         (setq blk (xdrx_getpropertyvalue e "blocktablerecord"))
   
10.         (setq box (xdrx_points_transform box (xdrx_matrix_inverse
    
11.                                                                   (xdrx_matrix_block2wcs e)
    
12.                                              )
    
13.                   )
    
14.         )
    
15.         (setq ents (xdrx_block_getentities t (cadr blk) "C" box))
    
16.       )
    
17.     (progn
    
18.       (mapcar
    
19.         '(lambda (x)
    
20.            (xdrx_entity_transformedcopy x mat)
    
21.          )
    
22.         ents
    
23.       )
    
24.       (xdrx_entity_delete e)
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )

(defun c:tt ()<br />   (if (and<br />         (setq e (car (xdrx_entsel "\n拾取一个裁剪块<退出>:" '((0 . "INSERT")))))<br />         (xdrx_insert_isclip e)<br />         (setq mat (xdrx_matrix_block2wcs e))<br />         (setq data (xdrx_insert_getclipinfo e))<br />         (setq box (cdr (assoc "BoundBox" data)))<br />         (setq base (car box))<br />         (setq blk (xdrx_getpropertyvalue e "blocktablerecord"))<br />         (setq box (xdrx_points_transform box (xdrx_matrix_inverse<br />                                                                   (xdrx_matrix_block2wcs e)<br />                                              )<br />                   )<br />         )<br />         (setq ents (xdrx_block_getentities t (cadr blk) "C" box))<br />       )<br />     (progn<br />       (mapcar<br />         '(lambda (x)<br />            (xdrx_entity_transformedcopy x mat)<br />          )<br />         ents<br />       )<br />       (xdrx_entity_delete e)<br />     )<br />   )<br />   (princ)<br /> )

写你这个发现，XDRX API太强了，对裁剪块提供的函数太牛了。