Hi @omvcilindri
I had this example on hand.
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
oRUSure = MessageBox.Show("Are you sure you want to delete all of the" & vbLf & _
"parameters in this file?", "iLogic", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If oRUSure = vbNo Then Return 'exit rule
oApp = ThisApplication
Call oApp.TransactionManager.StartTransaction(ThisDoc.Document, "Delete All Parameters")
'[
oDoc = ThisApplication.ActiveDocument
oParams = oDoc.Parameters
'look at each parameter
Do Until oParams.Count = 0
For Each oParam In oParams
'delete the Parameter
Try : oParam.Delete : Catch : End Try
Next
Loop
oApp.TransactionManager.EndTransaction