作者saltlake (SaltLake)
看板comm_and_RF
标题[问题] HFSS11 用 dxf 建立 3D 模型
时间Wed Feb 4 07:11:38 2009
之前的同是因为需要靠数入一堆 dxf 的档案在 HFSS10 建立三维模型
而写了 script
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("NAME:options", "FileName:=", _
"D:\Work\4_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:=", "4_1", _
"import:=", true, "dest:=", "4_1", "dest_selected:=", false, _
"layer_type:=", "signal", "paint:=", true)))
oDesign.ChangeProperty Array("NAME:AllTabs", _
Array("NAME:LocalVariableTab", Array("NAME:PropServers", _
"LocalVariables"), Array("NAME:ChangedProps", _
Array("NAME:_4_1_thickness", "Value:=", "5mm"))))
oDesign.ChangeProperty Array("NAME:AllTabs", _
Array("NAME:LocalVariableTab", Array("NAME:PropServers", _
"LocalVariables"), Array("NAME:ChangedProps", _
Array("NAME:_4_1_lower_elevation", "Value:=", "5mm"))))
上面这一小段只是读入第一个 dxf 档案 然後把这个档案的平面图形拉伸
成三维物体
我在 HFSS11 上面测过没问题 但是我必须重复同样的程式片段许多次以便
读取所有的 dxf 档案 比如 4_2.dxf, 4_3.dxf 等等
原本我预期只要把第一段的程式码复制贴上接在後面 然後把档名改掉就好
问题是 这样一来 第一段程式码跑完之後就出现错误讯息而停止
*Global - Messages
[error] Script macro error: Script Error (Code 80070202) in file:
D:/Work/qTstAnsoft_4_2.vbs
Description: Property '_4_2_thickness' does not exist.
Line(26): "oDesign.ChangeProperty
Array("NAME:AllTabs", Array("NAME:LocalVariableTab",
Array("NAME:PropServers", _"
诡异的是 如果我把第二段程式码独立存成一个 vbs 档案去跑就顺利通过
有没有人知道这到底是怎麽回事?
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 71.77.1.125