---

Hallo zusammen,

ich bin noch eine ziemliche Anfängerin in Catia und habe folgendes Problem.
Ich habe zwei Bauteile

Part 1(Part1.1) und Part 2(Part2.1)

diese würde ich nun gerne per Maktro in jeweils eine Gruppe bringen,also unter
Start-->Digital Mockup-->DMU Space Analysis-->Group
Hier dachte ich mir ganz einfach, ich klicke mich durch, während ich das Makro aufzeichnen lasse. Hier der Code:

Language="VBSCRIPT"

Sub CATMain()

Set productDocument1 = CATIA.ActiveDocument

Set product1 = productDocument1.Product

Set groups1 = product1.GetTechnologicalObject("Groups")

Set group1 = groups1.AddFromSel()

Set group2 = groups1.AddFromSel()

End Sub

Wenn ich das Makro jetzt ausführe, werden die Gruppen angelegt. Jedoch sind in den Gruppen nicht die Bauteile, obwohl sie beim ersten Aufzeichnen zugewiesen wurden. Der Name der Gruppe sollte auch "Workgroup 1" und "Workgroup 2" heißen, da ein weiteres Makro (nicht von mir geschrieben    ) diese Namen benötigt.
Könnt ihr mir vielleicht helfen? Das wäre super nett!

Danke im Voraus
Petra

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

---

Servus
Willkommen im Forum.
Bitte Systeminfo ergänzen.
bei der Makroaufzeichnung fehlt das Selektieren der entsprechenden Bauteile.
Also entweder zuvor von Hand selektieren und dann das Makro starten oder den Code entsprechend ergänzen.
Den Namen der Group solltest du über:

Code:

---

group1.name = "Workgroup 1"

---

ändern können.

Gruß
Bernd

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

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

---

Hallo bgrittmann,

das ging ja fix. Danke schonmal, der Code group1.name funktioniert wunderbar.
wie kann ich denn mein Bauteil selektieren? ich würde das instinktiv so lösen:

------------------------------------------
Language="VBSCRIPT"

Sub CATMain()

Set productDocument1 = CATIA.ActiveDocument

Set product1 = productDocument1.Part1
Set groups1 = product1.GetTechnologicalObject("Groups")
Set group1 = groups1.AddFromSel()

Set product2 = productDocument1.Part2
Set groups2 = product2.GetTechnologicalObject("Groups")
Set group2 = groups2.AddFromSel()

group1.name = "Workgroup 1"

group2.name = "Workgroup 2"

End Sub
--------------------------------------------------------------------

Leider gibt es bei "Set product1 = productDocument1.Part1" eine Fehlermeldung. Also auf diese Art und Weise wird wohl ein  Bauteil nicht selektiert oder?

Viele Grüße und vielen Dank schonmal 
Petra

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