[求助]：把一个块用一条线切开成为两个块，谁

dwjnet

把一个块用一条线切开成为两个块，哪位高手有办法，或者有程序
谢谢

长清

最初由 dwjnet 发布
[B]把一个块用一条线切开成为两个块，哪位高手有办法，或者有程序
谢谢 [/B]

这个问题真难哪？感觉理论上有可能解决，但实际上好象没有人做出来。

前生

呵呵，是啊。盼望有高手

cy956

一个思路：

1。用explode把块彻底炸开（循环，炸出的新实体中如果包含块等，接着炸）；
如果用计算的方式求，恐怕只有请玩c的dx出手。：）
2。所有新实体加入选择集s1；
3。ssget－f方式得选择集s2；
4。s1和s2交集得s3；
5。开始分开。
如果碰上文字，分出1/n的字，恐怕不好玩了；
碰上ellipse，spline，hatch，恐怕惨了；
碰上3d实体，恐怕要玩完了。：))

二思路：
先把选中的物体plot－dxb＋插入，这样都是线可能还好办些，
不过丢失原来的信息，精度也受损。

newer

我想对曲线能够分开也就够了，不用考虑那么多。

XDSoft

如果需要块裁减，那么以前写过这个程序，可以裁减（显示上）任何块内的任何实体，需要时候可以恢复。

见下面的帖子。

http://www.xdcad.net/forum/showthread.php?postid=822#post822

                               
登录/注册后可看大图

dwjnet

我目前只要考虑ellipse，spline，hatch以外的实体，所以 非常感谢cy956
对于炸开后的处理，求交，切开，形成新的块似乎还是不容易搞得明白，
能否谈的清楚一些，我用vc写arx程序.

XDSoft

最初由 dwjnet 发布
[B]我目前只要考虑ellipse，spline，hatch以外的实体，所以 非常感谢cy956
对于炸开后的处理，求交，切开，形成新的块似乎还是不容易搞得明白，
能否谈的清楚一些，我用vc写arx程序. [/B]

求交，可以用AcDbEntity::intersectWith(....)
曲线裁减可以用 AcDbCurve::getSplitCurves(...)

对于INSERT，你需要先得到BLOCK->INSERT的转换矩阵，然后遍历BLOCK，求其中的实体（曲线）和你的边界的交点，然后用AcDbCurve::getSplitCurves(...)

用遍历BLOCK（AcDbBlockTableRecord）的方法，你不需要炸开块。

dwjnet

谢谢站长
如何判断切开后的实体归属呢，一半归到一个块中，另一半归到另一个块中，如何做呢？

XDSoft

最初由 dwjnet 发布
[B]谢谢站长
如何判断切开后的实体归属呢，一半归到一个块中，另一半归到另一个块中，如何做呢？ [/B]

你先用AcDbEntity::getGeomExtents得到块的包围盒，你的裁减的线肯定要和这个包围盒相交，这样就出来了两个区域，然后你可以判断切开后的实体是那个区域的。

fylinwater

一个思路：

1。用explode把块彻底炸开（循环，炸出的新实体中如果包含块等，接着炸）；
如果用计算的方式求，恐怕只有请玩c的dx出手。：）
2。所有新实体加入选择集s1；

这些新实体如何获取 我一直不知道怎么办

fylinwater

如果只是要在显示上分开块拷贝一份后 用CAD命令XCLIP就可以胜任了

cy956

最初由 fylinwater 发布
这些新实体如何获取 我一直不知?..

xd前几天刚刚解答过，
就是先定义一个e0＝entlast，
操作其他.....
然后针对e0进行entnext直到结束，所有的实体
入表。下面是abd的几个函数，你抄着用用：

2. 
   
3. (Defun get-last-en( / enlast )  ;;;取当前图中最后实体名
   
4.   (setq enlast nil enlast (entlast))
   
5.   (if (and (/= enlast nil)
   
6.            (or (= "POLYLINE" (dxf 0 (entget enlast)))
   
7.                (and (= "INSERT" (dxf 0 (entget enlast)))
   
8.                     (entnext enlast)
   
9.                     (= "ATTRIB" (dxf 0 (entget (entnext enlast))))
   
10.            )   )
    
11.       )
    
12.     (while (/= "SEQEND" (dxf 0 (entget enlast)))
    
13.       (setq enlast (entnext enlast)))
    
14.   )
    
15.   enlast
    
16. )
    
17. 
    
18. (Defun get-ss( e / ss ep) ;;;取在实体e后生成的所有实体选择集
    
19.   (setq ss (ssadd) ep e)
    
20.   (if (not ep) (setq ep (entnext)))
    
21.   (while (/= (setq ep (entnext ep)) nil)
    
22.     (ssadd ep ss)
    
23.   )
    
24.   ss
    
25. )
    
26. (Defun get-ss1( e / ss ep en ty) ;;;取在实体e后生成的所有实体选择集, nil=全选,不包括子实体
    
27.   (setq ss (ssadd) ep e)
    
28.   (if (not ep) (setq ep (entnext)))
    
29.   (while (/= (setq ep (entnext ep)) nil)
    
30.     (setq en(entget ep)ty(dxf 0 en))
    
31.     (if (not (member TY '("VERTEX" "SEQEND")))
    
32.       (ssadd ep ss)
    
33.     )
    
34.   )
    
35.   ss
    
36. )
    

<br /> (Defun get-last-en( / enlast )  ;;;取当前图中最后实体名<br />   (setq enlast nil enlast (entlast))<br />   (if (and (/= enlast nil)<br />            (or (= "POLYLINE" (dxf 0 (entget enlast)))<br />                (and (= "INSERT" (dxf 0 (entget enlast)))<br />                     (entnext enlast)<br />                     (= "ATTRIB" (dxf 0 (entget (entnext enlast))))<br />            )   )<br />       )<br />     (while (/= "SEQEND" (dxf 0 (entget enlast)))<br />       (setq enlast (entnext enlast)))<br />   )<br />   enlast<br /> )<br /> <br /> (Defun get-ss( e / ss ep) ;;;取在实体e后生成的所有实体选择集<br />   (setq ss (ssadd) ep e)<br />   (if (not ep) (setq ep (entnext)))<br />   (while (/= (setq ep (entnext ep)) nil)<br />     (ssadd ep ss)<br />   )<br />   ss<br /> )<br /> (Defun get-ss1( e / ss ep en ty) ;;;取在实体e后生成的所有实体选择集, nil=全选,不包括子实体<br />   (setq ss (ssadd) ep e)<br />   (if (not ep) (setq ep (entnext)))<br />   (while (/= (setq ep (entnext ep)) nil)<br />     (setq en(entget ep)ty(dxf 0 en))<br />     (if (not (member TY '("VERTEX" "SEQEND")))<br />       (ssadd ep ss)<br />     )<br />   )<br />   ss<br /> )<br />

XDSoft

最初由 fylinwater 发布
[B]如果只是要在显示上分开块拷贝一份后 用CAD命令XCLIP就可以胜任了 [/B]

对，我写的那个块裁减的程序，就是用ARX的方法实现的XCLIP命令，现在可以在LISP里面使用这个功能的函数了，功能上比XCLIP强很多，可以任意曲线边界，可以顶点表....功能都在那个LISP程序里面演示了。

372. xdrx_block_clip

功能：裁减BLOCK和XREF

调用格式：

373. xdrx_block_removeClip

功能：恢复裁减的BLOCK和XREF

调用格式：

dwjnet

我的问题是真实地split一个块，形成两个块。不是剪掉不要，是还要的。
现在大家给了我许多的资料，我去试试。谢谢