前两篇我们已讨论了转换问题，本篇涉及到具体的转换并不多，而是介绍 Solidworks 的另一个有用的工具——宏。其实，其他 Solidworks 的操作也可 以如此简化的。
你是否觉得，每次转换的时候很繁，需东点西选，经常容易搞错另存为的格式， 讨厌的映射文件每次出现，等待你更改？下面我们摆平它！
1• 在 Solidworks 中操作：文件 / 另存为，选择保存类型为 DWG 或 DXF ， 点击选项，出现“输出选项”对话框，选择“每次保存时不显示映射”，重新输 出一遍。使映射设置对话框在输出的时候不再显示。
2• 在 Solidworks 中操作：工具 / 宏操作 / 录制
3• 把输出 DWG 文件的操作再来一遍。然后操作：工具 / 宏操作 / 停止，会 出现宏的“另存为”对话框。
4• 取名保存宏。
5• 操作：工具 / 宏操作 / 编辑，选择我们刚才保存的宏。 VBA 打开了宏。
可以看见我们刚才执行的操作是把打开的工程图保存成一个 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 的朋友可以跳过此部的分析，直接看下一 段。
A 部分：定义变量。让程序以相同的文件名把 DWG 文件保存在 Solidworks 工 程图相同的文件夹内。（如果 Solidworks 工程图文件名为： XXX. SLDDRW 则 AutoCAD 图纸的文件名为： XXX.DWG ）。此部分不可删除和省略。
B 部分：转换完成后关闭 Solidworks 工程图，这对同时需转换大量的工程的话 十分有用。如果你转换后不想关闭图纸的话，删了它。
C 部分：转换后出现一个信息框：“已保存为 DWG 文件”。增加这个部分的原 因是因为：实现一键操作后，如果一次需转换大量的图纸，转换时太爽了，有时 按键按得太快，系统有时会“发病”。如果把“已保存为 DWG 文件”换成：
” 文件已转成 : “& Title & “.DWG” 。
信息框就输出转换后的文件名。
在这里，你可能觉得没用，但如果你在 C 部分后再增加一个 D 部分：打开同目 录中的下一个工程图，用循环语句全部转换，哈哈！……可以同时转换成千上万 个工程图，没有 C 部分来检查和监测一下，你根本不知道程序运转到什么地方 了，还以为死机了呢。
8• 好了！广告结束了，记住：上一行的东西千万不能粘贴在代码里。我们接
着讨论——：
9• 直接关闭 VBA 宏编辑器，在更改的时候它会自动保存。所已在更改的时候 要小心点。
10• 添加“宏” TOOLBAR ，一键搞定它。操作：工具 / 自定义，出现“自定 义”对话框；选命令 / 宏，把右面的人头小图标往你需要的工具栏上拖，松手； 出现“自定义宏按钮”对话框；按右边的文件选择按钮，出现“宏路径”对话框
11• 选择我们刚才编辑过的宏文件，按“打开”；此时你可以在“自定义宏按 钮”对话框中设置“快捷键”，这对经常要用到转换的朋友也十分有用。此时也 可以用“选择图象”给此按钮换一个与众不同的图标。
12• 点击“确定”，再确定。
13• 好了！现在打开一张工程图，点击刚才拖出来的按钮， DWG 输出一键结 束。
