How to get property set of a Wall

[DubweiserTM]

Hi everybody !

 

I created a specific property for walls and I want to get the value in, is someone could help me, I appreciated very very much ?

 

Please check the printscreen attached...

 

Thanks in advance !

[DubweiserTM]

Is it possible or no ???

[DubweiserTM]

If you want to find an answer go to Augi Forum Website

 

The code below, provided by jwanstaett, works great !

 

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