---

Hi,
ich brauch mal wieder eure Hilfe,
und zwar liegt mir ein Macro vor, das automatisch in einem Produkt alle InstanceNames abändert in die PartNumber.
Nun möchte ich dieses Macro erweitern, das er ausschließlich die InstanceNames innerhalb eines Produkts umbenennt, die eine Nummer enthalten, wo man über ein Eingabefenster eingibt. Alle anderen InstanceNames sollen den ursprünglichen Namen behalten.

Leider erscheint eine Fehlermeldung.

Hier ist mein abgeändertes Makro (alles was ich ergänzt haben, ist fett gedruckt!-->hier muss irgendwo der Fehler liegen):

SET REFP = PROD.REFERENCECOMPONENT
NEWSTR = INPUTBOX ("ZU ERSETZENDEN NAME/NUMMER IM INSTANCENAME", "SUCHE UND ERSETZE (ERSETZE)")

Sub CATMain()

Set oMainProduct = CATIA.ActiveDocument.product
Dim oMainProducts As Products
Set oMainproducts = oMainProduct.Products

Umbenennen oMainProducts

End Sub

Sub Umbenennen(oProducts As Products)

Dim oPartName As String
Dim oName As String
Dim i As Long

IF INSTR(REFP.INSTANCENAME, ORIGSTR) THEN

For x = 1 to oProducts.Count

Set oInstance = oProducts.Item(x)
oNumber = oInstance.PartNumber
oName = oInstance.Name

i=0

Do

On Error Resume Next

i = i+1

If i>5000 Then  ' Zahl soll angepasst werden
Exit Do
end If

oInstance.Name = oNumber & "." & i

If Err.Number = 0 Then

Umbenennen oProducts.Item(x).ReferenceProduct.Products
Exit Do
ElseIf Err.Number = -2147467259 Then
Err.Clear
Err.Number = 0
Else
Exit Do
End If
Loop
If oInstance.Products.Count > 0 Then
Umbenennen oInstance.Products
End If
Next

END IF

End Sub

Ich hoffe mir kann jemand weiterhelfen.

Gruß
Svenja

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

---

Servus Svenja

Wenn Code ausgeführt werden soll muss dieser auch innerhalb einer Routine/Funktion sein.
CATMain dient damit als Einstiegspunkt für den Ablauf.
Willst du nun "nur" einen Namensteil ersetzen oder wie in deinem gepostetet Makro auch die Instanzen neu durchnummerieren?
Das Makro ist rekursiv aufgebaut, hangelt sich durch alle Ebenen des Baums hinunter. Ist das von dir so gewollt?
Ich vermute dass dir noch ein paar Grundlagen zu VB(A) fehlen. ggf mal noch eine Grundlagenschulung machen/durcharbeiten.

Gruß
Bernd

PS: Bitte Code in entsprechenden Tags posten.

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

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

---

Hi Svenja,

Zitat:

---

ist fett gedruckt!

---

Wirklich?

Zitat:

---

Leider erscheint eine Fehlermeldung.

---

... die da lautet?
Tschau,
Joe

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

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

---

Fehlerverweis_InstanceName.png

Hallo Zusammen,

@Bernd:
ja ich bin leider noch nicht ganz fit in VB(A), werde demnächst aber noch einen Kurs besuche.
Stimmt ich habe versehentlich die ersten beiden Zeilen ausserhalb der Routine geschrieben, da wird natürlich nichts abgearbeitet....habs geändert, Fehlermeldung erscheint dennoch.
ich möchte bei allen InstanceNamen, die beispielsweise den Text XXXXX enthalten den kompletten InstanceName mit der PartNumber ersetzen.

@Joe:
ich korrigiere, ist nicht fett gedruckt, sondern in GROßBUCHSTABEN geschrieben!
Fehlermeldung ist im Anhang.

Hier nochmal der momentane Makro-Code:

Sub CATMain()

SET REFP = PROD.REFERENCECOMPONENT
NEWSTR = INPUTBOX ("ZU ERSETZENDEN NAME/NUMMER IM INSTANCENAME", "SUCHE UND ERSETZE (ERSETZE)")
Set oMainProduct = CATIA.ActiveDocument.product

Dim oMainProducts As Products
Set oMainproducts = oMainProduct.Products

Umbenennen oMainProducts

End Sub

Sub Umbenennen(oProducts As Products)

Dim oPartName As String
Dim oName As String
Dim i As Long

IF INSTR(REFP.INSTANCENAME, ORIGSTR) THEN

For x = 1 to oProducts.Count

Set oInstance = oProducts.Item(x)
oNumber = oInstance.PartNumber
oName = oInstance.Name

i=0

Do

On Error Resume Next

i = i+1

If i>5000 Then  ' Zahl soll angepasst werden
Exit Do
end If
oInstance.Name = oNumber & "." & i
If Err.Number = 0 Then

Umbenennen oProducts.Item(x).ReferenceProduct.Products
Exit Do
ElseIf Err.Number = -2147467259 Then
Err.Clear
Err.Number = 0
Else
Exit Do
End If
Loop
If oInstance.Products.Count > 0 Then
Umbenennen oInstance.Products
End If
Next
END IF

End Sub

Ich vermute das mein Zugriff auf den InstanceName falsch ist.
(set refp = Prod.ReferenceComponent
und if instr(refp.InstanceName, origstr))

Ich hoffe Ihr könnt mir helfen.
Bestimmt ist es nur ein kleiner Leichtsinnsfehler, aber ich komm grad einfach nicht drauf.

Vielen Lieben Dank schon mal im voraus für eure Hilfe.

Gruß Svenja

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

---

Hallo,

also von der Struktur her müsste es wohl eher so sein (ungetestet).
IF INSTR(oInstance.Name, NEWSTR) THEN
  i = i +1
  oInstance.Name = oNumber & "." & i
END IF

Was du mit der Zeile:
SET REFP = PROD.REFERENCECOMPONENT
überhaupt willst verstehe ich nicht. Zumal es die erste Zeile in CATMain ist. Wo kommt denn da das PROD her? - darum auch die Fehlermeldung. Mal abgesehen davon das es meines Wissens nach kein REFERENCECOMPONENT gibt, vielleicht meinst du ja ReferenceProduct. Würde an der Stelle aber auch keinen Sinn machen.

Gruß
Randle

[Diese Nachricht wurde von Randle am 31. Mrz. 2017 editiert.]

[Diese Nachricht wurde von Randle am 31. Mrz. 2017 editiert.]

[Diese Nachricht wurde von Randle am 31. Mrz. 2017 editiert.]

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