带字段的动态块
我创建了一个动态块，附加了一个字段，当块被拉伸或可见性更改时更新。我需要能够使用VBA读取值，但不知道如何访问信息。**** Hidden Message *****
公共函数Get_Wt（BlockRefObj）
'定义块
暗淡块对象为AcadBlock
'爆炸块引用
暗淡块对象为变体
暗淡块对象为变体
暗淡块对象为变体
设置复制块对象=BlockRefObj.COPY（）
爆炸对象=BlockRefObj.Explode
'循环遍历爆炸对象
暗淡I为整数
对于I=0到UBound（爆炸对象）
如果爆炸对象（I）。对象名称="AcDbMText"然后
wght=爆炸对象（I）。文本字符串
结束如果
爆炸对象（I）。DELETE
Next
Get_Wt=wght
结束函数
页:
[1]