Hallo Bernd,
die Suche und Selektion bei einem Elemt klappt mittels record schonmal gut.
Mein Ziel ist es aber später aus einer Suche nach Typ Körper, jedes einzelne Element der Suchergebnisse im Part einmal anzusprechen, und diesen mit einem Befehl zu versehen.
Erstmal das Makro für die Suche & Selektion eines Elementes:
Code:
Language="VBSCRIPT"Sub CATMain()
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = partDocument1.Selection
selection1.Search "Name=*körper'.'5*,all"
End Sub
Jetzt habe ich schon ein Makro gefunden, dass mir alle Körper sucht und in einem Loop deren Namen ausgibt. Leider markiert es aber alle Körper gleichzeitig.
Ich will in den Loop einen Befehl (CATIA.StartCommand "Technologische Ergebnisse Erzeugen") aufnehmen, vor dem jeder Körper einzeln angewählt werden muss.
Makro für Namenausgabe:
Code:
Sub CATMain()set Selection1 = CATIA.ActiveDocument.Selection
selection1.Search "Type=Körper,all"
for n = 1 to selection1.count
set Element = selection1.Item(n).Value
MsgBox Element.Name ' gibt den Instanznamen aus
next
End Sub
Habt ihr dafür eine Verbindungslösung beider Makros?
Gruß
Big-Fish
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP