Hallo zusammen,
ich habe folgendes Problem. Mein Makro muss mir die Anzahl der vorhandenen Flächen ausgeben. Dazu habe ich eine Suchfunktion gemacht die solange durchläuft und mitzählt, bis alle Flächen erkannt wurden und die Selektion damit leer ist. Nun weiß ich aber leider nicht, wie ich es ausdrücke, dass die Selektion leer sein muss. Hier mal mein Code:
Sub CATMain()
Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim Selection1 As Selection
Set Selection1 = partDocument1.Selection
Do
A = A + 1
searchstring1 = "'Generative Shape Design'.Surface.Name='SplitSurface.'"
Selection1.Search searchstring1 & A
Loop Until Selection1.Item(1) = 0 ### --> soll solange weitersuchen, bis die Selection1 leer bleibt ###
End Sub
Hoffe ihr könnt mir weiterhelfen.
Danke.
Gruß Machiwi
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP