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

hchm

如题，怎样将一个集合中的所有实体加入到一个块中？

我建了一个集合，需要将其中的实体加入到一个块中，这样旋转时只旋转块不需要一个个实体分别旋转了。

谢谢大家。

rjh2001r

一、先把你的集合内的所以实体用一个object类型数组(比如 Dim objarry() As Object)存储

二、再建一个空块:Set blockObj = ThisDrawing.Blocks.Add(insertionPnt, "nameblock")

三、然后用  Copyobjects方法把实体拷贝进块：ThisDrawing.CopyObjects objarry, blockObj

四、再把你选择集里的实体全部删除，然后再插入刚建的块就成了。