hchm 发表于 2009-1-4 14:08:00

[求助]怎样将一个集合中的所有实体加入到一个块中？

<p><font size="4">如题，怎样将一个集合中的所有实体加入到一个块中？</font></p><p><font size="4">我建了一个集合，需要将其中的实体加入到一个块中，这样旋转时只旋转块不需要一个个实体分别旋转了。</font></p><p><font size="4">谢谢大家。</font></p>

rjh2001r 发表于 2009-2-3 23:09:00

<p>一、先把你的集合内的所以实体用一个object类型数组(比如 Dim objarry() As Object)存储</p><p>二、再建一个空块:Set blockObj = ThisDrawing.Blocks.Add(insertionPnt, "nameblock")</p><p>三、然后用&nbsp;&nbsp;Copyobjects方法把实体拷贝进块：ThisDrawing.CopyObjects objarry, blockObj</p><p>四、再把你选择集里的实体全部删除，然后再插入刚建的块就成了。<br/></p>
页: [1]
查看完整版本: [求助]怎样将一个集合中的所有实体加入到一个块中？