AutoCAD VBA获取属性
程序，AutoCAD 2010 VBA我通常使用以下代码从图形中获取属性。
公共子阵列1初始化（）
对于本图纸中的每个元素。模型空间
如果元素。EntityName=“AcDbBlockReference”然后
如果元素。Name=“电子表格信息”然后
阵列1=元素。获取属性
绘图属性=0
对于j=0到UBound（array1）
'调试。打印阵列1（k）
DrawingAttribute=DrawingAttribute+1
下一个j
如果结束
如果结束
下一个
末端接头
属性位于名为array1的数组中。这在我的表单模块中起作用，但当我将其移动到类模块时，我得到的array1是不可读的。任何人都知道为什么会发生这种情况，有没有样本
在类模块中获取属性的代码？
非常感谢。
页:
[1]