软件应用--HFSS的VBS脚本录制功能

Dim oAnsoftAppDim oDesktopDim oProjectDim oDesignDim oEditorDim oModuleSet oAnsoftApp = CreateObject("Ansoft.ElectronicsDesktop")Set oDesktop = oAnsoftApp.GetAppDesktop()oDesktop.RestoreWindowSet oProject = oDesktop.NewProject

oProject.InsertDesign "HFSS", "HFSSDesign1", "HFSS Modal Network", ""Set oDesign = oProject.SetActiveDesign("HFSSDesign1")Set oEditor = oDesign.SetActiveEditor("3D Modeler")

Set oEditor = oDesign.SetActiveEditor("3D Modeler")oEditor.CreateBox Array("NAME:BoxParameters", "XPosition:=", "-1mm", "YPosition:=",  _  "0mm", "ZPosition:=", "0mm", "XSize:=", "2.1mm", "YSize:=", "1.9mm", "ZSize:=",  _  "-0.3mm"), Array("NAME:Attributes", "Name:=", "Box1", "Flags:=", "", "Color:=",  _  "(143 175 143)", "Transparency:=", 0, "PartCoordinateSystem:=", "Global", "UDMId:=",  _  "", "MaterialValue:=", "" & Chr(34) & "vacuum" & Chr(34) & "", "SurfaceMaterialValue:=",  _  "" & Chr(34) & "" & Chr(34) & "", "SolveInside:=", true, "ShellElement:=",  _  false, "ShellElementThickness:=", "0mm", "IsMaterialEditable:=", true, "UseMaterialAppearance:=",  _  false, "IsLightweight:=", false)

Set oModule = oDesign.GetModule("BoundarySetup")oModule.AssignPerfectE Array("NAME:PerfE1", "Objects:=", Array("Rectangle1"), "InfGroundPlane:=",  _  false)    oModule.AssignLumpedPort Array("NAME:1", "Objects:=", Array("Port"), "DoDeembed:=",  _  false, "RenormalizeAllTerminals:=", true, Array("NAME:Modes", Array("NAME:Mode1", "ModeNum:=",  _  1, "UseIntLine:=", true, Array("NAME:IntLine", "Coordinate System:=", "Global", "Start:=", Array( _  "-4.67780619902325e-17mm", "0mm", "-1.6mm"), "End:=", Array( _  "7.34788079488412e-17mm", "-1.2mm", "-1.6mm")), "AlignmentGroup:=", 0, "CharImp:=",  _  "Zpi", "RenormImp:=", "50ohm")), "ShowReporterFilter:=", false, "ReporterFilter:=", Array( _  true), "Impedance:=", "50ohm")

Set oModule = oDesign.GetModule("AnalysisSetup")oModule.InsertSetup "HfssDriven", Array("NAME:Setup1", "SolveType:=", "Single", "Frequency:=",  _  "2.4GHz", "MaxDeltaS:=", 0.02, "UseMatrixConv:=", false, "MaximumPasses:=", 6, "MinimumPasses:=",  _  1, "MinimumConvergedPasses:=", 1, "PercentRefinement:=", 30, "IsEnabled:=",  _  true, Array("NAME:MeshLink", "ImportMesh:=", false), "BasisOrder:=", 1, "DoLambdaRefine:=",  _  true, "DoMaterialLambda:=", true, "SetLambdaTarget:=", false, "Target:=",  _  0.3333, "UseMaxTetIncrease:=", false, "PortAccuracy:=", 2, "UseABCOnPort:=",  _  false, "SetPortMinMaxTri:=", false, "UseDomains:=", false, "UseIterativeSolver:=",  _  false, "EnhancedLowFreqAccuracy:=", false, "SaveRadFieldsOnly:=", false, "SaveAnyFields:=",  _  true, "IESolverType:=", "Auto", "LambdaTargetForIESolver:=", 0.15, "UseDefaultLambdaTgtForIESolver:=",  _  true, "IE Solver Accuracy:=", "Balanced", "InfiniteSphereSetup:=", "")oModule.InsertFrequencySweep "Setup1", Array("NAME:Sweep", "IsEnabled:=", true, "RangeType:=",  _  "LinearStep", "RangeStart:=", "1.5GHz", "RangeEnd:=", "3GHz", "RangeStep:=",  _  "0.01GHz", "Type:=", "Fast", "SaveFields:=", true, "SaveRadFields:=", false, "GenerateFieldsForAllFreqs:=",  _  false)

Set oModule = oDesign.GetModule("ReportSetup")oModule.CreateReport "S Parameter Plot 1", "Modal Solution Data",  _  "Rectangular Plot", "Setup1 : Sweep", Array("Domain:=", "Sweep"), Array("Freq:=", Array( _  "All"), "Sub_W:=", Array("Nominal"), "Sub_L:=", Array("Nominal"), "Sub_h:=", Array( _  "Nominal"), "Patch_w:=", Array("Nominal"), "Patch_l:=", Array("Nominal"), "Feedx:=", Array( _  "Nominal"), "Feedy:=", Array("Nominal"), "Feedr:=", Array("Nominal"), "PortR:=", Array( _  "Nominal"), "c:=", Array("Nominal"), "f:=", Array("Nominal")), Array("X Component:=",  _  "Freq", "Y Component:=", Array("dB(S(1,1))"))