iLogic to delete suppressed features in .ipt

[jamieking89]

Hi

I am wondering if anyone could help with wirting ilogic code i could use in a rule that will delete all suppressed features. I did find something that does this online however it wouldnt delete all in one run of the rule, it needed multiple runs.

Thanks

Jamie

[mcgyvr]

Dim oFeature As PartFeature
oFeatures = ThisApplication.ActiveDocument.ComponentDefinition.Features

For Each oFeature In oFeatures
	'get the name of the feature
	oName = oFeature.Name
	'if the feature is not active (suppressed)
If Feature.IsActive(oName) = False
	'delete it
	oFeatures(oName).delete
End If
Next

[jamieking89]

Hi mcgyvr

Thanks for the quick response however when trying to run a rule with that ilogic within it i get an error code. (please see attached)

[mcgyvr · Accepted solution]

Try this..

I'm not positive on the answer but I suspect that feature to feature dependencies are causing errors to be generated..

This will ignore them..

Dim oFeature As PartFeature
oFeatures = ThisApplication.ActiveDocument.ComponentDefinition.Features

For Each oFeature In oFeatures
	'get the name of the feature
	oName = oFeature.Name
	MessageBox.Show(oName, "Processing")
	'if the feature is not active (suppressed)
If Feature.IsActive(oName) = False
	'delete it
	oFeatures(oName).delete
End If
On Error Resume Next
Next

[Curtis_Waguespack · Accepted solution]

Hi @jamieking89 

Keep in mind that if you attempt to delete a feature with dependent items (other features or sketches, etc) you will see an error... adding a resume next line should catch and silence those errors.

Also, just a reminder that the the Inventor Customization forum is the better forum for ilogic and coding questions:
http://forums.autodesk.com/t5/Autodesk-Inventor-Customization/bd-p/120

Here is a previous topic on that forum that relates to your question:

https://forums.autodesk.com/t5/inventor-customization/ilogic-delete-suppressed-features-and-un-used-...

I've asked the moderators to move your this topic to that forum.

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

Dim oFeature As PartFeature
oFeatures = ThisApplication.ActiveDocument.ComponentDefinition.Features

On Error Resume Next
For Each oFeature In oFeatures
	'get the name of the feature
	oName = oFeature.Name
	'if the feature is not active (suppressed)
If Feature.IsActive(oName) = False
	'delete it
	oFeatures(oName).delete
End If
Next

[jamieking89]

Hi Curtis

That now works. Thanks for that.

Shall keep that in mind for future when posting regarding ilogic related questions.

Thanks again for your help.

Jamie

[jamieking89]

Thanks for you help.

Much appreciated.

Jamie