Catia Macro: How to Delete the deactivated feature and sketch

[Gane1985]

Hello,
I'm not a programmed, so I rely on your support for a simple automation in Catia V5. I got a coding for deleting all deactivated features in Catia part. Can somebody update this coding to delete also the deactivated sketches. Thanks in advance for your support.


Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

'If Err.Number=0 Then

Dim selection1 'As Selection
Set selection1 = partDocument1.Selection

selection1.Search "CATPrtSearch.PartDesign Feature.Activity=FALSE"

'if no deactivated components then end program
If selection1.Count = 0 Then
Msgbox "No deactivated features."
Exit Sub
Else

'delete all deactivated components then update the part
selection1.Delete
part1.Update
End If

'error handling
'Else
' Msgbox "Not a part document! Open a single part document."
'End If
End Sub

 

[ferdo]

Hi,

It seems not to be possible.

Did you tried the Search function of this forum? See this link

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

https://picasaweb.google.com/103462806772634246699/