如何将Solidworks工程图转为CAD图纸的方法( 二 ) _云知道

　6、辛辛苦苦设置了这么多，可千万不能一确定了之，它可不会自动保存!选择“映射文件设定”，找个目录，起个名字，按“确定”保存起来。

7、点击“确定”，完成。
打开转换的 DWG 文件，如果有什么不对的地方，回过头来修改设置，重新保存，直到满意为止。
三、高级一键搞定
两篇我们已讨论了转换问题，本篇涉及到具体的转换并不多，而是介绍 Solidworks 的另一个有用的工具——宏。其实，其他 Solidworks 的操作也可以如此简化的。
你是否觉得，每次转换的时候很繁，需东点西选，经常容易搞错另存为的格式，讨厌的映射文件每次出现，等待你更改?下面我们摆平它!
1、在 Solidworks 中操作：文件 – 另存为，选择保存类型为 DWG 或 DXF，点击选项，出现“输出选项”对话框，选择“每次保存时不显示映射”，重新输出一遍。使映射设置对话框在输出的时候不再显示；

2、在 Solidworks 中操作：工具 – 宏操作 – 录制；

3、把输出 DWG 文件的操作再来一遍。然后操作：工具 – 宏操作 – 停止，会出现宏的“另存为”对话框；
4、取名保存宏；
5、操作：工具 – 宏操作 – 编辑，选择我们刚才保存的宏；

可以看见我们刚才执行的操作是把打开的工程图保存成一个 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 部分来检查和监测一下，你根本不知道程序运转到什么地方了，还以为死机了呢。