Delete unused parameters

[Anonymous]

I am looking for iLogic code to delete all parameters that have a value of 0 or nothing. I am found code that will delete specific parameters, but not one that will loop through all of them and delete them.

Thanks,

[Owner2229]

Here you go. Comment out / remove the blue lines if you want to remove all un-used parameters.

Dim oDoc As Document = ThisApplication.ActiveDocument
Dim oCD As ComponentDefinition = oDoc.ComponentDefinition
Dim oParams As Parameters = oCD.Parameters
For Each oPara As Parameter In oParams
	If oPara.InUse Then Continue For
	Dim oVal As String = oPara.Value
	If oVal <> "0" And oVal <> vbNullString Then Continue For
	oPara.Delete()
Next