?? temhornmacro.vbs
字號(hào):
Dim oHfssApp
Dim oDesktop
Dim oProject
Dim oDesign
Dim oEditor
Dim oModule
Set oHfssApp = CreateObject("AnsoftHfss.HfssScriptInterface")
Set oDesktop = oHfssApp.GetAppDesktop()
oDesktop.RestoreWindow
oDesktop.NewProject
Set oProject = oDesktop.GetActiveProject
oProject.InsertDesign "HFSS", "Basic", "DrivenModal", ""
Set oDesign = oProject.SetActiveDesign("Basic")
Set oEditor = oDesign.SetActiveEditor("3D Modeler")
oEditor.CreateBox _
Array("NAME:BoxParameters", _
"XPosition:=", "-1359.500000mm", _
"YPosition:=", "-1542.000000mm", _
"ZPosition:=", "-2448.000000mm", _
"XSize:=", "2974.500000mm", _
"YSize:=", "3084.000000mm", _
"ZSize:=", "4896.000000mm"), _
Array("NAME:Attributes", _
"Name:=", "AirBox", _
"Flags:=", "", _
"Color:=", "(132 132 193)", _
"Transparency:=", 0.75, _
"PartCoordinateSystem:=", "Global", _
"MaterialName:=", "vacuum", _
"SolveInside:=", true)
Set oModule = oDesign.GetModule("BoundarySetup")
oModule.AssignRadiation _
Array("NAME:ABC", _
"Objects:=", Array("AirBox"))
oEditor.ChangeProperty _
Array("NAME:AllTabs", _
Array("NAME:Geometry3DAttributeTab", _
Array("NAME:PropServers","AirBox"), _
Array("NAME:ChangedProps", _
Array("NAME:Transparent", "Value:=", 0.950000) _
) _
) _
)
oEditor.CreateBox _
Array("NAME:BoxParameters", _
"XPosition:=", "365.000000mm", _
"YPosition:=", "-1542.000000mm", _
"ZPosition:=", "-2448.000000mm", _
"XSize:=", "1250.000000mm", _
"YSize:=", "3084.000000mm", _
"ZSize:=", "4896.000000mm"), _
Array("NAME:Attributes", _
"Name:=", "SnowBox", _
"Flags:=", "", _
"Color:=", "(132 132 193)", _
"Transparency:=", 0.75, _
"PartCoordinateSystem:=", "Global", _
"MaterialName:=", "vacuum", _
"SolveInside:=", true)
oEditor.ChangeProperty _
Array("NAME:AllTabs", _
Array("NAME:Geometry3DAttributeTab", _
Array("NAME:PropServers","SnowBox"), _
Array("NAME:ChangedProps", _
Array("NAME:Transparent", "Value:=", 0.850000) _
) _
) _
)
oProject.AddMaterial _
Array("NAME:Snow", _
"permittivity:=", "1.700000", _
"conductivity:=", "0.000000", _
"dielectric_loss_tangent:=", "0.000000")
oEditor.AssignMaterial _
Array("NAME:Selections", _
"Selections:=", "SnowBox"), _
Array("NAME:Attributes", _
"MaterialName:=", "Snow", _
"SolveInside:=", true)
oEditor.CreatePolyline _
Array("NAME:PolylineParameters", "IsPolylineCovered:=", true, "IsPolylineClosed:=", false, _
Array("NAME:PolylinePoints", _
Array("NAME:PLPoint", "X:=", "0.0000mm", "Y:=", "27.5210mm", "Z:=", "5.8400mm"), _
Array("NAME:PLPoint", "X:=", "36.5000mm", "Y:=", "34.6020mm", "Z:=", "7.6650mm"), _
Array("NAME:PLPoint", "X:=", "73.0000mm", "Y:=", "43.8000mm", "Z:=", "10.9500mm"), _
Array("NAME:PLPoint", "X:=", "109.5000mm", "Y:=", "55.8450mm", "Z:=", "15.6950mm"), _
Array("NAME:PLPoint", "X:=", "146.0000mm", "Y:=", "70.8100mm", "Z:=", "24.4550mm"), _
Array("NAME:PLPoint", "X:=", "182.5000mm", "Y:=", "89.4250mm", "Z:=", "34.6750mm"), _
Array("NAME:PLPoint", "X:=", "219.0000mm", "Y:=", "113.1500mm", "Z:=", "52.5600mm"), _
Array("NAME:PLPoint", "X:=", "255.5000mm", "Y:=", "143.4450mm", "Z:=", "80.3000mm"), _
Array("NAME:PLPoint", "X:=", "292.0000mm", "Y:=", "181.7700mm", "Z:=", "123.3700mm"), _
Array("NAME:PLPoint", "X:=", "328.5000mm", "Y:=", "229.9500mm", "Z:=", "190.1650mm"), _
Array("NAME:PLPoint", "X:=", "365.0000mm", "Y:=", "292.0000mm", "Z:=", "292.0000mm")_
), _
Array("NAME:PolylineSegments", _
Array("NAME:PLSegment", "SegmentType:=", "Spline", "StartIndex:=", 0, "NoOfPoints:=", 11) _
) _
), _
Array("NAME:Attributes", _
"Name:=", "HornEdge1", _
"Flags:=", "", _
"Color:=", "(0 0 0)", _
"Transparency:=", 0.800000, _
"PartCoordinateSystem:=", "Global", _
"MaterialName:=", "vacuum", _
"SolveInside:=", true)
oEditor.CreatePolyline _
Array("NAME:PolylineParameters", "IsPolylineCovered:=", true, "IsPolylineClosed:=", false, _
Array("NAME:PolylinePoints", _
Array("NAME:PLPoint", "X:=", "0.0000mm", "Y:=", "-27.5210mm", "Z:=", "5.8400mm"), _
Array("NAME:PLPoint", "X:=", "36.5000mm", "Y:=", "-34.6020mm", "Z:=", "7.6650mm"), _
Array("NAME:PLPoint", "X:=", "73.0000mm", "Y:=", "-43.8000mm", "Z:=", "10.9500mm"), _
Array("NAME:PLPoint", "X:=", "109.5000mm", "Y:=", "-55.8450mm", "Z:=", "15.6950mm"), _
Array("NAME:PLPoint", "X:=", "146.0000mm", "Y:=", "-70.8100mm", "Z:=", "24.4550mm"), _
Array("NAME:PLPoint", "X:=", "182.5000mm", "Y:=", "-89.4250mm", "Z:=", "34.6750mm"), _
Array("NAME:PLPoint", "X:=", "219.0000mm", "Y:=", "-113.1500mm", "Z:=", "52.5600mm"), _
Array("NAME:PLPoint", "X:=", "255.5000mm", "Y:=", "-143.4450mm", "Z:=", "80.3000mm"), _
Array("NAME:PLPoint", "X:=", "292.0000mm", "Y:=", "-181.7700mm", "Z:=", "123.3700mm"), _
Array("NAME:PLPoint", "X:=", "328.5000mm", "Y:=", "-229.9500mm", "Z:=", "190.1650mm"), _
Array("NAME:PLPoint", "X:=", "365.0000mm", "Y:=", "-292.0000mm", "Z:=", "292.0000mm")_
), _
Array("NAME:PolylineSegments", _
Array("NAME:PLSegment", "SegmentType:=", "Spline", "StartIndex:=", 0, "NoOfPoints:=", 11) _
) _
), _
Array("NAME:Attributes", _
"Name:=", "HornEdge2", _
"Flags:=", "", _
"Color:=", "(0 0 0)", _
"Transparency:=", 0.800000, _
"PartCoordinateSystem:=", "Global", _
"MaterialName:=", "vacuum", _
"SolveInside:=", true)
oEditor.Connect _
Array("NAME:Selections", _
"Selections:=", _
"HornEdge1,HornEdge2")
oEditor.ChangeProperty _
Array("NAME:AllTabs", _
Array("NAME:Geometry3DAttributeTab", _
Array("NAME:PropServers", "HornEdge1"), _
Array("NAME:ChangedProps", _
Array("NAME:Name", _
"Value:=", "HornPlate1"))))
oEditor.CreateRectangle _
Array("NAME:RectangleParameters", _
"IsCovered:=", true, _
"XStart:=", "0.000000mm", _
"YStart:=", "27.521000mm", _
"ZStart:=", "5.840000mm", _
"Width:=", "-109.500000mm", _
"Height:=", "-55.042000mm", _
"WhichAxis:=", "Z"), _
Array("NAME:Attributes", _
"Name:=", "RectFeed1", _
"Flags:=", "", _
"Color:=", "(132 132 193)", _
"Transparency:=", 5.000000e-001, _
"PartCoordinateSystem:=", "Global", _
"MaterialName:=", "vacuum", _
"SolveInside:=", true)
oEditor.Unite _
Array("NAME:Selections", _
"Selections:=", "HornPlate1,RectFeed1"), _
Array("NAME:UniteParameters", "KeepOriginals:=", false)
Set oModule = oDesign.GetModule("BoundarySetup")
oModule.AssignPerfectE _
Array("NAME:AntennaMetal", _
"InfGroundPlane:=", false, _
"Objects:=", _
Array("HornPlate1"))
oEditor.DuplicateMirror _
Array("NAME:Selections", "Selections:=", "HornPlate1"), _
Array("NAME:DuplicateToMirrorParameters", _
"DuplicateMirrorBaseX:=", "0.000000mm", _
"DuplicateMirrorBaseY:=", "0.000000mm", _
"DuplicateMirrorBaseZ:=", "0.000000mm", _
"DuplicateMirrorNormalX:=", "0.000000mm", _
"DuplicateMirrorNormalY:=", "0.000000mm", _
"DuplicateMirrorNormalZ:=", "-1.000000mm" _
), _
Array("NAME:Options", "DuplicateBoundaries:=", true)
oEditor.CreateCylinder _
Array("NAME:CylinderParameters", _
"XCenter:=", "-94.900000mm", _
"YCenter:=", "0.000000mm", _
"ZCenter:=", "-58.400000mm", _
"Radius:=", "1.524000mm", _
"Height:=", "64.240000mm", _
"WhichAxis:=", "Z"), _
Array("NAME:Attributes", _
"Name:=", "coaxInner", _
"Flags:=", "", _
"Color:=", "(132 132 193)", _
"Transparency:=", 0, _
"PartCoordinateSystem:=", "Global", _
"MaterialName:=", "vacuum", _
"SolveInside:=", true)
oEditor.CreateCylinder _
Array("NAME:CylinderParameters", _
"XCenter:=", "-94.900000mm", _
"YCenter:=", "0.000000mm", _
"ZCenter:=", "-58.400000mm", _
"Radius:=", "4.953000mm", _
"Height:=", "52.560000mm", _
"WhichAxis:=", "Z"), _
Array("NAME:Attributes", _
"Name:=", "coaxOuter", _
"Flags:=", "", _
"Color:=", "(132 132 193)", _
"Transparency:=", 0, _
"PartCoordinateSystem:=", "Global", _
"MaterialName:=", "vacuum", _
"SolveInside:=", true)
oEditor.CreateCylinder _
Array("NAME:CylinderParameters", _
"XCenter:=", "-94.900000mm", _
"YCenter:=", "0.000000mm", _
"ZCenter:=", "-58.400000mm", _
"Radius:=", "1.524000mm", _
"Height:=", "52.560000mm", _
"WhichAxis:=", "Z"), _
Array("NAME:Attributes", _
"Name:=", "coaxOuter_sub", _
"Flags:=", "", _
"Color:=", "(132 132 193)", _
"Transparency:=", 0, _
"PartCoordinateSystem:=", "Global", _
"MaterialName:=", "vacuum", _
"SolveInside:=", true)
oEditor.Subtract _
Array("NAME:Selections", _
"Blank Parts:=", _
"coaxOuter", _
"Tool Parts:=", _
"coaxOuter_sub"), _
Array("NAME:SubtractParameters", _
"KeepOriginals:=", false)
oEditor.CreateCircle _
Array("NAME:CircleParameters", _
"IsCovered:=", false, _
"XCenter:=", "-94.900000mm", _
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -