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