如何遍历图块中的每个图元
<P>如何遍历图块中的每个图元？</P><P>另外：图块爆炸后为什么都跑到0层，怎么才能让爆炸后的图元跑到我想要的层</P>
<P>怎样才能把块里的每个图元写到一个数组中？</P>
<P>谢谢</P> <P>1</P>
<P>Sub test()<BR>Dim pblock, Obj<BR>Set pblock = ThisDrawing.Blocks(BlkName) 'BlkName-要遍历的块名<BR>For Each Obj In pblock<BR>Next<BR>End Sub</P>
<P>2</P>
<P>图块在哪个层建立的,炸开后就在该层,改变炸开后的图集对象的层属性</P>
<P>3</P>
<P>炸开后得到的数组就包含块里的每个图元啊</P> <P>谢谢楼主</P>
<P>1.明白了</P>
<P>2.我知道是这样，问题是我想把一个块移到一个我想的层上，然后爆炸，这样图元都到这个层上了，而不在创建的层上，怎样实现</P>
<P>3.能不能再说清楚一点，最好有点代码，谢谢</P>
页:
[1]