Hallo,
ich habe ein Problem bei einer Selection durch den User. Die Sufu habe ich benutzt doch leider nichts wirklich hilfreiches gefunden das mich weiter bringt.
Ich möchte in einem Makro den User eine Selekttion eines GeoSets vornehmen lassen. Dazu verwende ich folgenden Code.
Sub CATMain()
set Selection1 = CATIA.ActiveDocument.Selection
dim ElementTyp(0)
ElementTyp(0) = "HybridBody"
Selection1.Clear
do
Auswahl = Selection1.SelectElement2(ElementTyp,"Wähle eine Plane aus..." , false)
if Auswahl = "Normal" then ' wenn Auswahl erfolgt dann...
set Element = Selection1.item(1)
MsgBox Element.value.name & " wurde ausgewählt.",0,"Auswahl"
Fertig = true
else
Box = MsgBox("Die Selektion wurde abgebrochen" + Chr(10) + _
"Das Makro wurde beendet!", 48, "Benutzerabbruch")
exit Sub
end if
loop until Fertig = true
End Sub
Das funktioniert auch einwandfrei.
Meine Frage nun. Es kann sein das der User nicht nur ein GeoSet auswählen muss sondern mehrere. Die Anzahl kann sich von Part zu Part unterscheiden.
Wie müsste ich hierzu eine Schleife einbauen und wie sollte dann die Abbruchbedingung definiert werden, wenn alle GeoSets selektiert sind?
Hoffe ihr könnt mir weiter helfen!
Grüße
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP