---

Moin an alle,

ich muss zugeben, dass ich langsam denke die Catia-Makro-Programmierung will mich ärgern.
Ich habe folgenden Code:

-------------
Dim oDrwDoc As DrawingDocument
Set oDrwDoc = CATIA.ActiveDocument

Dim oDrwRoot As DrawingRoot
Set oDrwRoot = oDrwDoc.DrawingRoot

Dim oSheets As DrawingSheets
Set oSheets = oDrwRoot.Sheets

Dim oSheet As DrawingSheet
Dim wahr as Boolean
Dim a As Double

wahr = True
a = 1

While wahr = True
    Set oSheet = oSheets.Item(a)
    If oSheet.IsDetail = True Then
    Else
        wahr = False
    End If
    a = a + 1
Wend
-------------

Mein Problem ist jetzt, dass die Zeile "Set oSheet = oSheets.Item(a)" nicht ausgeführt wird.
Sobald ich das "a" aber durch eine "1" ersetze geht alles einwandfrei, jedoch bringt mir das nichts, da
die Abfrage dann für den Hintern ist.

Das gleiche Problem hab ich in einer "for-Schleife" bei der ich nacheinander der Variable "nview" (TYP: DrawingView)
Items aus der Variablen "nviews" (TYP: DrawingViews) zuweisen will.

-------------
For a = 1 To nviews.Count
    Set nview = nviews.Item(a)
.....
-------------

Es scheint so, als würde die Methode ".Item()" nicht mit Variablen funktionieren....

Hat jmd. ne Idee woran das liegt und wie ich das beheben kann?

Ich bin schon fast soweit eine "Select Case"-Methode zu schreiben bei der "a" abgefragt wird und
für jede mögliche größere die entsprechende Zeile zu schreiben.
Aber das kann es ja eigentlich nicht sein!!!

Über eure Hilfe würde ich mich sehr freuen.

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

---

Servus
Wie For-next-Schleife über die die Sheets/Views sollte funktionieren.
Also ich würde den Zähler a als Integer definieren. (was macht eine For-next-Schleife mit einem Double???)

Gruß
Bernd

EDIT: Was macht deine While-Schleife wenn kein DetailSheet vorhanden ist (Abbruchkriterium)

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

[Diese Nachricht wurde von bgrittmann am 21. Okt. 2013 editiert.]

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

---

Wie schon beschrieben funktioniert meine for-Schleife leider auch nicht....

Normalerweise funktioniert double bei den schleifen wie integer, aber ich werde es mal ausprobieren.  

Meine while-Schleife sucht solange alle sheets ab, bis es eins gefunden hat, dass KEIN detailsheet ist.
(der aufbau meiner sheets ist immer gleich, denn es gibt immer genau 1 sheet, das kein detail ist  

EDIT: !!!!!!!!!! DANKE !!!!!!!!!!!!!!!! double in integer gewandelt und SCHWUPP ist die Welt wieder in Ordnung.  *freu*

[Diese Nachricht wurde von Hamlet am 21. Okt. 2013 editiert.]

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

---

Servus
Ich würde eher eine For-Next-Schleife (oder For-each) verwenden.
Wenn mal die Voraussetzungen nicht verfüllt sind, hast du eine Endlos-Schleife.

Gruß
Bernd

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

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

---

ich hatte vorher ne for-Schleife.
Da ich aber nicht wusste woran es liegt, dass es nicht klappt, hatte ich es mal in while gewandelt.

--> ist schon wieder eine for-Schleife geworden 

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