Hallo,
ich habe habe folgendes Problem.
Ich möchte Blöcke aus einer Xref in die eigentliche Zeichnung kopieren.
Wenn ich auf ein AttibuteReference-Objekt des gewünschten Blockes klicke, bekomme ich über die OwnerID die BlockReference. So solle es sein.
Wenn ich aber auf ein geometrisches Object der gleichen Blockrefence klicke, bekomme ich nur ein AcDbBlockTableRecord.
Mir ist keine Möglichkeit bekannt, aus dem AcDbBlockTableRecord ein Entity-Objekt zu bekommen.
Zur Demonstration ein kleines Video.
Kennt jemand das Problem? hat jemand eine Lösung?
Hier mal stark vereinfacht der Code
Sub XrefEntGet()
Dim geklicktesObject As AcadEntity
Dim OwnerObject As Object
Dim PP As Variant, tm As Variant, cd As Variant
'zur Übersichtlichkeit keine Fehlerbehandlung eingebaut!
'hier hole ich mir das Objekt aus der Xref
ThisDrawing.Utility.GetSubEntity geklicktesObject, PP, tm, cd
MsgBox "gewählter Objecttyp: " & geklicktesObject.ObjectName
'hier hole ich mir das übergeordnete Objekt
OwnerObject oObj = ThisDrawing.ObjectIdToObject(geklicktesObject.OwnerID)
MsgBox "Owner Objecttyp: " & oObj.ObjectName
End Sub
Viele Grüße
Peter
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP