该宏程序经过我改编，在SW工程图界面，只需点击一下宏按钮，立即将SW工程图转换为dwg文件（静默转换没有提示，如果有同名文件直接替换），并且dwg文件是按比例1:1转换的，这样的好处是如果有数控后工序不会出错，可直接导入。下面是源代码：

Dim swApp As Object

Dim Part As Object

Dim Filename As String

Dim No As Integer

Dim Title As String

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

Dim myModelView As Object

Set myModelView = Part.ActiveView

myModelView.FrameState = swWindowState_e.swWindowMaximized

Part.GraphicsRedraw2

Part.ViewZoomTo2 0, 0, 0, 0.1, 0.1, 0.1

Part.ViewZoomTo2 0, 0, 0, 0.1, 0.1, 0.1

Part.ViewZoomTo2 0, 0, 0, 0.1, 0.1, 0.1

Part.ViewZoomTo2 0, 0, 0, 0.1, 0.1, 0.1

Part.ViewZoomTo2 0, 0, 0, 0.1, 0.1, 0.1

Part.ViewZoomtofit2

Filename = Part.GetPathName()

No = Len(Filename)

Filename = Left(Filename, No - 7)

Part.SaveAs2 Filename & ".DWG", 0, True, False 'X = MsgBox("已输出dwg文件在SW工程图同一文件夹", 0)

End Sub