---

Hallo zusammen

hab ein kleines Problemchen.Möchte ein bestimmtes element in einem definierten Geometricalset selektieren.Der Name des g.Sets ist immer gleich darin befinden sich 1-3 elemente(Ebenen oder flächen).Ich möchte immer das letzte hineinkopierte elemnt finden.Hab mir auch schon ein Makro gebastelt.

Language="VBSCRIPT"

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = partDocument1.Selection

selection1.Search "(Name=*external*),all"

Dim Liste1 As Selection
Set Liste1 = partDocument1.Selection

Liste1.Search ("Name=*,sel")

Dim Element as GeometricElement
Set element = selection.item

End Sub

Problem 1 => funktioniert nur mit einem element da wenn sich mehrere darin befinden alle markiert werden.

Problem 2 => es wird immer alles markiert (G.set & elemente), da ich das aber in einem Split weiterverwenden möchte funktioniert das so nicht.

Ich probier schon wieder seit Tagen rum und komm auf keinen grünen Zweig.Vielleicht kann mir ja jemand ein bischen auf die Sprünge helfen.

Gruß Andi

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

---

Moin!
Hab dir mal was zusammengebastelt. Ich hoffe es funktioniert so wie du dir es vorstellst:
----------------------------------------------------------------------
Language="VBSCRIPT"

Sub CATMain()
CATIA.ActiveDocument.Selection.clear 'löschen der aktuellen Auswahl
'hinzufügen des Geometrischen Sets zur Auswahl, hier muß natürlich dein Name rein
CATIA.ActiveDocument.Selection.Search "(Name=*Geometrisches Set*),all"

'hinzufügen aller Elemente in dem G.S zur Auswahl
CATIA.ActiveDocument.Selection.Search "Name=*,sel"

'das Letzte Element der Auswahl(ding)ermitteln
msgbox CATIA.ActiveDocument.Selection.count
x = CATIA.ActiveDocument.Selection.count
set ding = CATIA.ActiveDocument.Selection.item(x).value
msgbox ding.name
'löschen der Auswahl
CATIA.ActiveDocument.Selection.clear
'und das Parent-Objet davon zur Auswahl hinzufügen.
CATIA.ActiveDocument.Selection.Add(ding.parent)
End Sub
--------------------------------------------------------------
Gruß
Watje

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

---

Hallo

vielen dank für dein script!!!!!!!!!!!!!
Hatt mmir schon sehr geholfen,eine frage noch was muss ich ändern damit ich das erste element bekomme??

Gruß Andi

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

---

Hatt sich grad erledigt

Gruß Andi

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