---

Hallo zusammnen,
ich möchte in einem Catpart einen Body,ein Achsensystem und ein Parameter(mass) umbenennen

In die Benennung sollte zusätzlich die Partnumber eingefügt werden.
Es funktioniert bei Body un dAchsensystem bei dem Parameter nicht...
unten mein code..

ps. Anschliessend sollten die Objekte publieziert werden!

Sub CATMain()

Dim ergebnis As String
result = "RESULT_"+Catia.ActiveDocument.Product.PartNumber

Dim gewicht As String
gewicht = "WEIGHT_"+Catia.ActiveDocument.Product.PartNumber

Dim achsensystem As String
achsensystem = "AXS_"+Catia.ActiveDocument.Product.PartNumber

' ============ Rename_RESULT ============

Set partDocument1 = CATIA.ActiveDocument

Set selection1 = partDocument1.Selection

selection1.Search "(Name=RESULT* & CATPrtSearch.BodyFeature),all"

For i = 1 To CATIA.ActiveDocument.selection.Count

CATIA.ActiveDocument.selection.Item(i).Value.Name = result
Next

' ============ Rename_WEIGHT ============

Set partDocument1 = CATIA.ActiveDocument

Set selection1 = partDocument1.Selection

selection1.Search "(Name=WEIGHT* & CATKnowledgeSearch.InternalParameter),all"

For i = 1 To CATIA.ActiveDocument.selection.Count

CATIA.ActiveDocument.selection.Item(i).Value.Name = gewicht
Next
' ============ Rename_AXS ============

Set partDocument1 = CATIA.ActiveDocument

Set selection1 = partDocument1.Selection

selection1.Search "Name=AXS*,all"

For i = 1 To CATIA.ActiveDocument.selection.Count

CATIA.ActiveDocument.selection.Item(i).Value.Name = achsensystem
Next

End Sub

[Diese Nachricht wurde von jeremia am 29. Okt. 2009 editiert.]

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

---

Wo liegt das Problem genau?

Findet CATIA über die Suchabfrage keine Elemente?

Gib einfach mal die Anzahl gefundenen Elemente in einer msgbox aus (selection.count).
Falls die Anzahl 0 ist, würde ich die Suchabfrage modifizieren.

Grüße Dominik

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

---

doch Catia findet bei der Suchabfrage den Parameter...

mir geht  es um folgendes:

ich habe  in dem Catpart ein Achsensysten - "AXS..." einen Body "Result..." und einen parameter "Weight...". Mit dem Makro sollen sie  AXS_'Partnumber'....heissen.

Wie gesagt geht es beim Body und beim achsensysten leider beim Parameter streikt Catia....

Einfach ein catpart erzuegen mit einem achsensystem "AXS...",  Body  mit Namen "Result...", und Parameter "Weight.." und das Script ausfühtrn....

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

---

Hallo,

ich glaube der Namen von Parametern will über ".SetName" geändert werden da die Funktion "Name" einen Laufzeitfehler generiert 

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Hallo,

es heißt genau Parameter.Rename("NeueName") laut Doku.

Gruß,
Zoltan

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