怎么创建solidworks工程图自动转AutoCAD图的宏命令，一键转图

很多软件都支持宏命令，solidworks也不例外，支持创建宏命令来完成操作动作，可以将重复的操作做成宏命令，就可以达到一键操作的效果。下面讲讲怎么创建工程图转CAD的宏命令，任意打开一个或创建一个工程图，然后调出宏命令工具栏，点击录制，接着操作一次保存为CAD图的操作，操作完后就停止录制宏，保存到电脑任意位置。

然后点编辑宏，选择刚刚保存的宏：

这里可以看见我们刚才执行的操作是把打开的工程图保存在桌面并命名Draw2.DWG 文件。

如果打开其他 Solidworks 工程图 ，执行这个宏，结果会把这个图转换成 DWG 文件，但文件名仍然是 Draw2.dwg 并保存在桌面，这当然不行，我们来改进一下。

修改后的代码：

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

On Error Resume Next

FileName = Part.GetPathName()

sUserDir = VBA.Environ("USERPROFILE") & Chr(92) & Chr(-10304) & Chr(-15386) & Chr(92)

Randomize

If FileName = "" Then FileName = sUserDir & "Part" & Int(Rnd * 1000) & ".SLDDRW"

''' if need SLDDRW FILE,THEN DELETE THIS MARK!

' Part.SaveAs2 Filename, 0, 0, 0

No = Len(FileName)

dwgFileName = Left(FileName, No - 7) & ".PDF"

Part.SaveAs2 dwgFileName, 0, 1, 0

Title = Part.GetTitle

Set Part = swApp.ActiveDoc

On Error Resume Next

FileName = Part.GetPathName()

sUserDir = VBA.Environ("USERPROFILE") & Chr(92) & Chr(-10304) & Chr(-15386) & Chr(92)

Randomize

If FileName = "" Then FileName = sUserDir & "Part" & Int(Rnd * 1000) & ".SLDDRW"

''' if need SLDDRW FILE,THEN DELETE THIS MARK!

' Part.SaveAs2 Filename, 0, 0, 0

No = Len(FileName)

dwgFileName = Left(FileName, No - 7) & ".DWG"

Part.SaveAs2 dwgFileName, 0, 1, 0

Title = Part.GetTitle

Set Part = Nothing

swApp.CloseDoc Title

X = MsgBox(" 已转成 : " & Title & ".PDF/DWG", 0)

End Sub

这段代码完成同时转出一张PDF的图纸和一张Dwg的图纸，最后关闭图纸并弹出提示框确认。

如果不需要PDF图纸就直接删除PDF命令段：

如果不想转换后关闭图纸就删除关闭图纸代码，转换完成后关闭 Solidworks 工程图，这对同时需转换大量的工程图的话十分有用。

最后就是弹出提示对话框，在这里，你可能觉得没用，但如果你再增加一 部分代码：打开同目录中的下一个工程图，用循环语句全部转换，可以同时转换成千上万个工程图，没有这个提示框部分来检查和监测一下，你根本不知道程序运转到什么地方了，还以为死机了呢，当然你觉得没用就删除它，编辑完成后保存。

然后进入工具菜单/自定义，在菜单栏里设置添加宏命令添加到菜单里，也可以在键盘里去新建宏按钮设置快捷键，以后保存转图就一键操作了。

以上方法比较适合单张少量的图纸转换，对于大量的，成百上千的图纸转换我们可以采用其他方法，我们下期再讲。欢迎大家关注留言转发，如果有对solidworks安装使用问题可以留言，如果有想了解的设计知识可以留言，我可以做相关教程分享，谢谢！