Guten Morgen,
ich mach sowas ähnliches mit rekursiven Funktionen. und dabei ist es natürlich kein problem, irgendwelche bedingungen einzufügen, die die rekursion abbrechen.
z.B: alle Produkt-Namen im StrukturBaum ausgeben
dim sPSTNames
sub ReadProdName(oProduct)
'Hier deine Abbruchbedingung
if (instr(oProduct.Name, "Samson") > 0) then exit sub
sPSTNames = sPSTNames & ", " & oProduct.Name
for each oSubProduct in oProduct.Products
ReadProdName oSubProduct
next
end sub
sub CATMain
sPSTNames = ""
ReadProdName CATIA.ActiveDocument.Product
MsgBox mid(sPSTNames,2)
end sub
Hab das ganze jetzt nicht getestet, aber so in funktioniert es.
mfg alex
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP