Solidworks工程图一键转换dwg

1、Solidworks工程图一键转换dwg打开SW,工具-宏-新建，选择保存宏的目录，命名宏的文件名：dwg.swp文件自动生成以下语句：DimswAppAsObjectSubmain()SetswApp=Application.SldWorksEndSub删除这些语句，复制以下语句，粘贴进去。DimswAppAsObjectDimPartAsObjectDimFilenameAsStringDimNoAsIntegerDimTitleAsStringSubmain()SetswApp=Application.SldWorksSetPart=swApp.ActiveDocFilename=Par

2、t.GetPathName()No=Len(Filename)Filename=Left(Filename,No-7)Part.SaveAs2Filename&.DWG,0,True,FalseTitle=Part.GetTitleSetPart=NothingswApp.CloseDocTitlex=MsgBox(”输出dwg文件在SW工程图同一文件夹”,0)EndSub解释一下代码的功能，熟悉VB的朋友可以跳过此部的分析，直接看下一段。tinDirtFu-As(ftjtclTOC o 1-5 h zLimF11bnonJkxSbrizifA HYPERLINK l bookmark4Dl*

3、FcKtrlSubFiin(；SetnApplou.S41FirW-AttiveBieFil旳ahe=fartGt0thJ怙km0Wo=LcnTileilbweJFLA-n二Lo-ft(IlLnan-AJB-T)Fart弓刼曲垃打】的皿史AM)iW山YgFilm7ttl-Frt3tTitl#SetPvrl.=氏lhl埠匚lOK.hD4IJtlflA部分：定义变量。让程序以相同的文件名把DWG文件保存在Solidworks工程图相同的文件夹内。（如果Solidworks工程图文件名为：XXX.SLDDRW则AutoCAD图纸的文件名为：XXX.DWG）。此部分不可删除和省略。B部分：转换完成后关

4、闭Solidworks工程图，这对同时需转换大量的工程的话十分有用。如果你转换后不想关闭图纸的话，删了它。C部分：转换后出现一个信息框：“输出dwg文件在SW工程图同一文件夹”。增加这个部分的原因是因为：实现一键操作后，如果一次需转换大量的图纸，转换时太爽了，有时按键按得太快，系统有时会“发病”。操作：工具/自定义，出现“自定义”对话框;选命令/宏，把右面的新建宏小图标往你需要的工具栏上拖，松手;出现“自定义宏按钮”对话框;按右边的文件选择按钮，出现“宏路径”对话框1工具1窗口测）帮助旧）rlSolidii1orisExjilorer.DriveWorlcsJtpress.1选择逆转选择a）大型装配伟梗式乞）宏址插件自定义罔选项（）.自走文菜单他选择我们刚才编辑过的宏文件，按“打开”眦时你可以在“自定义宏按钮”对话框中设置“快捷键”，这对经常要用到转换的朋友也十分有用。此时也可