---

Moin,

ich habe folgendes Problem:

Ich habe ein Block (BLOCK1)erstellt und diesem ein Attribut hinzugefügt.

Danach habe ich einen zweiten Block(BLOCK2) generiert, den ich mit der "addMInsertBlock" Methode mehrmals BLOCK1 hinzufügt habe.

Wenn ich mir nachher die Attribute von BLOCK2 anschaue (getAttributes, getConstantAttributes) ist das Attribut aus BLOCK1 nicht vorhanden, in der Zeichung ab zusehen.

Wie komme ich ans das Attribut aus BLOCK1 dran???

Hier im Forum oder in der Hilfe habe ich noch nichts passendes gefunden, vielleicht wist Ihr ja weiter!

Bis denn dann

H.D.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo H.D.

ich weiss nicht genau was du machen willst aber vielleicht ist das die Lösung ?

Code:

---

Sub test()

Dim selset As AcadSelectionSet
Dim entity As AcadEntity
Dim BlockRef As AcadBlockReference
Dim BlockDef As AcadBlock
Dim SubEntity As AcadEntity
Dim HasAttributes As Boolean

On Error Resume Next
Set selset = ThisDrawing.SelectionSets("MySel")
If Err.Number <> 0 Then
  Set selset = ThisDrawing.SelectionSets.Add("MySel")
End If

On Error GoTo 0

selset.Clear
selset.SelectOnScreen

For Each entity In selset
    Debug.Print entity.EntityType
    If entity.EntityType = 7 Then
      Set BlockRef = entity
      Set BlockDef = ThisDrawing.Blocks(BlockRef.Name)
      For Each SubEntity In BlockDef
          If SubEntity.HasAttributes = True Then
              HasAttributes = True
              ' Werte auslesen
          End If
      Next SubEntity
      If HasAttributes = True Then
          Dim Point, matrix, cdata
          On Error Resume Next
          ThisDrawing.Utility.GetSubEntity SubEntity, Point, matrix, cdata, Chr$(10) & "Sub Block wählen:"
          If Err.Number = 0 Then
            On Error GoTo 0
            SubEntity.Highlight (True)
          Else
            MsgBox "Nix gefunden"
          End If
          On Error GoTo 0
      End If
   
    End If
   
Next entity
End Sub

---

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP