Message 1 of 3
I logic code in Inventor 2019 no longer working after update 2019.1

Not applicable
09-12-2018
09:58 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
I was using this code to export parameters to Excel and then repopulate multi value list back from the excel spread sheet, and after the update the code would no longer export anything, and the parameter which contained the multi value list changed back into a normal parameter without a multi value list and without all of the other variables in the list. Once i rolled back the update everything worked fine.
SyntaxEditor Code Snippet
Dim Counter As Integer = 0 Dim TheValue As String = "" GoExcel.Open(ThisDoc.Path & "\MINI OUTLINE ASSY PARAMETERS.xlsx", "Sheet1") GoExcel.FindRow(ThisDoc.Path & "\MINI OUTLINE ASSY PARAMETERS.xlsx", "Sheet1", "COMPLETE_SPEC_CODE", "=", COMPLETE_SPEC_CODE) COMPLETE_SPEC_CODE_LIST = COMPLETE_SPEC_CODE If GoExcel.CurrentRowValue ("COMPLETE_SPEC_CODE") = COMPLETE_SPEC_CODE Then MessageBox.Show("This spec code is already in use", "Spec code conflict") Else While Counter <> 10000 Counter = Counter + 1 If GoExcel.CellValue(ThisDoc.Path & "\MINI OUTLINE ASSY PARAMETERS.xlsx", "Sheet1", "A" & Counter) = "" Then GoExcel.CellValue(ThisDoc.Path & "\MINI OUTLINE ASSY PARAMETERS.xlsx", "Sheet1", "A" & Counter) = COMPLETE_SPEC_CODE GoExcel.CellValue(ThisDoc.Path & "\MINI OUTLINE ASSY PARAMETERS.xlsx", "Sheet1", "B" & Counter) = KVA GoExcel.CellValue(ThisDoc.Path & "\MINI OUTLINE ASSY PARAMETERS.xlsx", "Sheet1", "C" & Counter) = LV GoExcel.CellValue(ThisDoc.Path & "\MINI OUTLINE ASSY PARAMETERS.xlsx", "Sheet1", "D" & Counter) = HV_KV_BIL GoExcel.CellValue(ThisDoc.Path & "\MINI OUTLINE ASSY PARAMETERS.xlsx", "Sheet1", "CG" & Counter) = DOUBLE_CLF_FUSE Counter = 10000 End If End While End If MultiValue.List("COMPLETE_SPEC_CODE_LIST") = GoExcel.CellValues(ThisDoc.Path & "\MINI OUTLINE ASSY PARAMETERS.xlsx", "Sheet1", "A2", "A10000") GoExcel.Save GoExcel.Close