Delete Useless elements from Geometrical sets in Catia using vba

[Sidtha]

Hello All,

Could you help me to Delete Useless elements from Geometrical sets in Catia using vba.

Here is my code which is double clicking on above part but need to double click on highlighted part and then click on Tools >> Delete unused elements

If (Mid(MyCurrPN, 18, 4) = "-BGE" Or Mid(MyCurrPN, 19, 4) = "-BGE") And (Left(MyCurrPN, 4) = "D928" Or Left(MyCurrPN, 4) = "E928") Then
Set oSelection = MyCATIA.ActiveDocument.Selection
oSelection.Search "(name:'" & MyCurrInstanceName & "'),all"

AppActivate ("CATIA V5")
SendKeys "c:" & "FrmActivate" & Chr(13), True
End If

BR
Siddu

 

[ferdo]

Maybe it will be easier to open it in a new window, run the command, then save and close the window.

Regards
Fernando

https://www.youtube.com/playlist?list=PL9mSHa4SOedV3dr0D3kfIWFUg7mIYm94k

https://www.youtube.com/playlist?list=PL9mSHa4SOedVUEkEojiX_kdzpe0sDbaz2