VBA获取块属性
我编写了一个程序，从当前图形中提取块属性。而且效果很好。升级电脑后，我的代码停止工作。在调试模式下，我发现以下问题：
（部分代码）
将oEnt变为AcadEntity
对于本图纸中的每个oEnt。模型空间（问题行）
如果oEnt的类型为AcadBlockReference，则
设置blkTitle=oEnt
如果是blkTitle。Name=“Tag”和blkTitle。HasAttributes然后
aryAttributes=blkTitle。获取属性
shtObj。单元格（i+1，1）=属性（0）。文本字符串
i=i+1
如果结束
如果结束
下一个
我正在
此图纸。模型空间=
下一步
此图纸。模型空间=
oEnt=
请告诉我如何修理它。
页:
[1]