作者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