CATIA STARTCOMMAND loop for multiple surfces

[NaWin55]

Hi
i have been trying to use CATIA.StartCommand on UNTRIM command for multiple surfaces
i tried looping it but it is not working for multiple surface i tried adding the surfaces to selection or collection
and tried looping but script ran fine but only first element gets untrimmed

here is the code

set hyb2 = opart.hybridbodie.item("Extracts")

set oSel2 = catia.ActiveDocument.Selection
oSel2.clear

for i = 1 to hyb2.hybridshapes.count
oSel2.Add hyb2.HybridShapes.item(i)
CATIA.StartCommand "Untrim"
CATIA.RefreshDisplay = True
SendKeys "{ENTER}"
next

 

[TiagoFigueiredo]

Don't make the clear selection before make the collection of the surfaces



Tiago Figueiredo
Tooling Engineer

Youtube channel:

https://www.youtube.com/channel/UC1qdlBeJJEgMgpPLVJoOIOw