solidworks批量转换pdf和dwg宏文件使用说明

宏文件使用方法宏文件使用方法 1 新建宏文件并保存 2 复制 solidworks 批量转 PDF 和 DWG 宏 txt 文件内容 即 附 1 中内容 至刚刚保存的 空白宏文件内 3 保存宏文件 运行宏文件 图中三角 4 复制所转换格式文件的位置 并粘贴至宏文件运行对话框内 点击确定 5 程序自动运行 如果有多张图纸 或者图纸中有不同比例会停住 点击确定即可继续 运行 需注意 一次转换最好不要超过 100 个文件 附 1 星号下面的为宏文件 本宏文件用于批量将 SW 的工程图文件 SLDDRW 转 PDF 和 DWG 需要开始输入 SW 的工程图文件所在位置 每个工程图如果超过三张图纸可能会有问题 一次最多只能转 500 个文件 制作者 KEN Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long longwarnings As Long Dim PathStr As String Dim FName 500 As String FNum As Long Sub main Dim i As Long Dim PathStr0 As String PathStr1 As String Dim PathStr2 As String PathStr3 As String PathStr4 As String PahtStr5 As String Dim L As Long L1 As Long PathStr InputBox 请输入需要转的工程图所在位置 Call Showfilelist PathStr Set swApp Application SldWorks For i 0 To FNum 1 PathStr0 PathStr FName i Set Part swApp OpenDoc6 PathStr0 3 0 longstatus longwarnings L Len PathStr0 PathStr1 Left PathStr0 L 7 DWG PathStr2 Left PathStr0 L 7 PDF longstatus Part SaveAs3 PathStr1 0 0 longstatus Part SaveAs3 PathStr2 0 0 Set Part Nothing L1 Len FName i PathStr3 Left FName i L1 7 图纸 1 PathStr4 Left FName i L1 7 图纸 2 PathStr5 Left FName i L1 7 图纸 3 swApp CloseDoc PathStr3 swApp CloseDoc PathStr4 swApp CloseDoc PathStr5 Next i End Sub Private Sub Showfilelist folderspec As String Dim fs f f1 fc s Set fs CreateObject Scripting FileSystemObject Set f fs GetFolder folderspec Set fc f Files FNum 0 清零 For Each f1 In fc If InSt