xiaopei520 发表于 2004-10-5 11:42:00

关于炸开图块问题

<BR>我的MyBlock是DXF文件中一条线 "Polyline",为什么用以下语句:


ExpObj = =MyBlock.Explode


炸开之后ExpObj(0).ObjectName不为"AcDbPolyline"?

bluelover 发表于 2004-10-5 13:20:00

expObj(0).ObjectName="AcDbPolyline" 啊


如果你炸了两次，这时


expObj(0).ObjectName="AcDbLine"

xiaopei520 发表于 2004-10-5 14:59:00

我把DXF保存为txt上传一下,图中实际有用的就是那三条线,别的没什么用,炸开后会有一些识别不了的汉字,但问题是有时我将这三条线用copyproject命令复制到一个新的dwg文件中,会少一条线,不知道为什么??3ku


       

bluelover 发表于 2004-10-6 12:42:00

本帖最后由 作者 于 2004-10-6 16:24:21 编辑

我测试了一下，你的块中添加了很多的属性（通过ATT命令加入的），故炸开以后，expobj是一根多段线和所有17个属性的集合。故只有一项是



expobj(i).objectname="AcDbPolyline"


其余17项


expobj(i).objectname＝"AcDbAttributeDefinition"

bluelover 发表于 2004-10-6 12:51:00

下面的这段代码是版主 lzh741206前不久提供的，测试表明线条没有丢失。


Sub t7()<BR>                                Dim Doc1 As AcadDocument, Doc2 As Object<BR>                       Dim ssetObj As AcadSelectionSet<BR>                       Dim objCollection() As AcadEntity<BR>                       Set Doc1 = Application.ActiveDocument





                       Set ssetObj = Doc1.ActiveSelectionSet<BR>                       ssetObj.Select acSelectionSetAll


                                                                                                               If ssetObj.Count &gt; 0 Then<BR>                                                                                                                                                       ReDim objCollection(ssetObj.Count - 1) As AcadEntity<BR>                                                                                                                                                       For k = 0 To ssetObj.Count - 1<BR>                                                                                                                                                                                       Set objCollection(k) = ssetObj(k)<BR>                                                                                                                                                       Next k<BR>                                                                                                                                                       <BR>                                                                                                                                                       Set Doc2 = Documents.Add<BR>                                                                                                                                                       Doc1.CopyObjects objCollection, Doc2.ModelSpace<BR>                                                                                                                       End If


End Sub
页: [1]
查看完整版本: 关于炸开图块问题