muuttaminen Esitysmuoto ja HFSS?

[ryanma]

Dear all,Haluan tietää, miten voimme muuttaa Esitysmuoto ja HFSS, käytän Matlab valvoa HFSS kautta VBScript, haluan muuttaa Esitysmuoto, mutta minulla ei ole aavistustakaan.
Seuraavassa on VBScript.
Please help!Dim oHfssApp
Dim oDesktop
Dim oProject
Dim oDesign
Dim oEditor
Dim oModule
Set oHfssApp = CreateObject ( "AnsoftHfss.HfssScriptInterface")
Set oDesktop = oHfssApp.GetAppDesktop ()
oDesktop.NewProject
Set oProject = oDesktop.GetActiveProject
oProject.InsertDesign "HFSS", "HFSSModel1", "DrivenModal", ","
Set oDesign = oProject.SetActiveDesign ( "HFSSModel1")
Set oEditor = oDesign.SetActiveEditor ( "3D Modeler)
oEditor.SetModelUnits Array ( "Nimi: Yksiköt Parametri", "Yksiköt: =", "in", "Rescale: =", _
false)
oEditor.CreateBox Array ( "Nimi: BoxParameters", "XPosition: =", "0cm", "YPosition: =", _
"0cm", "ZPosition: =", "0cm", "XSize: =", "0.9in", "YSize: =", "2in", "ZSize: =", _
"0.4in"), Array ( "Nimi: ominaisuudet", "Name: =", "Box1", "Flags: =", "", "Color: =", _
"(132 132 193)", "Avoimuus: =", 0.9 "PartCoordinateSystem: =", _
"Global", "MaterialName: =", "tyhjiön", "SolveInside: =", true)
oDesign.ChangeProperty Array ( "Nimi: AllTabs", Array ( "Nimi: LocalVariableTab", Array ( "Nimi: PropServers", _
"LocalVariables"), Array ( "Nimi: NewProps", Array ( "Nimi: wg_y", "PropType: =", "VariableProp", "userdef: =", _
totta, "Arvo: =", "1in "))))
oEditor.ChangeProperty Array ( "Nimi: AllTabs", Array ( "Nimi: Geometry3DCmdTab", Array ( "Nimi: PropServers", _
"Box1: CreateBox: 1"), Array ( "Nimi: ChangedProps", Array ( "Nimi: YSize", "Arvo: =", "wg_y "))))
Set oModule = oDesign.GetModule ( "BoundarySetup")
oModule.AssignWavePort Array ( "Nimi: WavePort1", "NumModes: =", 1 "PolarizeEField: =", _
false, "DoDeembed: =", false, "DoRenorm: =", false, Array ( "Nimi: Modes", Array ( "Nimi: Mode 1", "ModeNum: =", _
1, "UseIntLine: =", true, Array ( "Nimi: IntLine", "Start: =", Array ( "0.45in", "0cm", _
"0cm"), "End: =", Array ( "0.45in", "0cm", "0.4in")), "CharImp: =", "Zpi")), "Faces: =", Array (_
9))
oModule.AssignWavePort Array ( "Nimi: WavePort2", "NumModes: =", 1 "PolarizeEField: =", _
false, "DoDeembed: =", false, "DoRenorm: =", false, Array ( "Nimi: Modes", Array ( "Nimi: Mode 1", "ModeNum: =", _
1, "UseIntLine: =", true, Array ( "Nimi: IntLine", "Start: =", Array ( "0.45in", "1in", _
"0cm"), "End: =", Array ( "0.45in", "1in", "0.4in")), "CharImp: =", "Zpi")), "Faces: =", Array (_
11))
Set oModule = oDesign.GetModule ( "AnalysisSetup")
oModule.InsertSetup "HfssDriven", Array ( "Nimi: Setup1", "Frequency: =", "10GHz", "PortsOnly: =", _
false, "MaxDeltaS: =", 0,01, "UseMatrixConv: =", false, "MaximumPasses: =", 5, "MinimumPasses: =", _
1, "MinimumConvergedPasses: =", 1, "PercentRefinement: =", 20 "ReducedSolutionBasis: =", _
false, "DoLambdaRefine: =", true, "DoMaterialLambda: =", true, "Target: =", _
0.3333, "PortAccuracy: =" 1 "SetPortMinMaxTri: =", false)
oDesign.ChangeProperty Array ( "Nimi: AllTabs", Array ( "Nimi: LocalVariableTab", Array ( "Nimi: PropServers", _
"LocalVariables"), Array ( "Nimi: ChangedProps", Array ( "Nimi: wg_y", "Arvo: =", "2in "))))
oProject.SaveAs "E: \ FYP \ xband_wg_script.hfss", true
oDesign.Solve Array ( "Setup1")
Set oModule = oDesign.GetModule ( "Solutions")
oModule.ExportNetworkData "wg_y =" & Chr (39) & "2in" & Chr (39) & ", Array (_
"Setup1: LastAdaptive"), 7, _
"E: \ FYP \ xband_wg_smatrix.m", Array ( "kaikki"), false, 50
oProject.Save