---

Hallo zusammen,

ich hätte eine Frage bei der Ihr mir mit Sichertheit weiterhelfen könnt. Im Forum habe ich leider nichts konkretes gefunden.

Ich habe ein Macro geschrieben, mit welchem ich Parts erzeuge die einen fortlaufendn Namen haben. Leider tretten zwei Fehler auf. Beim ersten Fehler verstehe ich nicht so recht wieso er Auftritt und beim zweiten weiß ich nicht wie man ihn behebt.

Fehler Nummer eins:
Wenn ich das Programm das erste mal ausführe erstellt er mir wie gewünscht mein erstes Part mit dem Namen "Variante_01". Beim zweiten durchlauf sollte eigentlich "Variante_02" erscheinen. Was aber passiert, ist das er mir soviele Varianten_XX bis _XY erstellt wie lang meine For Schleife geht. An was könnte das liegen?

Fehler Nummer zwei:
Ab dem zweiten mal wenn ich das Makro durchführe erscheint rein theoretisch immer ein Fehler beim erzeugen des Parts(durch Set product3 = products2.AddNewComponent("Part", Name) weil der Name identisch zum ersten ist), was aber durch "On Error Resume Next" unterbunden wird. Dabei ersteht ein neues Part welches ich nicht gebrauchen kann. Gibt es eine Möglichkeit die Erstellung dieses Parts welches während der nicht zu sehenden Fehlermeldung erstellt wird zu unterdrücken?

Schonmal danke im voraus für eure Hilfe

Grüße Ivanl

Anbei mein Programmcode

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As Product
Set product1 = productDocument1.Product

Dim products1 As Products
Set products1 = product1.Products

Dim product2 As Product
Set product2 = products1.Item("Product2.1")

Dim products2 As Products
Set products2 = product2.Products

Dim product3 As Product

Dim i As Integer
Dim Name As String

'Fehlerbehandlng auschalten
On Error Resume Next

For i = 1 to 10

Name = "Variante_" & Right(CStr(i + 100), 2)

Set product3 = products2.AddNewComponent("Part", Name)

If Err.Number <> 0 then

'durch If Abfrage durchlaufen ohne was zu tun

else
Exit For

End If

Next

Err.Clear
'Fehlerbehandlng einschalten
On Error GoTo 0

End SUb

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

---

Guten Tag,

bei einem neuen Product lief Ihr Makro so bei mir durch und erzeugte Variante_01 - Variante_10.

Bei dem zweiten Fehler kann ich nur sagen, das bei Erneutem Ausführen ja auch erneut Elemente mit gleichem Namen erzeugt werden.
VORSICHT wenn Sie bei Tests Ihr Makro ausgeführt haben. Die Parts gelöscht haben und es erneut Probieren wollten. Die Part sind noch immer als Document in Catia Aktiv! Siehe Catia.Documents - diese dann erst schließen.

If Err.Number <> 0 then
'durch If Abfrage durchlaufen ohne was zu tun
else
Exit For
End If

Wieso nicht:
If Err.Number = 0 then Exit For

Noch nen Tipp am rande. Kann man sich ein Problem bei Catia einfach nicht erklären... Einfach mal Catia neustarten 

mfg

gladly

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

---

Hallo gladly.

Sie meinem bei Ihnen läuft es durch und erzeugt variante_01 bis variante_10. Bei mir auch. Aber bei mir erzeugt es die 10 Varianten nach nur 2 maligen ausführen des Makros. Ich wollte das nach jedem ausführen eine Variante hinzukommt. Das quasi erst nach der 10ten Ausführung "Variante_10" angezeigt und erstellt wird.

Grüße Ivanl

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

---

Servus
Durch die For-Schleife werden 10 Varianten auf einmal erzeugt, da ja kein Abbruch Kriterium vorhanden ist.
Schau mal hier findest d ein ähnliches Beispiel, allerdings im Part mit GeoSets.
Möglicher Ablauf für dein Problem (ungetestet):
- innerhalb einer Schleife versuchen über den Namen (zB products2.item("Variante_" & i)) auf das Product des Parts zugreifen, falls diese gelingt zum nächsten wechseln
- falls ein Fehler zurückgeliefert wird das Part (mit aktueller Laufvariable) der entsprechenden Variante erzeugen

Gruß
Bernd

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

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

---

Entschuldigung, da hatte ich das Problem leider komplett missverstanden. Deshalb auch die Abbruchsregel...
Mein Vorredner hat ja etwas passendes dazu begesteuert. Prüfen ob es das schon gibt.

Oder (Nicht gerade zu empfehlen) wie momentan einfach anfangen parts zu erstellen und Fehler überspringen. Fals fehler auftaucht letztes Part wieder löschen. (.item(.count))

Oder wieder etwas schönen. Suche nach "Variante_*" -> nächstes Element = Variante_Count+1

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

---

Hi Bernd,

ich dachte ich hätte ein Abbruch Kriterium drinnen.

For i = 1 to 10
Name = "Variante_" & Right(CStr(i + 100), 2)
Set product3 = products2.AddNewComponent("Part", Name)
If Err.Number <> 0 then

  'Wenn Fehler aufgetretten
  'if Abfrage verlassen
  'und in For schleife springen
  'welche dann weiter zählt

else

  'Wenn kein Fehler auftritt
  'For Schleife verlassen und
  'Makro beenden

  Exit For

End If

Next

Ich dachte das führt mein Programm aus. Ich Versuche mal deinen Ansatz.

Grüße Ivanl

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

---

Hallo zusammen,

danke nochmal für die Tipps. Jetzt funktioniert es richtig.

Grüße Ivanl

Hier der funktionierende Programmcode

-----------------------------------------------
Sub CATMain()

Set productDocument1 = CATIA.ActiveDocument

Set product1 = productDocument1.Product

Set products1 = product1.Products

Set product2 = products1.Item("Product2.1")

Set products2 = product2.Products

'Set product3 = products2.Item("Variante_01.1")

Dim i as Integer
Dim Name as String

For i = 1 to 10

On Error Resume Next

Set product3 = products2.Item("Variante_0" & i & ".1")

if Err.Number <> 0 then

Name = "Variante_" & Right(CStr(i + 100), 2)

Set product4 = products2.AddNewComponent("Part", Name)
exit For

end if
Next

Err.Clear
'Fehlerbehandlng einschalten
On Error GoTo 0

End Sub
--------------------------------------------

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