vbs脚本执行 vbs脚本一键导入导出HFSS的Local Variables

更新参量主要使用到SetVariableValue()这个函数卡盟，通过vbs脚本读取目标路径下的txt文件数据，然后通过分隔符来分割分别获取所有变量名和变量值vbs脚本执行，最后oDesign.SetVariableValue函数进行参量的一键更新，整段代码如下（文末二维码附有下载链接）：

' ----------------------------------------------' ImportVariables，适用于ANSYS ElectronicsDesktop Version(2017, 2)及以上' ----------------------------------------------Dim oAnsoftAppDim oDesktopDim oProjectDim oDesignDim oEditorDim oModuleSet oAnsoftApp = CreateObject("Ansoft.ElectronicsDesktop")Set oDesktop = oAnsoftApp.GetAppDesktop()oDesktop.RestoreWindowSet oProject = oDesktop.GetActiveProject()Set oDesign = oProject.GetActiveDesign()FileDir="C:\Users\Administrator\Desktop\VBS\test.txt"Set Object = CreateObject("Scripting.FileSystemObject")Set fid=Object.OpenTextFile(FileDir,1,True)Do While fid.AtEndOfLine <> True  content=fid.ReadLine  pos=InStr(1,content,"=")  Number=Len(content)  VariableName=left(content,pos-1)  VariableValue=right(content,Number-pos)  oDesign.SetVariableValue VariableName,VariableValueloopfid.CloseoDesktop.AddMessage oProject.GetName(), oDesign.GetName(), 0, "----------------------------------------------------------"oDesktop.AddMessage oProject.GetName(), oDesign.GetName(), 0, FileDiroDesktop.AddMessage oProject.GetName(), oDesign.GetName(), 0, "Import variables complete!"

这两段vbs代码使用前需要根据个人电脑进行对FileDir路径进行重新赋值，然后右键以记事本打开，通过文件->另存为视查是否以ANSI格式保存。

接下来需要打开一个工程文件，点击高亮以激活需要操作的设计文件，通过Run Script去执行参量导入和导出功能。

操作视频如下：

需要注意的是，本vbs代码需要在HFSS17.2版本及以上运行！如果HFSS15想运行此代码，需要将ExportVariables.vbs和ImportVariables中的Ansoft.ElectronicsDesktop替换为AnsoftHfss.HfssScriptInterface，并且注释掉oDesktop.AddMessage开头的几处代码，如下图所示。