---

Guten Tag liebe Leute,

ich habe mich hier im Forum schon durchgeklickt und keine für mich funktionelle Lösung gefunden also sorry falls ich das Thema nochmal in einem Extra Beitrag schreibe.

Ich möchte in VBA geschriebene Befehle ganz einfach per Autocadbefehl aufrufen.

Jetzt bin ich soweit, dass man das anscheinend über LISP machen "muss". Also habe ich folgendes in eine LISP-Datei geschrieben:

(defun c:HL (/) (vla-runmacro "Befehle.dvb!Modul1.Hilfslinie")

- Wenn ich das richtig verstanden habe sollte "HL" der Befehl sein welchen ich dann in AutoCAD eingebe.
- "Befehle.dvb!Modul1.Hilfslinie" Ist die Datei dann das Modul und zum Schluss das Makro. Diese dvb Datei habe ich über APPLOAD geladen. Genauso wie die LISP

Der Befehl in VBA lautet:

Sub Hilfslinie()
ThisDrawing.ActiveLayer = ThisDrawing.Layers("ADS_0_Hilfslinie")
End Sub

Passieren tut garnix 

Ich bin für jede Hilfe dankbar.

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

---

Da hast du für deinen Fall die falsche Funktion gegriffen, nutze vl-vbarun  und es funktioniert,
zumindest wenn du auch die erste öffnende Klammer wieder schließt.

(defun c:HL (/) (vl-vbarun "Befehle.dvb!Modul1.Hilfslinie"))

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

---

Ouh man wenn das mit den Klammern schon anfängt sollte ich mir echt überlegen ob ich das weiter machen  .

Aber vielen Dank so funktioniert es.

Könntest du mir vielleicht noch erklären was der Unterschied zwischen den beiden Befehlen ist?

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

---

In Lisp gibt es zwei Welten (toll ist das beide praktisch problemlos vermischt werden dürfen)

vl-vbarun startet ein Makro eines geladenen VBAProjektes in der aktuellen Applikation (deinem Acad was du aktuell vor Augen hast)
http://help.autodesk.com/view/ACD/2018/ENU/?guid=GUID-75387617-9144-49CB-97E4-03B4CD29973B

vla-RunMacro ist für das ActiveX gedacht, man übergibt der Funktion das Objekt der Applikation in der es ausgeführt werden soll
und die Information aus welchem (geladenen) Projektes es ein Makro starten soll.
https://knowledge.autodesk.com/search-result/caas/CloudHelp/cloudhelp/2016/ENU/AutoCAD-ActiveX/files/GUID-638E14CA-798C-42BC-8F2B-5E9D6952C707-htm.html

-

Deine Anfrage drehte sich ja sicher nur um das "Wie definiere ich einen AutoCAD-Befehlsaufruf"
wenn man die Funktion also nicht über einen Button starten möchte oder sich das getippe von
-vbarun Hilfslinie
sparen möchte.

Dann muß man wirklich nur wissen
(defun c:MEINBEFEHL (/) (vl-vbarun "Befehle.dvb!Modul1.Hilfslinie")(princ))

Das princ unterdrückt eine Rückgabe in der Befehlszeile, teste einmal mit und einmal ohne..
Schau vorher ob der Befehlsname nicht bereits belegt ist.

Jetzt ergänze deine Funktion um die Prüfung ob der Layer existiert,
falls nicht lasse den Layer erstellen.
Prüfe ob der Layer gefroren ist, falls ja - taue diesen.
Auch eine Prüfung ob der Layer EINgeschaltet ist wäre hier sinnvoll um den User zu "warnen",
oder den Layer automatisch ein zu schalten.

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

---

Sehr ausführlich 

Dankeschön das hat mir sehr geholfen. Die Ideen mit den Prüfungen werde ich sehr wahrscheinlich nutzen. Danke noch einmal dafür.

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

---

Alternative:
(command "_vbarun" "VBA-Funktion")

oder
(^C^C_-vbarun;"macroName")

und Befehl einfach in eine Werkzeugpalette legen

Grüße
Klaus 

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

---

Danke dir Klaus für diese Möglichkeit. 

Aber es ging mir genau darum die Werkzeugpalette nicht zu benutzen.

Danke Trotzdem.

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