[编程交流] 如何获取W的属性集

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