怎么创建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命令段：

取消转PDF文件代码

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

取消关闭文件代码

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

添加宏命令

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