---

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

---

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

---

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

---

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

---

Hallo Martin,

und dann gibt es noch ScriptPro bzw. SCC2 und gleiche Abläufe über viele Dateien zu ziehen.
Wenn Du die Forensuche damit fütterst, kommt reichlich Lesestoff.

LG
Thomas

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

---

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

---

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