---

bild.JPG

Hallo Experten!

Ich möchte ein Makro haben, welsche wird GeometricalSets bennant: "Part_Geometry" und "RPS_Elements" aus jedes Part im Strukturbaum zum neues Part kopieren and umbennenen zu:

"Part_Geometry" aus Part "BLECH1" -----> neues GeometricalSet bennant "BLECH1"
...

"RPS_Elements" aus Part "BLECH1" -----> neues GeometricalSet bennant "RPS_Elements"
...

Naturlich alle Elemente unterhalb diese GeometricalSets muss auch kopiert sein 

Am Anhang Bild aus Beispielstrukturbaum.

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

---

Servus
Schön das du das möchtest?
Wie weit bist du mit deinem Code gekommen?
Wie würdest du das manuell machen?
Soll dabei die Position aus dem Baugruppenkontext mit einbezogen werden?
Handelt es ich immer um isolierte Geometrie?

Gruß
Bernd

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

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

---

Hallo Bernd

Ich bin ganz am Amfang   Ich habe eines makro welsches AllCATPart zu Produkt kovertiert gefunden. I habe gewust, dass vielleicht das wehre gute Start  

        Zuerst, mit dem Inputbox frage ich, wie soll neues Part bennant sein. Danach ich mache neues Part, aber ich kannn nicht dieses Part umbenennen. Ich kriege: "The method Name failed" Warnung

Zum deine Fragen:

- Wenn ich muss dass manuell machen, ich wurde neues Part erstellen, umbennenen und einfach mit copy/paste kopieren.
- Die Flaechen aus die Parts "BLECHx" bennant mussen das gleiche Position haben
- und Ja - die Geometrie ist immer isoliert.

Code:

---

Sub CATMain()

Dim PosString
    'partName = CATIA.ActiveDocument.Name
    partName = InputBox("Podaj nazwę dla hauptadaptera:", "Data wykonania rysunku", "Hauptadapter")
   
    Dim docu
    Set docu = CATIA.Documents
   
    Dim partDocu
    Set partDocu = docu.Add("Part")
   
    Dim hauptadapter
    Set hauptadapter = partDocu.Part
    hauptadapter.name = partName  ';(

End Sub

---

Sorry fuer die polnische Sprache unter Inputbox - ich komme aus Polen  
Teoretisch I weiss was soll danach gehen - fuer jedes Part von active Dokumenten nehme ich GeoSet mit gegebene Name (Part_Geometry oder RPS_Elements), kopiere ich, und einfuge in das neues Part. Zwischenschritt fuer das "part_geometry" Set wehre Umbenennung.

Ich entschuldige mich fuer meien Deutsch - Ich habe dass lang nicht genutzt  

[Diese Nachricht wurde von Sylas am 09. Jul. 2014 editiert.]

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

---

Hallo

Ich habe meine Makro ein bischen weiter gesrieben:

Code:

---

Sub CATMain()
Set documents1 = CATIA.Documents

' Part erstellung und umbennenung

Set partDocument1 = documents1.Add("Part")

Set product1 = partDocument1.GetItem("Part5")

product1.PartNumber = "Hauptadapter"

' Fensterbehandlung

Set windows1 = CATIA.Windows

windows1.Arrange catArrangeTiledVertical

Set specsAndGeomWindow1 = windows1.item(1)

specsAndGeomWindow1.Activate

dim Partset
dim Copyset
dim Hybridbody1
dim PasteSet

' Parts Collection

Set PartSet = CATIA.ActiveDocument.Selection
PartSet.clear
PartSet.search "(CATAsmSearch.Part),all"

'Loop fuer Geosets copy und paste
For i=1 to PartSet.Count

Set ActiveDocu = PartSet.Item(i)
Set ActivePart = ActiveDocu.Part
Set Hybridbodies = ActivePart.HybridBodies
Set Hybridbody1 = Hybridbodies.Item("RPS_Elements")
Set Hybridbody2 = Hybridbodies.Item("Part_Geometry")
Copyset.Add Hybridbody1
Copyset.Add Hybridbody2
Copyset.copy

Set specsAndGeomWindow2 = windows1.item(product1)

specsAndGeomWindow2.Activate

Set PasteSet = product1.selection
PasteSet.Add product1
PasteSet.PasteSpecial "CATPrtAsResult"
product1.Update

specsAndGeomWindow1.Activate
next
specsAndGeomWindow2.Activate
product1.update
End Sub

---

Jetzt habe ich das Problem, dass PartSet Elementen sind wahrscheinlich kein Part 

Kann Jemand mier weiter helfen?

Grüß

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