load dxf to HFSS and convert to solid

load dxf

Hi:

One of my former colleague wrote the following cbs for HFSS10 to read dxf and then convert to solid object. But how do I extend this to handle the case when I have more than one slices?

Thanks,

Dim oAnsoftApp
Dim oDesktop
Dim oProject
Dim oDesign
Dim oEditor
Dim oModule
Set oAnsoftApp = CreateObject("AnsoftHfss.HfssScriptInterface")
Set oDesktop = oAnsoftApp.GetAppDesktop()
oDesktop.RestoreWindow
oDesktop.NewProject
Set oProject = oDesktop.GetActiveProject
oProject.InsertDesign "HFSS", "HFSSDesign1", "DrivenModal", ""
Set oDesign = oProject.SetActiveDesign("HFSSDesign1")
Set oEditor = oDesign.SetActiveEditor("3D Modeler")

oEditor.ImportDXF Array("NAMEptions", "FileName:=", _
"C:\data\1_1.dxf", _
"Scale:=", 0.001, "UnionOverlapping:=", false, _
"AutoDetectClosed:=", true, "SelfStitch:=", _
true, "DefeatureGeometry:=", false, "DefeatureDistance:=", 0, _
"RoundCoordinates:=", false, "RoundNumDigits:=", 4, _
"WritePolyWithWidthAsFilledPoly:=", false, _
Array("NAME:LayerInfo", Array("NAME:0", "source:=", "0", _
"display_source:=", "0", "import:=", true, "dest:=", "0", _
"dest_selected:=", false, "layer_type:=", "signal", "paint:=", true), _
Array("NAME:1", "source:=", "1", "display_source:=", "Slice1", _
"import:=", true, "dest:=", "Slice1", "dest_selected:=", false, _
"layer_type:=", "signal", "paint:=", true)))

oDesign.ChangeProperty Array("NAME:AllTabs", _
Array("NAME:LocalVariableTab", Array("NAMEropServers", _
"LocalVariables"), Array("NAME:ChangedProps", _
Array("NAME:Slice1_thickness", "Value:=", "4mm"))))

oDesign.ChangeProperty Array("NAME:AllTabs", _
Array("NAME:LocalVariableTab", Array("NAMEropServers", _
"LocalVariables"), Array("NAME:ChangedProps", _
Array("NAME:Slice1_lower_elevation", "Value:=", "4mm"))))