---

Hallo, ich möchte gerne in einem Part per Macro ein GS umbenennen oder gleich eins mit einem bestimmten Namen einfügen.

Geht das nicht über Rename??

------------------
What about RTFM ?? 

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

---

GS = Geometrisches Set??

Wenn ja dann so:

Neues Set erstellen:

Code:

---

Sub CATMain()

    Set MyNewhybridbody = CATIA.ActiveDocument.Part.HybridBodies.Add
   
    MyNewhybridbody.Name = "klaus"

End Sub

---

Und so wird bestehender Name ganz einfach geändert:

Code:

---

Sub CATMain()

    'Name vorher
    MsgBox CATIA.ActiveDocument.Part.HybridBodies.Item(1).Name
   
    'Jetzt wird geändert
    CATIA.ActiveDocument.Part.HybridBodies.Item(1).Name = "da gugst du was"
   
    'Name nacher
    MsgBox CATIA.ActiveDocument.Part.HybridBodies.Item(1).Name

End Sub

---

Gruß
Bobby

------------------
Du musst die Leute einmal richtig ärgern, dann wirst du endlich ernst genommen.
Konrad Adenauer

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

---

Komisch...

Bei mir schmeisst er einen Fehler raus     

Ich werde es Morgen nochmal in der Arbeit versuchen.. Vielleicht gehts da 

------------------
What about RTFM ?? 

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

---

Hmmm

Wenn ich das so mache:

Code:

---

Language="VBSCRIPT"

Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As Document
Set partDocument1 = documents1.Item("Part1.CATPart")

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Add()

hybridBody1.Name = "KLAUS"

part1.Update

End Sub

---

Kommt ein GS mit Namen Klaus aber der Rename klappt einfach nicht..

------------------
What about RTFM ?? 

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

---

Zitat:

---

Original erstellt von Shaft:
Hmmm

Wenn ich das so mache:

Code:

---

Language="VBSCRIPT"

Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As Document
Set partDocument1 = documents1.Item("Part1.CATPart")

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Add()

hybridBody1.Name = "KLAUS"

part1.Update

End Sub

---

Kommt ein GS mit Namen Klaus aber der Rename klappt einfach nicht..

---

Das war doch schon ein Umbenennen. Das GS wird eingefügt und danach "Klaus" genannt. Nix mit Rename.

Code:

---

Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As Document
Set partDocument1 = documents1.Item("Part1.CATPart")

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Add()

'Jetzt wird er Klaus genannt
hybridBody1.Name = "KLAUS"
MsgBox hybridBody1.Name

'Ach nein, es ist ja Hans
hybridBody1.Name = "Hans"
MsgBox hybridBody1.Name

'Oder doch Peter?
hybridBody1.Name = "Peter"
MsgBox hybridBody1.Name

'Hmm glaub Fritz
hybridBody1.Name = "Fritz"
MsgBox hybridBody1.Name

part1.Update

End Sub

---

Gruß
Bobby

------------------
Du musst die Leute einmal richtig ärgern, dann wirst du endlich ernst genommen.
Konrad Adenauer

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

---

OK     

Jetzt habe ich es auch gerafft.. 

Danke für die Hilfe 

------------------
What about RTFM ?? 

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