Solidworks工程图一键转换dwg

Solidworks工程图一键转换dwg

打开SW，工具- - - 宏- - -新建，选择保存宏的目录，命名宏的文件名：dwg.swp

文件自动生成以下语句：

Dim swApp As Object Sub main()

Set swApp = Application.SldWorks End Sub

删除这些语句，复制以下语句，粘贴进去。 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 & \ Title = Part.GetTitle Set Part = Nothing swApp.CloseDoc Title

x = MsgBox(\输出dwg文件在SW工程图同一文件夹 \0) End Sub

解释一下代码的功能，熟悉 VB 的朋友可以跳过此部的分析，直接看下一段。

A 部分：定义变量。让程序以相同的文件名把 DWG 文件保存在 Solidworks 工程图相同的文件夹内。(如果 Solidworks 工程图文件名为： XXX. SLDDRW 则 AutoCAD 图纸的文件名为： XXX.DWG )。此部分不可删除和省略。

B 部分：转换完成后关闭 Solidworks 工程图，这对同时需转换大量的工程的话十分有用。如果你转换后不想关闭图纸的话，删了它。

C 部分：转换后出现一个信息框：“输出dwg文件在SW工程图同一文件夹”。增加这个部分的原因是因为：实现一键操作后，如果一次需转换大量的图纸，转换时太爽了，有时按键按得太快，系统有时会“发病”。

操作：工具 / 自定义，出现“自定义”对话框;选命令 / 宏，把右面的新建宏小图标往你需要的工具栏上拖，松手;出现“自定义宏按钮”对话框;按右边的文件选择按钮，出现“宏路径”对话框

选择我们刚才编辑过的宏文件，按“打开”;此时你可以在“自定义宏按钮”对话框中设置“快捷键”，这对经常要用到转换的朋友也十分有用。

此时也可以用“选择图象”给此按钮换一个与众不同的图标。 点击“确定”，再确定。

好了!现在打开一张工程图，点击刚才拖出来的按钮， DWG 输出一键结束。

本文来源：https://www.bwwdw.com/article/ng88.html