| |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für CATIA & Co. |
| |
 | KISTERS 3DViewStation: verbesserte Effizienz durch optimierte Bedienoberfläche, eine Pressemitteilung
|
Autor
|
Thema: GS umbenennen (1525 mal gelesen)
|
Shaft Mitglied Entwicklungsingenieur

 Beiträge: 94 Registriert: 19.11.2003 CATIA V5 R14 auf HP
|
erstellt am: 23. Mai. 2006 15:40 <-- editieren / zitieren --> Unities abgeben:         
|
Bobby_Joe2001 Mitglied Konstrukteur

 Beiträge: 81 Registriert: 15.01.2006
|
erstellt am: 23. Mai. 2006 20:00 <-- editieren / zitieren --> Unities abgeben:          Nur für Shaft
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 |
Shaft Mitglied Entwicklungsingenieur

 Beiträge: 94 Registriert: 19.11.2003 CATIA V5 R14 auf HP
|
erstellt am: 23. Mai. 2006 21:02 <-- editieren / zitieren --> Unities abgeben:         
|
Shaft Mitglied Entwicklungsingenieur

 Beiträge: 94 Registriert: 19.11.2003 CATIA V5 R14 auf HP
|
erstellt am: 23. Mai. 2006 21:09 <-- editieren / zitieren --> Unities abgeben:         
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 |
Bobby_Joe2001 Mitglied Konstrukteur

 Beiträge: 81 Registriert: 15.01.2006
|
erstellt am: 23. Mai. 2006 21:24 <-- editieren / zitieren --> Unities abgeben:          Nur für Shaft
Zitat: Original erstellt von Shaft: HmmmWenn 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 |
Shaft Mitglied Entwicklungsingenieur

 Beiträge: 94 Registriert: 19.11.2003 CATIA V5 R14 auf HP
|
erstellt am: 23. Mai. 2006 21:39 <-- editieren / zitieren --> Unities abgeben:         
|