Autor
|
Thema: Mehrere Body gleichzeitig umbenennen ??? (6616 mal gelesen)
|
as3469_ask Mitglied Konstrukteur
Beiträge: 3 Registriert: 23.01.2006
|
erstellt am: 08. Mai. 2006 07:28 <-- editieren / zitieren --> Unities abgeben:
|
KYD Mitglied Dipl. Ing. Schiffbau
Beiträge: 629 Registriert: 24.03.2004 Catia V5 r17 (englisch) Win XP Pro SP2
|
erstellt am: 08. Mai. 2006 10:50 <-- editieren / zitieren --> Unities abgeben: Nur für as3469_ask
|
predy Mitglied Industriedesigner
Beiträge: 777 Registriert: 05.07.2003 CATIA V5R16 SP3 64Bit Windows XP Pro X64 Edition 2x Intel Xeon 3.6GHz 4GB RAM Nvidia Quadro FX 3450/4000 SDI 256MB
|
erstellt am: 08. Mai. 2006 11:09 <-- editieren / zitieren --> Unities abgeben: Nur für as3469_ask
|
as3469_ask Mitglied Konstrukteur
Beiträge: 3 Registriert: 23.01.2006
|
erstellt am: 08. Mai. 2006 11:44 <-- editieren / zitieren --> Unities abgeben:
Jo meinte Bodys !!! Das Problem ist das die Namen der Bodys nach jendem Mal rausschreiben mit GenerateCatpartfrom produkt.. immer länger werden und ich sie alle auf einmal umbenennen will. Ähnlich wie bei ner Digicam XXXX01, XXXX02 usw. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
predy Mitglied Industriedesigner
Beiträge: 777 Registriert: 05.07.2003 CATIA V5R16 SP3 64Bit Windows XP Pro X64 Edition 2x Intel Xeon 3.6GHz 4GB RAM Nvidia Quadro FX 3450/4000 SDI 256MB
|
erstellt am: 08. Mai. 2006 11:55 <-- editieren / zitieren --> Unities abgeben: Nur für as3469_ask
hmmm...habe soeben die Mehrfachauswahl (mit STRG) ausprobiert. In "Properties" kann man zwar auf "All"stellen. Jedoch lässt sich der Name nicht ändern. s. Anhang sorry...hab leider keine Lösung im Moment. gruss predy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Lusilnie Mitglied
Beiträge: 1486 Registriert: 13.07.2005
|
erstellt am: 08. Mai. 2006 23:05 <-- editieren / zitieren --> Unities abgeben: Nur für as3469_ask
Hallo allerseits, nach meiner Meinung wäre hier ein kleines Macro angebracht, da "as3469_ask" ja nur die Body-Namen kürzen und in der Art Body.1, Body.2, Body.3,... durchnummerieren will. Dazu sollte folgender Code reichen(, habe ihn auch angehängt!):
Code: Language = "VBSCRIPT"Sub CATMain() Dim productDocument1 As PartDocument Set productDocument1 = CATIA.ActiveDocument Dim selection1 As selection Set selection1 = productDocument1.selection selection1.Search "CATPrtSearch.BodyFeature,all" Dim Imax As Integer Imax = selection1.Count For I = 1 To Imax selection1.Item(I).Value.Name = "Body." & CStr(I) & ".temp_rename" Next For I = 1 To Imax selection1.Item(I).Value.Name = "Body." & CStr(I) Next End Sub
Hinweis: Das Macro muß im einzelnen geöffneten Part ausgeführt werden! mfg, Lusilnie
------------------
Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!! frei nach größeren Geistern Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
as3469_ask Mitglied Konstrukteur
Beiträge: 3 Registriert: 23.01.2006
|
erstellt am: 09. Mai. 2006 07:51 <-- editieren / zitieren --> Unities abgeben:
|
predy Mitglied Industriedesigner
Beiträge: 777 Registriert: 05.07.2003 CATIA V5R16 SP3 64Bit Windows XP Pro X64 Edition 2x Intel Xeon 3.6GHz 4GB RAM Nvidia Quadro FX 3450/4000 SDI 256MB
|
erstellt am: 09. Mai. 2006 08:33 <-- editieren / zitieren --> Unities abgeben: Nur für as3469_ask
|
Norman Schulz Mitglied Konstrukteur Catia V4/V5
Beiträge: 300 Registriert: 18.03.2002
|
erstellt am: 27. Okt. 2011 10:09 <-- editieren / zitieren --> Unities abgeben: Nur für as3469_ask
Hallo! Ich wuerde gerne auch Geometrische Sets umbenennen lassen, kenne jedoch die Syntax hierfuer nicht. Kann mir jemand weiterhelfen? Gruss Norman ------------------ WTL Engineering GmbH n.schulz@wtl-group.de http://www.wtl-group.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 27. Okt. 2011 17:02 <-- editieren / zitieren --> Unities abgeben: Nur für as3469_ask
Servus Versuch es mal so: Code: Language="VBSCRIPT"Sub CATMain() Dim productDocument1 As PartDocument Set productDocument1 = CATIA.ActiveDocument Dim selection1 As selection Set selection1 = productDocument1.selection selection1.Search "(((CATStFreeStyleSearch.OpenBodyFeature + CATPrtSearch.OpenBodyFeature) + CATGmoSearch.OpenBodyFeature) + CATSpdSearch.OpenBodyFeature),all" Dim Imax As Integer Imax = selection1.Count For I = 1 To Imax selection1.Item(I).Value.Name = "GeoSet." & CStr(I) & ".temp_rename" Next For I = 1 To Imax selection1.Item(I).Value.Name = "GeoSet." & CStr(I) Next End Sub
Gruß Bernd------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Norman Schulz Mitglied Konstrukteur Catia V4/V5
Beiträge: 300 Registriert: 18.03.2002
|
erstellt am: 28. Okt. 2011 05:53 <-- editieren / zitieren --> Unities abgeben: Nur für as3469_ask
Hallo Bernd, vielen Dank fuer Deine Hilfe! Funktioniert einwandfrei. Gruss Norman ??? Kann man eigentlich keine 10 Unities mehr vergeben? Bei mir lassen sich nur noch 9 anwaehlen ??? Naja, 9 heute und den Rest beim naechsten Mal ;-) => taraaaa, mann muss nur die Aufloesung kleiner stellen, dann erscheint auch wieder die 10 ;-) ------------------ WTL Engineering GmbH n.schulz@wtl-group.de http://www.wtl-group.de [Diese Nachricht wurde von Norman Schulz am 28. Okt. 2011 editiert.] [Diese Nachricht wurde von Norman Schulz am 28. Okt. 2011 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Jonas-SX Mitglied
Beiträge: 9 Registriert: 20.01.2020 R19,R21,R26,R27,R28&R29
|
erstellt am: 17. Feb. 2020 15:39 <-- editieren / zitieren --> Unities abgeben: Nur für as3469_ask
Hallo zusammen, und zwar bin ich auf der Suche nach einer Möglichkeit schon vorhandene Körper automatisch umzubenennen (Alle in einem Part). Im Forum habe ich leider nichts genaueres finden können, daher setzte ich hier mal an. (Dieser Beitrag kommt dem Thema zumindest mal nah) Ich habe ein Part mit vielen verschiedenen Körper: 48641_000_xxx_00_Kopfplatte 48641_000_xxx_00_Niederhalter 48641_000_xxx_00_Grundplatte usw. Nun würde ich gerne mit Hilfe eines Macros diese ändern das am Schluss folgendes steht: 48641_000_xxx_00_Kopfplatte-P1 48641_000_xxx_00_Niederhalter-P1 48641_000_xxx_00_Grundplatte-P1 Evtl. gab oder gibt es das Thema schon oder jemand hat einen Tip für mich? Jedenfalls im Voraus vielen Dank! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 17. Feb. 2020 17:56 <-- editieren / zitieren --> Unities abgeben: Nur für as3469_ask
Servus Lass eine Schleife über die Bodies laufen und benenne diese um zB: Code: for i = 1 to oPart.Bodies.Count oPart.Bodies.Item(i).Name = oPart.Bodies.Item(i).Name & "-P" next
Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Jonas-SX Mitglied
Beiträge: 9 Registriert: 20.01.2020
|
erstellt am: 18. Feb. 2020 12:39 <-- editieren / zitieren --> Unities abgeben: Nur für as3469_ask
Jetzt hab ich mal was versucht... (gespeichert als CATScript) _ _ _ _ Language = "VBSCRIPT" Sub CATMain() Dim productDocument1 As PartDocument Set productDocument1 = CATIA.ActiveDocument Dim selection1 As selection Set selection1 = productDocument1.selection selection1.Search "CATPrtSearch.BodyFeature,all" Dim Imax As Integer Imax = selection1.Count For I = 1 to oPart.Bodies.Count oPart.Bodies.Item(I).Name = oPart.Bodies.Item(I).Name & "-P" next End Sub _ _ _ _ Selektion der Bodys geht, allerdings steigt es dann bei "For I = 1 to oPart.Bodies.Count" aus. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 18. Feb. 2020 12:49 <-- editieren / zitieren --> Unities abgeben: Nur für as3469_ask
|
Jonas-SX Mitglied
Beiträge: 9 Registriert: 20.01.2020
|
erstellt am: 18. Feb. 2020 16:14 <-- editieren / zitieren --> Unities abgeben: Nur für as3469_ask
|