块实例
大家好，我已经创建了一个AcadBlock（使用AutoCad VBA），现在我想计算模型空间中该
块的实例数
有人能给我一个关于这个的简短代码吗<非常感谢！
**** Hidden Message ***** 对于此图形中的每个ObjFind，将ObjFind设置为AcadObject＜br＞将ObjFind设置为AcardBlockReference＜br＞并将其设置为整数＜br＞。Modelspace
如果ObjFind的类型是AcadBlockReference，则
如果BRFind，则设置BRFind=ObjFind
。Name=“”然后
BRCount=BRCount+1
如果
结束如果
，下一个
应该工作，实例数存储在BRCount中。
页:
[1]