---

ist es möglich von vba aus ein zeichnungsobjekt zu überwachen - also beispielsweise bei doppelklick auf einen block das programm zu aktivieren - aufzurufen? bzw das programm läuft im acad-hintergrund und steigt dann wieder ein ...

------------------
leute: vielen dank

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

---

imho nur mit lisp reaktoren fehlerfrei lösbar.

solte ich mich doch täuschen wäre ein Bemassungsreaktor von Brichke an nettes Beispiel für die VBA-Methode:

Code:

---

(defun pre_lay (reatyp befname / );Wenn Bem gestartet wird
  (cond
    ((wcmatch (car befname) "DIM*")
    (setq *oldlay* (getvar "CLAYER"))
    (setvar "CLAYER" "0")
    )
    )
  )
(defun after_lay (reatyp befname / );Wenn Bem beendet wird
  (cond
    ((and
      (wcmatch (car befname) "DIM*")
      *oldlay*
      )
    (setvar "CLAYER" *oldlay*)
    (setq *oldlay* nil)
    )
    )
  )
(defun reaload ();Initialisierung des Reactors
  (if (not *DEFUN_DIMLAYER*)
    (progn
      (setq *DEFUN_DIMLAYER*
            (VLR-Command-Reactor "*DEFUN_DIMLAYER*"
              '((:vlr-commandEnded . after_lay)
                (:vlr-commandwillstart . pre_lay)
                )
              )
            )
      (princ "\nLayerschalter Bemassung aktiviert")
      )
    )
  )
(reaload)

---

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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

---

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