solidworsk 工程图
可以看见我们刚才执行的操作是把打开的工程图保存成一个 aaa.DWG 文件。
如果打开其他 Solidworks 工程图 bbb ，执行这个宏，结果会把这个图转换成 DWG 文件，但文件名仍然是 aaa.dwg ，这当然不行，我们来改进一下。
6• 把全部代码删除，输入以下代码：（直接从网页拷贝、粘贴吧，保证不会错）
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
Filename = Part.GetPathName()
No = Len(Filename)
Filename = Left(Filename, No - 7)
Part.SaveAs2 Filename & ".DWG", 0, True, False
Title = Part.GetTitle
Set Part = Nothing
swApp.CloseDoc Title
x = MsgBox(" 已保存为 DWG 文件 ", 0)
End Sub
7• 解释一下代码的功能，熟悉 VB 的朋友可以跳过此部的分析，直接看下一段。
