---

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

---

Vielleicht reicht ja der Ansatz:

(defun FILE-WRITEPROT? (FILENAME / FILE)
  (if (setq FILE (open FILENAME "a"))   
    (close FILE)
    'T
  )
)

------------------
- Thomas -

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

---

Hallo Thomas,

genau das ist es! Besten Dank auch!

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

---

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

---

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

---

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

---

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

---

dazu gabs schonmal vor längerer Zeit einen Threat aber ich weiß nicht mehr genau, worum's da im speziellen ging - ma suchen...

vielleicht ist's das
------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

@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

---

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

---

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

---

mein vorschlag ist vielleicht doch nicht so gut.

sollte bei der pdf-erstellung ein fehler auftauchen (datei wird nicht erzeugt) läufst du in eine endlosschleife

------------------

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

---

@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