---

Hallo

Ich suche ein Lisp Programm oder auch VBA, dass folgendes tut:

- DWG öffnen
- SDI auf Null setzen
- Dienstprogramme, Bereinigen
- externe Vorlage einfügen
- DWG speichern
- nächste DWG öffnen

Eigenltich habe ich alles hingekriegt, ausser die Vorlage einfügen, da habe ich den Syntax noch nicht erraten.
Besten Dank für die Hilfe!

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

---

Hallo josh,

was du da vorhast, interessiert mich auch, da ich ähnliches machen möchte. Ich füge einen Block ein mit dem Kommando :
(setq Ext_Vorlage "C:/dwgs/Vorlage.dwg")
(command "_INSERT" Ext_Vorlage '(0 0 0) 1 1 0)

Anstelle von Bereinigen speichere ich die Zeichnung als Block (wblock)

Was mir aber noch Probleme macht, ist das Öffnen von Zeichnungen mit LISP. Mache ich das mit folgendem Kommando :
(setq Datei "C:/dwgs/Test.dwg")
(command "vbastmt" (strcat "AcadApplication.Documents.Open " (chr 34) Datei (chr 34)))

wird die Zeichnung zwar schön geöffnet, ist aber anscheinend nicht die aktive Zeichnung. Füge ich nach diesem Aufruf meine Vorlage ein, ist diese in der zuvor aktiven Zeichnung.
Wie öffnest du die Zeichnungen?

Grüße aus Mönchengladbach

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

---

Hallo
Hab mal ne Frage?
Die Zeichnungen die du da öffnest, sind das leere Zeichnungen oder sind schon Stücke drin?

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

---

Hallo,

@Helmut,

man kann zwar mit LISP eine Zeichnung öffnen, nur ist das Lisp nach wie vor in der Zeichnung aktiv, aus welcher die LISP gestartet wurde.

Mit VBA somit also auch mit VLISP ist es dennoch möglich auf die anderen geöffneten Zeichnungen zuzugreifen und Veränderungen vorzunehmen. Das aber auch nur, ohne diese Zeichnung aktiv zu setzen. Das heißt, alles was ohne (command ..) auskommt kann auch in der nicht aktiven Zeichnung gemacht werden. Da sich nahezu alles mittels Veränderung irgendwelcher Methoden/Eigenschaften von Objekten realisieren lässt, kann ich mir vorstellen, dass auch dein Vorhaben realisierbar ist.
Was hast du denn nach dem Öffnen weiter vor?

@josh666
du solltest dir mal die Möglichkeiten in Scripten ansehen. Damit sollte deine Aufgabe zu erledigen sein.
In Verbindung mit ScriptPro kannst du das dann auf X beliebig viele Zeichnungen anwenden.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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