iLogic - Create Parameters Using Excel Spreadsheet. How should I change code to work with user text parameters ideas?

[michal.skubik]

This code perfectily work with user number parameter but I would like to change it to user text parameters. 

Dim oDoc As Document = ThisApplication.ActiveDocument
Dim OComp As PartComponentDefinition = oDoc.ComponentDefinition
Dim oUPs As UserParameters = OComp.Parameters.UserParameters
Dim oUP As UserParameter

Dim xlsFile As String = "c:\_WORK_AV\Engineering\_Invdata\iLogic\Category.xls"
GoExcel.Open(xlsFile, "Sheet1")

Dim i As Integer = 2
Dim Param As String
Dim List As IList
Do Until i = 100
	Param = GoExcel.CellValue ("A" & i)
	If Param = "" Then Exit Do
	List = GoExcel.CellValues("B" & i, "L" & i)
	Try
		Test = oUPs.Item(ParamName).Value
	Catch
		oUP = oUPs.AddByExpression(Param, GoExcel.CellValue("B" & i), UnitsTypeEnum.kMillimeterLengthUnits)
	End Try
	MultiValue.List(Param) = List
	i = i + 1
	
Loop

[WCrihfield]

Hi @michal.skubik.  You may just have to switch from using the UserParameters.AddByExpression method, to using the UserParameters.AddByValue method.  That's the one I use when adding text type user parameters.

[michal.skubik]

[WCrihfield]

I can see within the image you just posted that you changed:

GoExcel.CellValue("B" & i)

'as it was in your first post to:

GoExcel.CellValues("B" & i)

in your line for creating the parameter.

...remove the "s" from "CellValues" to make it "CellValue", because you are just getting a single value, not multiple values.

[michal.skubik]

Great thank you very much. One more question. Do you know how can I debug this code for check if the values are already exist if yes do not make new.

[WCrihfield · Accepted solution]

Actually, yes.  I didn't notice before, but within the Try part of your Try...Catch block, you are using the wrong parameter name to look for, so it is never finding it.  You seem to be using "ParamName" (without the quotes), instead of "Param" (without the quotes).  Plus, instead of using "Test = oUPs.Item(Param).Value", you can use "oUP = oUPs.Item(Param)", because then you would be setting the value of that variable, the same way you are setting its value in the 'Catch' half of that Try...Catch block.

So...

Replace this:

Test = oUPs.Item(ParamName).Value

with this:

oUP = oUPs.Item(Param)

and I think that might fix it.

[michal.skubik]

Hey, do you think that is it possible change a code to run with model states?