---

Hallo zusammen,

habe folgenden Code in die ACAD.DVB geschrieben. Sonst steht da nichts drin. Leider greift der Code beim speichern nicht, warum?

Code:

---

Private Sub AcadDocument_BeginSave(ByVal FileName As String)
    If CommandName = "save" Then
        MsgBox "Sie wollten speichern"
    End If
End Sub

---

Danke für Eure Hilfe...

------------------

cu
Heiko

Schau mal rein www.diemertens.de

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

---

Hallo Heiko,
bei beginsave ist ja eigentlich klar, dass der Befehl "save" oder "qsave" oder "saveas" lautet. Das brauchst Du also eigentlich nicht mehr zu testen.
die Variable CommandName ist in Deinem Code nicht deklariert, (stammt vermutlich aus "Begincommand"), daher schlägt der test fehl.
also entweder

Code:

---

Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
if CommandName = "SAVE" then
  MsgBox  "Sie wollten speichern"
endif
End Sub

---

oder

Code:

---

Private Sub AcadDocument_BeginSave(ByVal FileName As String)
  MsgBox "Sie wollten speichern"
End Sub

---

Willst Du in Beginsave den Befehl trotzdem noch testen, benutze am besten activedocument.GetVariable("cmdnames").

Grüsse, Henning

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

  http://www.voxelman.de

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

---

Hallo Henning,

habe das nun auf diesen Code geändert:

Code:

---

Private Sub AcadDocument_BeginSave(ByVal FileName As String)
  MsgBox "Sie wollten speichern"
End Sub

---

Aber wenn ich nun eine Zeichnung speicher passiert nix. Wenn ich auf die erste Zeile einen Stop setze, sehe ich beim Speichern, das der Code garnicht erst anfängt. Wenn ich im VBA-Manager den Code starte, kommt ein Fenster mit Makros hoch. Hier gibt es aber kein Makro zum auswählen. Was muß ich denn hier tun?

------------------

cu
Heiko

Schau mal rein www.diemertens.de

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

---

Hallo Heiko,

liegt die acad.dvb im Support-pfad?
wird die dvb im VBA-Manager angezeigt?
evtl. Autocad mal neu gestartet?
bei mir läuft es...

Grüsse, Henning

PS: die automatsch auszuführenen Makros tauchen nicht in der Makro-Liste auf.

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

  http://www.voxelman.de

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

---

dvb.jpg

Also ich habe Autocad nochmal neu gestartet (ACAD2006). Im VBA-Manager wird das DVB angezeigt aber trotzdem passiert nix. Habe mal einen Screenshot vom Manager angehängt...

------------------

cu
Heiko

Schau mal rein www.diemertens.de

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

---

Capture-1.jpg

AHA!
schieb' mal das AcadDocument_BeginSave dahin, wo es hingehört:
in thisdrawing des Projektes.
Dann siehst Du auch schon, was es noch so für Automatische Makros gibt...

Grüsse, Henning

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

  http://www.voxelman.de

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

---

Ah jetzt ja.... Jetzt gehts. Danke Dir!!!

------------------

cu
Heiko

Schau mal rein www.diemertens.de

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