beam.vbs

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

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

 Call BeamVars.Edit("FlangeLeftUp",30.000000)
 Call BeamVars.Edit("Width",10.000000)
 Call BeamVars.Edit("HeightUp",10.000000)
 Call BeamVars.Edit("Height",50.050000)
 Call BeamVars.Edit("Length",200.000000)
 
 beam.SaveAs "D://beam/beam.igs"