---

Hallo ,

kann mir jemand helfen da eine Schleife reinzukriegen? Habe es nicht hinbekommen.
Nach dem Part speichern und schließen, soll der Parameter auf 2 geschaltet werden und wieder speichern und schließen, bis der Parameter denn Wert 10 erreicht hat.
Wehre sehr dankbar für eure Hilfe.

Language="VBSCRIPT"

Sub CATMain()

Set productDocument1 = CATIA.ActiveDocument
Set product1 = productDocument1.Product

Set productDocument1 = CATIA.ActiveDocument
Set product1 = productDocument1.Product
Set product1 = product1.ReferenceProduct
Set parameters1 = product1.Parameters
Set intParam1 = parameters1.Item("XY")
intParam1.Value = 1

Set oBGRoot = Catia.ActiveDocument
Set oBGProd = oBGRoot.Product
Set oProd2Part = oBGProd.GetItem("DECProductToPart")
oProd2Part.Run
sError = oProd2Part.GetError
If sError <> "" Then
  MsgBox sError, 16, " Ausnahmefehler DECProductToPart. Abbruch."
End If
Set oAllCATPart = oProd2Part.GetResult

Set partDocument1 = CATIA.ActiveDocument
partDocument1.SaveAs "C:\Neuer Ordner\" & partDocument1.name

partDocument1.Close

End sub

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

---

Servus
Ohne es getestet zu haben würde ich es so versuchen:

Code:

---

Language="VBSCRIPT"
Sub CATMain()

Set productDocument1 = CATIA.ActiveDocument
Set product1 = productDocument1.Product
Set parameters1 = product1.Parameters
Set intParam1 = parameters1.Item("XY")
Set oProd2Part = product1.GetItem("DECProductToPart")

for i = 1 to 10

intParam1.Value = i
oProd2Part.Run
sError = oProd2Part.GetError
If sError <> "" Then
  MsgBox sError, 16, " Ausnahmefehler DECProductToPart. Abbruch."
  exit sub
End If
Set oAllCATPart = oProd2Part.GetResult

Set partDocument1 = CATIA.ActiveDocument
partDocument1.SaveAs "C:\Neuer Ordner\" & partDocument1.name    ''ggf hier noch den Dateinamen eindeutig machen
partDocument1.Close

next

End sub

---

Gruß
Bernd

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

[Diese Nachricht wurde von bgrittmann am 17. Nov. 2011 editiert.]

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