Vielen Dank für die umfangreiche Info - hat mich sogleich angeregt weiter zu forschen - und:
meine ursprüngliche Problemstellung lässt sich sogar denkbar einfach lösen:
Das Ereignis BeginDoubleClick wir von einem VBA Makro überwacht:
Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
Dim bnrSS As AcadSelectionSet
On Error GoTo SSFehler
Set bnrSS = ThisDrawing.SelectionSets("Uberwachen")
On Error GoTo 0
bnrSS.Clear
bnrSS.SelectAtPoint PickPoint
For i = 0 To bnrSS.Count - 1
If TypeName(bnrSS(i)) = "IAcadBlockReference" Then
Set BlockRef = bnrSS(i)
If BlockRef.Name = "Test" Then
Prozedur BlockRef.Handle
End If
End If
Next
Exit Sub
SSFehler:
ThisDrawing.SelectionSets.Add "Uberwachen"
Resume
End Sub
Private Sub Prozedur(Handle)
MsgBox "BlockRefHandle: " & Handle
End Sub
grüssend ben
------------------
leute: vielen dank
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP