---

Hallo Forum!

Ich wollte ein LISP schreiben, dass den normalen Datei öffnen Dialog von ACAD umgeht und statt dessen den magereren getfiled-Dialog anzeigt. Aber warum funktioniert das nicht? Das Lisp sieht so aus:

(defun C:WOPEN()
  (if (not Wopen_datnam) (setq Wopen_datnam "d:"))  ;Vorgabe für Dateiname setzen
  (setq Wopen_datnam (getfiled "Zeichnung Öffnen" Wopen_datnam "DWG; DXF" 4))  ;Dateiname wählen
  (setvar "filedia" 0)
  (command "_open" Wopen_datnam)  ;Datei öffnen
  (setvar "filedia" 1)
  (princ)
)

Wenn ich die Funktion lade und mit "wopen" eine Zeichnung öffnen will, dann bekommen ich immer die Meldung :

  Befehl: wopen
  _open
  Befehl: D:\Temp\Kanal.dwg Unbekannter Befehl "D:\TEMP\KANAL.DWG". Drücken Sie F1-Taste für Hilfe.

  Befehl:

Welchen Fehler habe ich gemacht? Der Openbefehl gibt NIL zurück und der Dateiname wird als Befehl interpretiert.

Stefan

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

---

Du benützt bestimmt Autocad2000 oder höher ???
Wenn ja dann liegt das Problem im MDI Mode. Das heißt du kannst mehrere Zeichnungen gleichzeitig öffnen.
Du mußt als den Mdi Mode zuerst abfragen am besten über eine If Schleife.
Versuch einmal in Autocad den Modus umzustellen über Obtionen
Vielleicht funktioniert deine Lisp in der Einzeleinstellung schon

Gruss chris

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

---

Danke Christian für deine Mühe!

Hat sich schon lange erledigt. (Siehe Forum "Rund um Autocad")

------------------
Nodda,

Stefan 

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