---

Hallo zusammen,

ich habe eine Routine geschrieben, die alle offenen Zeichnungen in eine Datei plottet(für jede Zeichnung eine eigene Datei)

Nun überschneiden sich die Druckaufträge und das Tool steigt aus.

Ich dachte mir ok, dann mach ich eine Function die das Attribut FileLen für die zuletzt gedruckte Datei solange aufruft bis die Datei vorhanden ist.

Ich habe also in der Function gesagt "On error goto springer" und habe ihn dann vom springer wieder in den FileLen zurückgeschickt.

Ich dachte ich kann so eine Schleife erzeugen bis die Datei vorhanden ist und dann macht mein Tool mit der nächsten Zeichnung weiter.

Leider funktioniert das mit dem On Error nur einmal.

Hat jemand eine Idee wie ich den Vorgang so lange anhalten kann, bis die Datei gedruckt ist?

Gruß Ralph

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

---

Hallo Ralph,

ohne genau in dein Problem einzusteigen....

Eine Schleife die wartet bis eine Datei da ist kannst du auch ohne On Error machen. Such doch nach dem Dateinamen wie so z.B.

Code:

---

While dir(Datei)=""

wend

---

ansonsten solltest du das Error Objekt mit err.clear wieder freimachen.
Stelli

------------------
Warum lisp'eln wenn's auch anders geht. 
www.ib-stelberg.de

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

---

Prima, das geht.

Muß allerdings trotzdem noch mit dem Timer Objekt ein paar Sekunden aussetzen, da das Acad anscheinend obwohl die Datei da ist trotzdem noch nicht bereit für den nächsten Druck ist.

Dankeschön

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

---

Hi Ralph,

Ich würde dir vorschlagen es mit dem Endplot Event zu versuchen denn das wird ausgelöst wenn der Plot zuende ist, und in dieses schreibst du dann wieder den Aufruf deines Plotmakros.
Der große vorteil hierbei ist, dass keine Schleife den Rechner belastet.

Prinzipiell so:

========Modul1=========
Sub Plotten()

Dim stapelplotten as boolean

stapelplotten = True

If Application.Documents.count > 0 then
'Hier dein Code zum Plotten der gerade aktiven Zeichnung
Else
stapelplotten = False
Msgbox "Alle Zeichnungen wurden geplottet"
End If

End Sub
=======================
======THISDRAWING======

Private Sub Acaddocument_EndPlot(ByVal DrawingName As String)

If stapelplotten = True Then Plotten

End Sub
=======================

Wichtig hierbei ist, du musst unter "Extras" "Optionen" "Plotten und Publizieren" den Haken bei Plotten im Hintergrund rausmachen, sonst wird das Event zu früh ausgelöst und du hast wieder das Problem, dass er noch nicht bereit ist für den nächsten Plot!

[Diese Nachricht wurde von Andreas Widmann am 01. Dez. 2006 editiert.]

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