---

Hallo Ich bin ganz neu dabei bei der Programmierung also seid bitte nachsichtig
Und zwar möchte ich mehrere CADParts aus einer Designtabelle(vorhanden) erzeugen und unter bestimmtem Namen abspeichern.
Ich hab eine Laufvariabel i eingeführt und hoffe das funktioniert auch so. Wenn nicht bitte bescheid geben.
Leider bekomme ich folgende Fehlermeldung:
Beschreibung: Anweisungsende erwartet (also bei dem SaveAs)

Vielen Dank für die Hilfe!

Hier mein Quellcode:

Language="VBSCRIPT"

Sub CATMain()
Set i=1

for i=1 to 5

Set partDocument(i) = CATIA.ActiveDocument

Set part(i) = partDocument(i).Part

Set relations(i) = part(i).Relations

Set designTable(i) = relations(i).Item("Radkoerper_tiefgezogen_Stufe2_Matrize")

designTable(i).Configuration = i

part(i).Update

Set bodies(i) = part(i).Bodies

Set body(i) = bodies(i).Item("Hauptkörper")

Set sketches(i) = body(i).Sketches

Set sketch(i) = sketches(i).Item("Skizze.(i)")

Set constraints(i) = sketch(i).Constraints

Set constraint(i) = constraints(i).Item("Länge.29")

Set length(i) = constraint(i).Dimension

length(i).Value = 50.000000

partDocument(i).SaveAs "Z:\1_ UTG\Autoform\gutversuche\" & 00(i)ZS2.name

end if

i=i+1

End Sub

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

---

Servus
An fasst allen stellen Kannst du das "i" weglassen.
Wenn du eine mit for eine Schleife beginnst musst du auch irgendwo mit "next" beenden.
Du beendest eine Bedingung mit "End If", beginnst deise aber nirgendwo.
In der Zeile mit dem Fehler ist wohl nicht eindeutig was ein String und was eine Variabel ist. Was ist darin  "00", was ist "ZS2.name"?

Gruß
Bernd

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

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

---

Hi TA,

wie der Bernd schon schreibt: Der Aufbau der Schleife ist fehlerhaft

Code:

---

Sub CATMain()
'Set i=1      'unnötig

for i=1 to 5
.
.
.
'end if    'falsch

'i=i+1    'unnötig und falsch; wird uU jede 2. übersprungen

next    'fehlt

End Sub

---

Tschau,
Joe

PS: Bitte Systeminfo ausfüllen

------------------
Inoffizielle Catia Hilfeseite

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

---

Vielen Dank für die schnelle Antwort.
Ich werde eure Tipps mal ausprobieren. Das mit dem NExt hab ich aber schon versucht. Glaube da kam die gleiche Fehlermeldung. Das mit dem End if ist mir auch aufgefallen da hab ich es aber schon abgeschickt.

00(i)ZS2 soll nur der Name für das Cadpart sein unter dem es abgespeichert werden soll. Ich hab mein Modell parametrisch aufgebaut und die Parameter verändern sich in einer Designtabelle. Es gibt also verschiedene Konfigurationen des Modells.  Deshalb habe ich i eingeführt um die i. Konfiguration (also die i. Spalte aus der Desigintabelle) von meinem Cadpart zu erstellen und dann eben diese Konfiguration im Namen genauso zu verwenden. Damit ich die erzeugten Parts auch den Spalten (also den Konfigurationen) zuordnen kann.
Deshalb "00(i)" das 00 ist eigentlich unnötig. und das "ZS2" brauch ich im Namen meiner Datei.

Ich möchte das die erste Konfiguration (also Spalte 1) 001ZS2 heißt
2.Spalte 002ZS2
3.Spalte 003ZS2

Vielen Dank für eure Hilfe

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

---

Servus
Für den Dateipfad musst du einen kompletten String (Zeichenkette) zusammensetzen. zB:

Code:

---

partDocument.SaveAs "Z:\1_ UTG\Autoform\gutversuche\" & "00" & CStr(i) & "ZS2.CATPart"

---

Gruß
Bernd

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

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

---

Hi TA,

Code:

---

Das mit dem NExt hab ich aber schon versucht.

---

Vielleicht solltest Dir doch mal die Doku zu 'For'-Schleifen bzw. 'If' anschauen ;-)
'For' ohne 'Next' gibt bei VB immer einen Fehler.
'If' ohne 'End If' und 'End If' ohne 'If' auch.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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