---

Hallo Ich habe mehrer Konstruktionstabelle erstellt die unterschiedlich viele Teile erstellen können.
Nun möchte ich mit ein Makro programieren, das mir alle Teile der Konstruktionstabelle einmal aufmacht und dazwischen 5sec. lang anzeigt. Damit ich einmal raufschauen kann ob die Radien uns Fasen Obtisch gut aussehen.

Habe nun 2 kleine(Hoffe ich mal) Probleme:

1. Momentan wird das letze Teil immer wieder angezeigt, weil ich nicht das ende der Konstruktionstabelle bestimmen kann.
Habe es mit .count versucht, wie ich es bei der Anzahl der geöffneten Fenster schon kenne aber funktionirt leider nicht.

2. Gibt es eine Funktion, die die 5 Sec. Pause hin?
Meine unschöne Lösung des Hochzählen, gibt es bestimmt auch in schön.

Language="VBSCRIPT"

Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set relations1 = part1.Relations

Name = part1.name

Set designTable1 = relations1.Item(Name)

'    Anzahl = designTable1.Configuration.count
'    For I = 1 to Anzahl step 1

For I = 1 to 400 step 1

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set relations1 = part1.Relations

Set designTable1 = relations1.Item(Name)

designTable1.Configuration = I

part1.Update

'Hochzählen für Pause
For J =1 to 500000
J = J+1
Next

Next

End Sub

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

---

Servus
Die Anzahl der Konfiguration einer DesignTable bekommst du über "ConfigurationsNb" (siehe auch Doku).
Die "Pause" könntest du über Sleep (WindowsAPI, siehe zB hier) lösen

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Ninja,

noch zwei kleine Anmerkungen zum Makro:

Der Default-Wert für Step bei For-Next-Schleifen ist '1'. Die 'Step 1' ist somit überflüssig.
Ein kleines 'DoEvents' nach dem Update wär' nicht schlecht.

Tschau,
Joe

------------------
The problem with the world is that the intelligent people are full of doubts, while the stupid ones are full of confidence.
~Charles Bukowski

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