---

Hallo,

in AutoCAD sieht man ab und zu eine ProgressBar in der Statuszeile
laufen.
Kann man diese nutzen?
Denn ich habe einige Funktionen die eine kleine Weile benötigen und
bei diesen Funktionen hätte ich gern eine ProgressBar laufen, da
diese Funktionen kein Fenster benutzen.

Gruß Mario

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

---

Hallo Mario,

also ich benutze die Systemvariable "Modemacro" für die Ausgabe von Firmen eigenen Einstellungen.

Diese Systemvariable wird in der Statuszeile neben (links neben Koordinatenangabe) ausgegeben..

Ich hoffe ich konnte dir helfen...

lg mike

------------------
Michael Mair

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

---

guck dir mal den Code an.. oder den oder suche mal hier

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo,

wie ich eine eigene Progressbar erstelle weiß ich schon.

Aber ich wollte doch nur die in AutoCAD vorhandene nutzen,
das geht ja wohl doch nicht.

Na denn....

Gruß Mario

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

---

So,

nun habe ich mir ein Fenster mit ProgressBar und "x von y" Anzeige gebaut.
Ich rufe das ganze wie folgt auf:

Code:

---

Public Sub KoordLesen()
    Dim i_Count As Integer
    Dim ar_KoordItem() As String
    If (Len(GetKoordFileName) < 3) Then Exit Sub
    LoadKoordFromFile
    frm_Wait.SetStart LBound(ar_KoordList), UBound(ar_KoordList), LBound(ar_KoordList), 1, True
    frm_Wait.Show vbModeless
    For i_Count = LBound(ar_KoordList) To UBound(ar_KoordList)
        frm_Wait.StepOne
        ar_KoordItem = ar_KoordList(i_Count)
        MakeKoordPoint ar_KoordItem
    Next i_Count
    frm_Wait.Hide
End Sub

---

Das ganze funktioniert ja auch, doch es sieht nicht so toll aus.
Denn nach der auswahl der Koordinatendatei (FileOpen-Requester in
"GetKoordFileName") wird der AutoCAD-Modellbereich nicht aktualisiert,
d.h. Es sind Fragmente der Requesters zu sehen und auch das frm_Wait
ist nicht richtig zu sehen. Er zeichnet nicht den kompletten Inhalt.
Unter Delphi hat man zu diesem Zweck bei lagen Berechnungen/Schleifen
"Application.ProcessMessage()" aufgerufen.
Gib es in VBA etwas vergleichbares?

Gruß Mario

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

---

Hallo Mario,

Hier noch eine Versin, die dir den Ablauf unter der Befehlszeile und neben den Koordinaten ausgibt. Sieht allerdings etwas komisch aus, wenn das Koordinatenfeld und die Buttons nach rechts geschoben werden.

Public sModeMacro As String
Public Sub Test()
Dim i
    'initialize "progress bar"
    sModeMacro = ThisDrawing.GetVariable("MODEMACRO")
    ThisDrawing.SetVariable "MODEMACRO", "Progress: |"
For i = 0 To 50
            'update "progress bar" inside loop
            s = ThisDrawing.GetVariable("MODEMACRO")
            ThisDrawing.SetVariable "MODEMACRO", s & "|"
Next i
ThisDrawing.SetVariable "MODEMACRO", "."
End Sub

Gruß, Carsten

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

---

Hallo Mario,

versuchs do mal mit frm_Wait.refresh und Doevents dahinter.

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

---

@Stelli

"DoEvents" ist des Rätsels Lösung. 10Units

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