---

Hallo,

ich möchte gerne per Buttonklick (Befehlsaufruf) eine externe DWG öffnen und danach
aus dieser geöffneten DWG eine VBA-Routine starten welche sich in dieser DWG befindet.

Das öffnen der DWG per Button hab ich soweit hinbekommen und funktioniert auch und zwar so:
In der acaddoc.lsp habe ich folgendes definiert:

(defun c:Test ()
(command "vbastmt" "AcadApplication.Documents.Open \"H:\\xx.dwg\"")
)

(wobei ich den Befehl (hier im Beispiel Test) nachher im AutoCAD über einen Button (Werkzeugkasten) aufrufe)

aber leider gelingt es mir nicht die VBA-Routine zu starten.

Gebe ich in der geöffneten DWG folgendes ein:

(command "_-vbarun" "Routine")

oder einfach den Namen des Makros

Routine

so startet die VBA-Routine problemlos.

Hänge ich o.g. Aufruf an die DWG-Öffnen Funktion von oben an, werde ich immer nach dem Makronamen gefragt.

(defun c:Test ()
(command "vbastmt" "AcadApplication.Documents.Open \"H:\\xx.dwg\"")
(command "_-vbarun" "Routine")
)

Es sieht so aus als würde der Befehl "_-vbarun" noch ausgeführt,
jedoch der Makroname nicht mehr gefunden.     

Kann mir hier jemand helfen?

Danke im voraus.

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

---

Du bis in Zeichnung A .. und hier werden auch beide Commands abgesetz :
(command "vbastmt" "AcadApplication.Documents.Open \"H:\\xx.dwg\"")
... (hier hätte ein einfaches (command "_open" "H:\\xx.dwg") auch gereicht    )
(command "_-vbarun" "Routine")

in der göffneten Zeichnung xx.dwg kommt das
(command "_-vbarun" "Routine")
also nie an

evtl . ließe sich was über activX mit vl-vbarun machen... hab ich aber noch nie

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Wenn diese externe DWG eindeutig identifizierbar ist (z.B. über den Filenamen) ginge vielleicht was über die Startup-Funktion:
(if (= dwgname "???") starteVBA ) oder etwas in der Art.

------------------
Schöne Grüße
Ernst

www.geopaint.at

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