iLogic Delete User Parameter

[salih_kapucu]

Hi,
I created a new parameter with the following code based on a condition. Depending on another condition, I want to delete this parameter. Can you write code for me?

Dim oParams As Parameters
Dim oAssemblyDoc As AssemblyDocument = ThisDoc.Document
Dim oAssemblyCompDef As AssemblyComponentDefinition = oAssemblyDoc.ComponentDefinition
oParams = oAssemblyCompDef.Parameters

Dim oUserParams As UserParameters = oParams.UserParameters

Try
  p = Parameter("TotalW")
Catch
  oUserParams.AddByValue("TotalW",myvalue, UnitsTypeEnum.kMillimeterLengthUnits)

End Try

[A.Acheson]

Here is what you will need. Delete method of UserParameter object

Dim oParams As Parameters
Dim oAssemblyDoc As AssemblyDocument = ThisDoc.Document
Dim oAssemblyCompDef As AssemblyComponentDefinition = oAssemblyDoc.ComponentDefinition
oParams = oAssemblyCompDef.Parameters
Dim oUserParams As UserParameters = oParams.UserParameters
Dim p as UserParameter

Try
 p = Parameter("TotalW")
Catch
  p = oUserParams.AddByValue("TotalW",myvalue, UnitsTypeEnum.kMillimeterLengthUnits)
End Try

If Parameter("Check").Value = "ok" Then
p.Delete
End If

[talha_ozdemir]

Hey Acheson, 

Thanks for the reply.

 We tried to use the code but on line 14, the word "Check" gives error.

Could mind to describe please whats the meaning of "Check" in the code, what it does ?

  Thanks in advance.

[tyler.warner]

@talha_ozdemir see this updated code.

Dim oAssemblyDoc As AssemblyDocument = ThisDoc.Document
Dim oAssemblyCompDef As AssemblyComponentDefinition = oAssemblyDoc.ComponentDefinition
Dim oParams As Parameters = oAssemblyCompDef.Parameters
Dim oUserParams As UserParameters = oParams.UserParameters

Try 'Add a user parameter.
	oUserParams.AddByValue("MyParam", myvalue, UnitsTypeEnum.kMillimeterLengthUnits)
Catch	
End Try

Try 'Use True/False parameter "MySwitchCommand" to delete specified user parameter.
	If oUserParams.Item("MySwitchCommand").Value = "True" Then
	oUserParams.Item("MyParam").Delete
	End If
Catch
End Try

[A.Acheson]

Parameter("Check").Value is a condition you might use to determine when to delete the parameter. You can replace this parameter with whatever parameter/ condition you like. Can you explain more what conditions determine the deletion of the parameter ("TotalW")? 

[salih_kapucu]

@A.Acheson and @tyler.warner

Actually what i want to do is to write code like below.

if type="1" then

(Rule written to create totalW)

end if

if type="2" then

(rule written to delete totalW)

end if

[A.Acheson · Accepted solution]

Try this using api content only. The ilogic function Parameter is replaced by oUserParams.Item. 

Dim oParams As Parameters
Dim oAssemblyDoc As AssemblyDocument = ThisDoc.Document
Dim oAssemblyCompDef As AssemblyComponentDefinition = oAssemblyDoc.ComponentDefinition
oParams = oAssemblyCompDef.Parameters
Dim oUserParams As UserParameters = oParams.UserParameters
Dim p as UserParameter

If type = "1" then
   Try
      p = oUserParams.Item("TotalW")
   Catch
      p = oUserParams.AddByValue("TotalW",myvalue, UnitsTypeEnum.kMillimeterLengthUnits)
   End Try

ElseIf type = "2" then
   Try
      p = oUserParams.Item("TotalW")
      p.Delete
   Catch
   End Try
   
End if

[salih_kapucu]

@A.Acheson , thank you very much