template.txt

来自「一个isight调用ansys接口的例子」· 文本 代码 · 共 15 行

 Dim sdApp, beam 
 Dim BeamVars 
  
 Set sdApp = GetObject(, "SolidEdge.Application")
 Set beam = sdApp.ActiveDocument
 
 Set BeamVars = beam.variables

 Call BeamVars.Edit("FlangeLeftUp",50.0000000)
 Call BeamVars.Edit("Width",20.0000000)
 Call BeamVars.Edit("HeightUp",20.000000)
 Call BeamVars.Edit("Height",50.0000000)
 Call BeamVars.Edit("Length",360.0000000)
 
 beam.SaveAs "D://beam/beam.igs"