---

Hallo,
ich suche nach einer Möglichkeit selbst erstellte Buttons in VBA abzufangen.

Ziel ist es, eigene mit Befehlen(z.B. _doSomething) Buttons anzulegen und mit VBA zu verarbeiten.
Wenn ich auf LINE (oder einen anderen AutoCADbutton anklicke wird das Ereignis "AcadDocument_BeginCommand" ausgelöst. Aber wenn ich auf den selbst erstellten "doSomething" Button klicke passiert garnichts im VBA-Editor. Im AutoCAd Befehlsmanager steht "Befehl DOSOMETHING nicht gefunden..."

Wie kann ich eigene Buttons registrieren damit bei Klick das "AcadDocument_BeginCommand" Ereignis ausgelöst wird und "CommandName" nicht leer bleibt?

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

---

Ruf doch mit deinem Knopf direkt deine VBA Funktion auf.
Dann sparst du dir das Abfangen.

Holger

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

---

Hallo,

Zitat:

---

Original erstellt von insidERR:
...
Ziel ist es, eigene mit Befehlen(z.B. _doSomething) Buttons anzulegen und mit VBA zu verarbeiten.
...

---

Schau dir diesen Artikel mal an. So kannst du deine VBA Makros auf einen Button legen.

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Hab es schon hinbekommen. Danke.

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

---

Und jetzt mal ne andere Frage.
Ich will jetzt Befehle von Hand eingeben und mit "BeginnCommand" abfangen.
Hat einer ne Idee?

Mein Gedanke ist, Zeichnungen direkt über Eingabeleiste zu öffnen. Mit "_open" ist es nicht getan. Unsere Zeichnungen sind numerisch sortiert. D.h. "97236" befindet sich auf "server/CAD/9/" Ich will es so machen, dass man direkt die Zeichnungsnummer eingibt und beim Bestätigen die Strg-Taste gedrückt hällt. In der Funktion "BeginnCommand" wird überprüft ob die Strg-Taste gehalten wird, und wenn ja, soll AutoCAD "CommandName" als Zeichnungsnummer ansehen, auf dem Server automatisch suchen und öffnen. Sparrt einige Klicks.

[Diese Nachricht wurde von insidERR am 22. Apr. 2008 editiert.]

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

---

Hallo,

das dürfte nicht so ganz einfach sein. Dann müsstes du über die WIN Api ermitteln welche Tasten gedrückt sind. Ausserdem, und das ist die größte Hürde, wird der Event erst ausgelöst wenn es einen bekannten Befehl gibt. 471101 ist kein bekannter Befehl.

Ich würde mir da einen eigenen Befehl z.B. xopen definieren der eine eigene Maske aufmacht. Da gibts du die Zeichnungsnummer ein, ermittelst den Pfad und öffnest diese. Wenn du keine Maske willst, kannst du ja auch die Nummer in der Befehlszeile anfordern.

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht. 
www.ib-stelberg.de

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

---

Windows API ist kein Problem. Nehme vorgerfertigte Module aus "VisualBasic".
Mein Problem ist, dass ich nicht weiss wie man Befehle definiert.
Es wäre schon gut zu wissen, wie man aus der Befehlszeile Makros aufrufen und Parameter übergeben kann.

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

---

Hallo,
Wie wäre ein Ausflug ins LISP? Mit Lisp könntest Du einen reactor vom typ "unknown-command" abfangen und auswerten. Ein Beispiel dazu HIER.
Mit VBA sehe ich da keine Chance.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Sieht nett aus.
LISP ist für mich ein absolutes Neuland.
Das einzige was ich darüber weiss, ist dass es ne AutoCAD Sprache ist.
Da kann man sich denken was ich mit der Info anfangen kann  .  Aber danke...

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

---

Hallo,

ich verstehe nicht wo das Problem ist. Im obigen Link war eine Lösung aufgeführt wie man ein VBA Makro als AutoCAD Befehl definieren kann.
Ich habe die Lisp Zeile zum Test mal in eine Funktion gepackt.
Diese Sub muss du als erstes ausführen. Später wird die Zeile in die AcadDoc.Lsp eingefügt. Dann steht der Befehl nach jedem laden des Dokumentes zur Verfügung.

Code:

---

Sub EigenerBefehl()
   ' Dieser wird normalerweise in der AcadDoc.Lsp untergebracht
   ThisDrawing.SendCommand "(defun c:MyLoad (/) (vl-vbarun ""MyLoad""))" & vbCr
End Sub

---

Danach kannst du in der AutoCAD Befehlszeile den Befehl MYLOAD eingeben. Den kannst du auch auf einen Button packen, mit der Befehlswiederholung arbeiten,... halt wie ein AutoCAD Befehl.

Code:

---

Sub MyLoad()
    Dim Eingabe As Variant
    Dim Pfad As String
    Dim Datei As String
    Dim Doc As AcadDocument
   
    On Error Resume Next
    Eingabe = ThisDrawing.Utility.GetString(True, Chr$(10) & "MyLoad--> Zeichnungsnummer eingeben:")
    If Not Err.Number Then
       On Error GoTo 0
       If Left$(Eingabe, 1) = "1" Then
          Pfad = "C:\Temp\1\"
          Datei = Eingabe & ".DWG"
       ElseIf Left$(Eingabe, 1) = "2" Then
          Pfad = "C:\Temp\2\"
          Datei = Eingabe & ".DWG"
       End If
      
       On Error Resume Next
       Set Doc = Application.Documents.Open(Pfad & Dateiname)
       If Err.Number <> 0 Then
          MsgBox "Es ist ein Fehler aufgetreten!" & vbCrLf & Err.Description
       Else
          MsgBox "Es wurde die Zeichnung " & Doc.Name & " geöffnet"
       End If
    End If
End Sub

---

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht. 
www.ib-stelberg.de

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