如何获取W的属性集
大家好！我为墙壁创建了一个特定的财产，我想获得价值，有人可以帮助我，我非常感谢？
请检查附带的打印屏幕。。。
提前感谢！
这可能还是不可能？？？ 如果你想找到答案，请访问Augi论坛网站
下面的代码由jwanstaett提供，效果很好！
Dim varAcadDwg As Variant
Dim wallCollection As New Collection
Dim acadObj As AcadObject
Dim Mypro As AecScheduleProperty
Dim strTest As String
Set varAcadDwg = ThisDrawing.ModelSpace
For Each acadObj In varAcadDwg
If acadObj.ObjectName = "AecDbWall" Then
Set Mypro = GetPro("DemtecMurs_O", "CadSubtype", acadObj)
strTest = Mypro.Value
MsgBox strTest
End If
Next
页:
[1]