Aanpassen attributes

[freddy.deporte]

hoe kan ik de attribut text van een bestaande block in een tekening aanpassen via VBA

[EddyBeerke]

Hier een eerste opzetje:

Code Selecteer Uitklappen

ThisDrawing.Utility.GetEntity BR, PP, "Selecteer block met attributen:"
      ' Get the attributes for the block reference
        Dim varAttributes As Variant
        varAttributes = BR.GetAttributes
   
      Dim strAttributes As String
        Dim i As Integer
        For i = LBound(varAttributes) To UBound(varAttributes)

        Select Case varAttributes(i).TagString
        ....
        end select

       Next