| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Mehrere Dateien mit Lisp bearbeiten (3081 mal gelesen)
|
Hunchback Mitglied CAD-Tech
Beiträge: 63 Registriert: 10.10.2007 Win2K AutoCAD 2007
|
erstellt am: 25. Jun. 2008 11:02 <-- editieren / zitieren --> Unities abgeben:
Hi, ich hänge gerade bei dem Versuch, mehrere .dwgs hintereinander zu öffnen und dann ein Lisp drüberlaufen zu lassen und wieder zu schließen. Der Code (vereinfacht): Code: ;;;-----------------------------------------------------(defun c:idc-mfs (/ myfilelist) (setvar "LISPINIT" 0) ;;;(setvar "FILEDIA" 0) (setq myfilelist ;;;dcl_Multifiledialog kommt mit OpenDCL, ist wie ;;;getfiled, gibt eine Liste mit Pfad und Dateinamen zurück: (dcl_MultiFileDialog (list "Plandateien|*.dwg" ) "Plandateien auswählen:" "c:" ) ) (foreach n myfilelist (schreiben n)) ;;;(setvar "FILEDIA" 1) (setvar "LISPINIT" 1) ) ;;;---------------------------------------------- (defun MyOpen (FileName ReadOnly /) (vla-Open (vla-get-Documents (vlax-get-Acad-Object) ) FileName (if ReadOnly :vlax-true :vlax-false ) ) ) ;;;------------------------------------------------------------ (defun schreiben (myfile) (myopen myfile nil) (alert "Mach was!") (command "_.close") )
Nach dem Programmstart kann ich meine gewünschten files auswählen, es öffnet sich auch die erste Datei, dann aber kommt wieder die Zeichnung von der aus das Lisp gestartet wurde, die alert-Box erscheint und nach bestätigen wirft er einen "Automatisierungsfehler ungültiger Ausführungskontext". SDI ist auf 0. Hat jemand eine Ahnung woran ich da scheitere? Oder sollt ich sowas über ein script realisieren? Grüße
Martin ------------------ You seem (in my (humble) opinion (which doesn't mean much)) to be (or possibly could be) more of a Lisp programmer (but I could be (and probably am) wrong). Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 25. Jun. 2008 11:09 <-- editieren / zitieren --> Unities abgeben: Nur für Hunchback
das Lisp läuft nur in der aktuellen Zeichnung ... also : am besten _script verwenden .. das nacheinander die Zeichnungen öffnet, das Lisp lädt und anschließend ausführt und wieder speichert und schließt... oder die acaddoc.lsp manipulieren oder ActivX verwenden ... da kann auf mehrere Zeichnungen zugegriffen werden. ------------------ - 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 |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 25. Jun. 2008 11:14 <-- editieren / zitieren --> Unities abgeben: Nur für Hunchback
Hallo Martin, ohne das ich mir das jetzt alles angeschaut habe, wenn Du eine Scriptmodus verwenden willst kannst Du folgendermaßen vorgehen: - SDI muss auf 1 stehen (nur eine Datei), kann z.B. in acad.lsp gesetzt werden. Dann ist die erste geöffnete Datei Deine Startdatei, Du startest Dein Lisp und wählst die zu öffnenden Zeichnungen aus. Zudem mußt Du, z.B. in einer externen Textdatei die Dateipfade und Namen der ausgewählten DWG-Dateien speichern, vorzugsweise als Liste. Dann wird die erste Datei von den ausgewählten geöffnet. In der acaddoc.lsp erfolgt jetzt der Funktionsaufruf (machwas) wenn der Dateipfad und Name in der gespeicherten Liste enthalten ist. Nach dem erfolgreichen Programmablauf muß der Dateipfad und Name der aktuell geöffneten Datei aus der gespeicherten Liste entfernt werden, und ab geht es zur nächsten Datei. Naja, sehr theoretisch, aber vielleicht kannst Du ja ein bißchen was mit anfangen ------------------ viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Hunchback Mitglied CAD-Tech
Beiträge: 63 Registriert: 10.10.2007 Win2K AutoCAD 2007
|
erstellt am: 25. Jun. 2008 11:29 <-- editieren / zitieren --> Unities abgeben:
Danke, Thomas und Jörn, dann muß ich das also komplett umstricken. Ich dachte eigentlich, wenn ich LISPINIT auf 0 setze, läuft das auch zeichnungsübergreifend. Wieder mal was dazugelernt. kthx Martin ------------------ You seem (in my (humble) opinion (which doesn't mean much)) to be (or possibly could be) more of a Lisp programmer (but I could be (and probably am) wrong). Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 25. Jun. 2008 14:21 <-- editieren / zitieren --> Unities abgeben: Nur für Hunchback
|
Hunchback Mitglied CAD-Tech
Beiträge: 63 Registriert: 10.10.2007 Win2K AutoCAD 2007
|
erstellt am: 12. Sep. 2008 07:57 <-- editieren / zitieren --> Unities abgeben:
Und hier unsere Lösung: Wir haben mit c# eine Eingabemaske gestrickt, die AutoCAD startet und ein aus der Eingabemaske generiertes script mitgibt.Funktioniert klaglos. Auch mit LT (+Extender). Grüße Martin ------------------ You seem (in my (humble) opinion (which doesn't mean much)) to be (or possibly could be) more of a Lisp programmer (but I could be (and probably am) wrong). Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 12. Sep. 2008 08:05 <-- editieren / zitieren --> Unities abgeben: Nur für Hunchback
Hallo, wenn ich mehrere zeichnungen mit einer lisp-Funktioon bearbeiten möchte, dann lege ich diese in ein Verzeichnis, und erzeuge dort dann eine acaddoc.lsp. Diese sieht dann meist so aus:
Code:
(LOAD "XXX.LSP") (c:BEFEHL) (command "_.qsave") (command "_.close")
Dann ziehe ich die Zeichnungen aus dem Explorer via Drag'n Drop in's AutoCAD und gehe einen Kaffee trinken. Also nix kompliziertes oder extra Script... Für den schnellen Einsatz bestens geeignet. Bei fragen ... Grüße! Holger ------------------ Holger Brischke CAD on demand GmbH Individuelle Lösungen von Heute auf Morgen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |