iLogic + Excel:数据驱动建模

' 打开 Excel 文件和工作表GoExcel.Open("C:\Data\parts.xlsx", "Sheet1")' 多条件查找：直径=10 且 长度=50Dim rowNum As Integer = GoExcel.FindRow( _    "C:\Data\parts.xlsx", _    "Sheet1", _    "直径", "=", 10, _      ' 第一个条件    "长度", "=", 50)          ' 第二个条件If rowNum > 0 Then    ' 找到了，读取该行的其他列    Dim partNumber As String = GoExcel.CurrentRowValue("零件号")    Dim material As String = GoExcel.CurrentRowValue("材料")    ' 填到模型里    Parameter("Dia") = 10    Parameter("Length") = 50    iProperties.Value("Project", "Part Number") = partNumber    iProperties.Value("Project", "Material") = material    InventorVb.DocumentUpdate()    MessageBox.Show("已加载: " & partNumber & " / " & material, "完成")Else    MessageBox.Show("未找到匹配的规格", "提示")End If

' 配置规则：让用户选规格Sub Main()    ' 读取 Excel 里的所有规格名    GoExcel.Open("C:\Data\specs.xlsx", "Sheet1")    Dim specs As New ArrayList    Dim row As Integer = 2   ' 数据从第 2 行开始    Do        Dim name As String = GoExcel.CellValue("A" & row)        If String.IsNullOrEmpty(name) Then Exit Do        specs.Add(name)        row += 1    Loop    ' 弹窗让用户选    Dim selected As String = InputListBox( _        "请选择规格:", specs, specs(0), "规格选择", "iLogic Config")    If String.IsNullOrEmpty(selected) Then Exit Sub    ' 查到对应行，读所有尺寸    Dim rowNum As Integer = GoExcel.FindRow( _        "C:\Data\specs.xlsx", "Sheet1", "规格", "=", selected)    If rowNum <= 0 Then        MessageBox.Show("未找到规格: " & selected, "错误")        Exit Sub    End If    ' 读取并更新模型参数    Parameter("Width") = GoExcel.CurrentRowValue("Width")    Parameter("Height") = GoExcel.CurrentRowValue("Height")    Parameter("Depth") = GoExcel.CurrentRowValue("Depth")    iProperties.Value("Project", "Part Number") = _        GoExcel.CurrentRowValue("PartNumber")    ' 触发模型更新    iLogicVb.UpdateWhenDone = True    Logger.Info("已切换到规格: " & selected)End Sub

' 把当前模型的关键尺寸写到 Excel 记录表GoExcel.Open("C:\Data\DesignLog.xlsx", "Sheet1")' 找到下一个空行Dim nextRow As Integer = 2Do While Not String.IsNullOrEmpty(GoExcel.CellValue("A" & nextRow))    nextRow += 1Loop' 写入本次设计的参数GoExcel.CellValue("A" & nextRow) = DateTime.Now.ToString("yyyy-MM-dd")GoExcel.CellValue("B" & nextRow) = iProperties.Value("Project", "Part Number")GoExcel.CellValue("C" & nextRow) = Parameter("Width")GoExcel.CellValue("D" & nextRow) = Parameter("Height")GoExcel.CellValue("E" & nextRow) = Parameter("Depth")' 保存 ExcelGoExcel.SaveGoExcel.Close

' 通过 RuleArguments 接收参数，返回结果也通过 RuleArgumentsDim filePath As String = RuleArguments("FilePath")Dim sheetName As String = RuleArguments("Sheet")Dim dia As Double = RuleArguments("Dia")Dim length As Double = RuleArguments("Length")' 用 GoExcel 查行Dim rowNum As Integer = GoExcel.FindRow( _    filePath, sheetName, "Dia", "=", dia, "Length", "=", length)If rowNum > 0 Then    ' 把结果塞回 RuleArguments，供调用方读取    Dim outputs As NameValueMap = _        ThisServer.TransientObjects.CreateNameValueMap()    outputs.Add("PartNumber", GoExcel.CurrentRowValue("PartNumber"))    RuleArguments.Arguments.Add("Outputs", outputs)End If

' 在 VB.NET Add-In 或 exe 里Public Sub LookupPartNumber()    ' m_app 是 Inventor.Application 实例    Dim arguments As NameValueMap = _        m_app.TransientObjects.CreateNameValueMap()    arguments.Add("FilePath", "C:\Data\parts.xlsx")    arguments.Add("Sheet", "Sheet1")    arguments.Add("Dia", 10)    arguments.Add("Length", 50)    Dim doc As Document = m_app.ActiveDocument    Dim externalRulePath As String = "C:\iLogic\ExcelLookup.iLogicVb"    ' 获取 iLogic 自动化对象    Dim iLogicAuto As Object = GetiLogicAutomation(m_app)    ' 运行带参数的外部规则    iLogicAuto.RunExternalRuleWithArguments(doc, externalRulePath, arguments)    ' 读取返回的结果    Dim outputs As NameValueMap = Nothing    Try        outputs = arguments.Value("Outputs")        If outputs IsNot Nothing Then            Dim partNumber As String = outputs.Value("PartNumber")            MessageBox.Show("零件号: " & partNumber, "结果")        End If    Catch ex As Exception        MessageBox.Show("查询失败: " & ex.Message, "错误")    End TryEnd Sub' 获取 iLogic Add-In 的 Automation 对象Function GetiLogicAutomation(app As Inventor.Application) As Object    Dim addIn As Inventor.ApplicationAddIn = Nothing    Try        ' iLogic Add-In 的固定 GUID        addIn = app.ApplicationAddIns.ItemById( _            "{3BDD8D79-2179-4B11-8A5A-257B1C0263AC}")    Catch        Return Nothing    End Try    Return addIn.AutomationEnd Function

' 直接操作 Excel COM 对象Dim xlApp As ObjectxlApp = CreateObject("Excel.Application")xlApp.Visible = False   ' 后台运行Dim xlBook As Object = xlApp.Workbooks.Open("C:\Data\parts.xlsx")Dim xlSheet As Object = xlBook.Sheets("Sheet1")' 读取单元格Dim val As String = xlSheet.Range("B2").Value' 写入单元格xlSheet.Range("B2").Value = "新值"' 遍历行Dim row As Integer = 2Do Until String.IsNullOrEmpty(xlSheet.Range("A" & row).Value)    Logger.Info("行" & row & ": " & xlSheet.Range("A" & row).Value)    row += 1Loop' 保存并关闭xlBook.Save()xlBook.Close()xlApp.Quit()' 释放 COM 对象（重要！）System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet)System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)