更新参量主要使用到SetVariableValue()这个函数卡盟,通过vbs脚本读取目标路径下的txt文件数据,然后通过分隔符来分割分别获取所有变量名和变量值vbs脚本执行,最后oDesign.SetVariableValue函数进行参量的一键更新,整段代码如下(文末二维码附有下载链接):
' ----------------------------------------------
' ImportVariables,适用于ANSYS ElectronicsDesktop Version(2017, 2)及以上
' ----------------------------------------------
Dim oAnsoftApp
Dim oDesktop
Dim oProject
Dim oDesign
Dim oEditor
Dim oModule
Set oAnsoftApp = CreateObject("Ansoft.ElectronicsDesktop")
Set oDesktop = oAnsoftApp.GetAppDesktop()
oDesktop.RestoreWindow
Set 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,VariableValue
loop
fid.Close
oDesktop.AddMessage oProject.GetName(), oDesign.GetName(), 0, "----------------------------------------------------------"
oDesktop.AddMessage oProject.GetName(), oDesign.GetName(), 0, FileDir
oDesktop.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开头的几处代码,如下图所示。