---

Guten Abend!

Ich möchte folgendes kleine LISP-Makro in VBA für AutoCAD 2008 neu schreiben.

(defun c:a () (store)
  (laysetzen "_Elektro") 
  (command "_insert" "sch01" pause "" "" pause)
  (restore)
)

Funktion: Die Tastatureingabe von „a“ in der AutoCAD Kommandozeile fügt die Datei sch01.dwg auf dem passenden Layer ein, fertig.

Derzeit kann ich noch nicht einschätzen wie viel Aufwand hierfür in VBA getrieben werden müsste. Ich weis nicht einmal wie ich die Tastatureingabe von „a“ abfangen soll :-/
Laut Hilfe müsste hierfür erst einmal ein LISP-Makro …

(defun c:a () (store)
  (command "-vbaausf" " "Makroname")
  (restore)
)

erstellt warden???

Für Eure Tipps wäre ich dankbar :-)

Matthias

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

---

Hi Matthias,

Um ein VBA-Makro aufzurufen reicht folgende Lispzeile:
(Defun c:Stempel (/) (VL-VBARun "Stempel"))
Um den Block am Cursor hängend einzufügen benötigst du aber noch eine Lispfunktion. Suche mal nach BlockIn hier im Forum. Bei der InsertBlock-Methode im VBA (ist in der Hilfe gut beschrieben) muss die Einfügeposition übergeben werden und der Block wird direkt eingefügt, also nicht am Cursor hängend.
Zum Layer umschalten und wieder zurückschalten schau dir mal das Beispiel "ActiveLayerExample" in der Hilfe an. Da ist das sehr gut beschrieben.

Gruß, Carsten

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

---

Ich hoffte VBA Code ohne Zuhilfenahme von LISP nutzen zu können, schade.

Danke für deine Erklärung, somit komme ich weiter! 

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