原始录制代码如下：
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
' Save As
longstatus = Part.SaveAs3("E:\5A宁波\5A(1)\宁波\下料nb K-8X8\8x8-KD11nb（1）.IGS", 0, 2)
End Sub
