| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: Prüfung ob Datei im Zugriff (1903 mal gelesen)
|
WolfgangE Mitglied
Beiträge: 1006 Registriert: 29.01.2003 Compass2000 in (fast) allen Ausbaustufen: Jobserver, ACM, Replikator, DBQ-Programmierung. Programmierung, Wartung und Administration von MSSQL2000-Datenbanken. Grundlegende Kenntnisse in AutoLisp-Programmierung.
|
erstellt am: 13. Sep. 2004 10:49 <-- editieren / zitieren --> Unities abgeben:
Hallo Lisp-Gemeinde, wie kann ich per AutoLisp (darf auch VisualLisp sein) prüfen, ob eine bestimmte Datei im Zugriff ist? Hintergrund: Ich erstelle per Automatismus eine PDF-Datei aus einer DWG. Diese PDF muss ich im Nachhinein umbenennen, da kein fixer Dateiname des PDFs definierbar ist. Problem: Ich gebe den PLOT-Befehl, und meine Lisp läuft dann sofort in den "vl-file-rename"-Befehl. Dabei ist die PDF aber noch gar nicht fertig, die braucht ja mehrere Sekunden, bis der Plot abgeschlossen ist. Wie kann ich nun also prüfen, wann das PDF engültig fertiggestellt ist, und meine Lisp-Routine so lange mit dem Umbenennen warten lassen? Danke und ciao, WolfgangE
------------------ An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 13. Sep. 2004 10:54 <-- editieren / zitieren --> Unities abgeben: Nur für WolfgangE
|
WolfgangE Mitglied
Beiträge: 1006 Registriert: 29.01.2003 Compass2000 in (fast) allen Ausbaustufen: Jobserver, ACM, Replikator, DBQ-Programmierung. Programmierung, Wartung und Administration von MSSQL2000-Datenbanken. Grundlegende Kenntnisse in AutoLisp-Programmierung.
|
erstellt am: 13. Sep. 2004 11:03 <-- editieren / zitieren --> Unities abgeben:
|
WolfgangE Mitglied
Beiträge: 1006 Registriert: 29.01.2003 Compass2000 in (fast) allen Ausbaustufen: Jobserver, ACM, Replikator, DBQ-Programmierung. Programmierung, Wartung und Administration von MSSQL2000-Datenbanken. Grundlegende Kenntnisse in AutoLisp-Programmierung.
|
erstellt am: 13. Sep. 2004 11:20 <-- editieren / zitieren --> Unities abgeben:
Hallo Thomas, funktioniert leider doch nicht. Manchmal scheint's zu funktionieren, dann wieder nicht. Das Dateikennzeichen wird offenbar doch noch zu früh belegt, um mit dieser Konstellation arbeiten zu können.
------------------ An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
WolfgangE Mitglied
Beiträge: 1006 Registriert: 29.01.2003 Compass2000 in (fast) allen Ausbaustufen: Jobserver, ACM, Replikator, DBQ-Programmierung. Programmierung, Wartung und Administration von MSSQL2000-Datenbanken. Grundlegende Kenntnisse in AutoLisp-Programmierung.
|
erstellt am: 13. Sep. 2004 11:24 <-- editieren / zitieren --> Unities abgeben:
Nachtrag: Das Problem würde sich von selbst lösen, wenn ich dem Adobe PDF den gewünschten Dateinamen mitgeben kann. Derzeit wird ja im Dateinamen auch das gedruckte Layout (in meinem Fall "Modell (1)" angegeben. Ich möchte aber, dass der Dateiname des PDF genau gleich wie der Dateiname vom DWG ist. ------------------ An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 13. Sep. 2004 11:25 <-- editieren / zitieren --> Unities abgeben: Nur für WolfgangE
noch ne Idee : (defun FILE-SYSTIME ( FILENAME / DATE ) (if (and(=(type FILENAME)'STR)(findfile FILENAME) (setq DATE (vl-file-systime FILENAME)) ) (progn (+(*(nth 0 DATE) 10000) (*(nth 1 DATE) 100) (nth 3 DATE) (/(nth 4 DATE) 100.0) (/(nth 5 DATE) 10000.0) (/(nth 6 DATE)1000000.0) ) ) ) ) mit cdate innerhalb einer While-Schleife solange vergleichen , bis eine gewisse(auszuprobierende Differenz)existiert... aber obs Funktioniert? .. meld dich dann mal nochmal
------------------ - Thomas - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
WolfgangE Mitglied
Beiträge: 1006 Registriert: 29.01.2003 Compass2000 in (fast) allen Ausbaustufen: Jobserver, ACM, Replikator, DBQ-Programmierung. Programmierung, Wartung und Administration von MSSQL2000-Datenbanken. Grundlegende Kenntnisse in AutoLisp-Programmierung.
|
erstellt am: 13. Sep. 2004 11:28 <-- editieren / zitieren --> Unities abgeben:
Bringt mir leider nichts. Das Plotten der Zeichnungen kann ja unterschiedlich lang dauern. Von dem her könnte ich davor einfach den PAUSE-Befehl verwenden. Das möchte ich aber deshalb nicht, weil ich die Geschwindigkeit des ganzen optimieren muss. Die Zeichnung soll nur so lange offen bleiben wie nötig. ------------------ An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 13. Sep. 2004 12:25 <-- editieren / zitieren --> Unities abgeben: Nur für WolfgangE
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 13. Sep. 2004 12:30 <-- editieren / zitieren --> Unities abgeben: Nur für WolfgangE
@Wiesel .. meinste den ? ok .. da hat wiesel wohl nach meinem Posting den Thread doch noch gefunden... jetzt haste den Hinweis halt zweimal ------------------ - Thomas -
[Diese Nachricht wurde von CADmium am 13. Sep. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 13. Sep. 2004 15:57 <-- editieren / zitieren --> Unities abgeben: Nur für WolfgangE
Hi, ich habe das mittlerweile so gelöst, dass ich mit vl-file-size die Größe der zu erstellenden Datei überwache. Verändert sie sich noch, warte ich eine Sekunde und frage wieder nach, usw. Hier die Wartefunktion, der einfach die Anzahl der zu wartenden Sekunden übergeben wird:
Code:
(defun P2P:wait (secs / nowsec) (setq nowsec (last (jtoc (getvar "date")))) (while (< (last (jtoc (getvar "date"))) (+ secs nowsec)) (Spin) ) )
(Spin) ist nur eine Funktion, die die Befehlszeile beschäftigt. Gruß CADchup ------------------ www.cadditions.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
fuchsi Mitglied Programmierer c#.net Datawarehouse
Beiträge: 1201 Registriert: 14.10.2003 AutoCad Version 2012 deu/enu <P>Windows 7 64bit
|
erstellt am: 13. Sep. 2004 16:16 <-- editieren / zitieren --> Unities abgeben: Nur für WolfgangE
wie wärs damit (while (not (try 'vl-file-rename (list old-filename new-filename)))) ;------------------------------------------------------------------------------ ; Testroutine ergibt nil im Fehlerfall ansonst den Rückgabewert der zu ; testenden Funktion ; ist der Rückgabewert der Funktion auch im Erfolgsfall nil ; wird t zurückgegeben ; ; (try '+ (list 1 2 3 4 5 6)) ergibt 21 ; (try '/ (list 5 0)) ergibt nil ;------------------------------------------------------------------------------ (defun Try ( func arg / a1 a2 ) (setq a2 (vl-catch-all-error-p (setq a1 (vl-catch-all-apply func arg)))) (cond (a2 nil) (a1 a1) (t t) ) ) ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
fuchsi Mitglied Programmierer c#.net Datawarehouse
Beiträge: 1201 Registriert: 14.10.2003 AutoCad Version 2012 deu/enu <P>Windows 7 64bit
|
erstellt am: 13. Sep. 2004 16:19 <-- editieren / zitieren --> Unities abgeben: Nur für WolfgangE
|
WolfgangE Mitglied
Beiträge: 1006 Registriert: 29.01.2003 Compass2000 in (fast) allen Ausbaustufen: Jobserver, ACM, Replikator, DBQ-Programmierung. Programmierung, Wartung und Administration von MSSQL2000-Datenbanken. Grundlegende Kenntnisse in AutoLisp-Programmierung.
|
erstellt am: 13. Sep. 2004 18:57 <-- editieren / zitieren --> Unities abgeben:
@CADwiesel und @CADmium, den Beitrag hatte ich schon gesehen. Hatte auch schon die Variante mit dem PAUSE-Befehl drin. Hatte eine Schleife gebaut, die prüfte, ob das Umbenennen funktinoierte, wenn nicht, kurze Pause und erneut versuchen. Klappt aber nicht. Die Datei wird zwar dann umbenannt, aber noch währen das PDF fertig erstellt wird. Das hat zum Ergebnis dann 2 Dateien, die umbenannte und die fertig gestellte, die inzwischen mit dem nicht gewollten Dateinamen angelegt wurde. @CADchup mal probieren. Danke an alle für die Antworten. Ciao, WolfgangE ------------------ An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |