如何遍历图块中的每个图元

qsl707

如何遍历图块中的每个图元？

另外：图块爆炸后为什么都跑到0层，怎么才能让爆炸后的图元跑到我想要的层

怎样才能把块里的每个图元写到一个数组中？

谢谢

wyj7485

1

Sub test()
Dim pblock, Obj
Set pblock = ThisDrawing.Blocks(BlkName) 'BlkName-要遍历的块名
For Each Obj In pblock
Next
End Sub

2

图块在哪个层建立的,炸开后就在该层,改变炸开后的图集对象的层属性

3

炸开后得到的数组就包含块里的每个图元啊

qsl707

谢谢楼主

1.明白了

2.我知道是这样，问题是我想把一个块移到一个我想的层上，然后爆炸，这样图元都到这个层上了，而不在创建的层上，怎样实现

3.能不能再说清楚一点，最好有点代码，谢谢