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