[求助]：关于图块引用的Explode方法

lijiao

我遇到了麻烦需请教各位

2. 
   
3.   [FONT=courier new]
   
4. Public Sub test()
   
5. Dim BlkRefobj As AcadBlockReference
   
6. Dim Entobj As Variant
   
7. Dim inPt(2) As Double
   
8. inPt(0) = 0
   
9. inPt(1) = 0
   
10. inPt(2) = 0
    
11.        Set BlkRefobj = ThisDrawing.PaperSpace.InsertBlock(inPt, "机械加工工序卡片1", 1, 1, 1, 0)
    
12.        Entobj = BlkRefobj.Explode
    
13. 
    
14. End Sub
    
15.   [/FONT]
    

<br />   [FONT=courier new]<br /> Public Sub test()<br /> Dim BlkRefobj As AcadBlockReference<br /> Dim Entobj As Variant<br /> Dim inPt(2) As Double<br /> inPt(0) = 0<br /> inPt(1) = 0<br /> inPt(2) = 0<br />        Set BlkRefobj = ThisDrawing.PaperSpace.InsertBlock(inPt, "机械加工工序卡片1", 1, 1, 1, 0)<br />        Entobj = BlkRefobj.Explode<br /> <br /> End Sub<br />   [/FONT]<br />

图块"机械加工工序卡片1"中有MTEXT，使用EXPLODE方法后，竟然将MTEXT炸为了TEXT，在命令行用EXPLODE命令却不会有这样的结果，希望各位能够赐教。

efan2000

仔细检查一下，是不是重复使用了Explode方法。按帮助文件不会炸开多行文字的，它的效果跟在CAD中使用Explode命令是一样的。

1. 
   
2.   [FONT=courier new]
   
3. Remarks
   
4. 
   
5. Depending on the type of compound object you're exploding, different results occur.
   
6. Consult the AutoCAD Command Reference manual under the EXPLODE command for a detailed list of explodable objects and their results.
   
7.   [/FONT]
   

复制代码

秋枫

>在命令行用EXPLODE命令却不会有这样的结果
你试过么？在命令行用explode命令，当然也可以炸开mtext成text,.

lijiao

efan2000 版竹：就是下面的代码，不会错，不信你试试。

2. 
   
3.   [FONT=courier new]
   
4. Public Sub test()
   
5. Dim BlkRefobj As AcadBlockReference
   
6. Dim Entobj As Variant
   
7. Dim inPt(2) As Double
   
8. inPt(0) = 0
   
9. inPt(1) = 0
   
10. inPt(2) = 0
    
11.        Set BlkRefobj = ThisDrawing.PaperSpace.InsertBlock(inPt, "机械加工工序卡片1", 1, 1, 1, 0)
    
12.        Entobj = BlkRefobj.Explode
    
13. 
    
14. End Sub
    
15. 
    
16.   [/FONT]
    

<br />   [FONT=courier new]<br /> Public Sub test()<br /> Dim BlkRefobj As AcadBlockReference<br /> Dim Entobj As Variant<br /> Dim inPt(2) As Double<br /> inPt(0) = 0<br /> inPt(1) = 0<br /> inPt(2) = 0<br />        Set BlkRefobj = ThisDrawing.PaperSpace.InsertBlock(inPt, "机械加工工序卡片1", 1, 1, 1, 0)<br />        Entobj = BlkRefobj.Explode<br /> <br /> End Sub<br /> <br />   [/FONT]<br />

秋枫版竹：我说的是图块，图块中有MTEXT，使用一次EXPLODE，应该是将图块炸为MTEXT，而不是TEXT。

efan2000

确实有这种现象，那只能采用折衷的办法了。
一是用SendCommand来调用Explode方法，
二是用CopyObjects将块中的所有实体拷贝到图纸中，再删除原来的块引用实体。

lijiao

最初由 efan2000 发布
[B]确实有这种现象，那只能采用折衷的办法了。
一是用SendCommand来调用Explode方法，
二是用CopyObjects将块中的所有实体拷贝到图纸中，再删除原来的块引用实体。 [/B]

谢谢版竹。
**************************************************************************************
CopyObjects方法能不能将一个图块中的实体COPY到另一个图块中？

efan2000

可以，只有指定Owner为另一个图块就行，Owner可以是同一应用程序（指Application相同）的不同文档之间，同一文档的模块空间和图纸空间、块。

lijiao

最初由 efan2000 发布
[B]可以，只有指定Owner为另一个图块就行，Owner可以是同一应用程序（指Application相同）的不同文档之间，同一文档的模块空间和图纸空间、块。 [/B]

多谢版竹的指教，我有问题还会来麻烦你。
**************************************************************************************
新年快到了，祝你新年快乐。
**************************************************************************************
如果有空到郑州，一定要找我玩。