1、宏文件使用方法1. 新建宏文件并保存2. 复制“solidworks 批量转 PDF 和 DWG 宏.txt”文件内容 (即 附 1 中内容)至刚刚保存的空白宏文件内。3. 保存宏文件，运行宏文件。 （图中三角）4. 复制所转换格式文件的位置，并粘贴至宏文件运行对话框内，点击确定5. 程序自动运行，如果有多张图纸，或者图纸中有不同比例会停住，点击确定即可继续运行。需注意，一次转换最好不要超过 100 个文件。附 1：星号下面的为宏文件 * 本宏文件用于批量将 SW 的工程图文件(.SLDDRW)转 PDF 和 DWG。 需要开始输入 SW 的工程图文件所在位置。 每个工程图如果超过三张图纸可能
2、会有问题。 一次最多只能转 500 个文件 制作者：KEN *Dim swApp As ObjectDim Part As ObjectDim boolstatus As BooleanDim longstatus As Long, longwarnings As LongDim PathStr As StringDim FName(500) As String, FNum As LongSub main()Dim i As LongDim PathStr0 As String, PathStr1 As StringDim PathStr2 As String, PathStr3 As Str
3、ing, PathStr4 As String, PahtStr5 As StringDim L As Long, L1 As LongPathStr = InputBox(“请输入需要转的工程图所在位置“)Call Showfilelist(PathStr)Set swApp = Application.SldWorksFor i = 0 To FNum - 1PathStr0 = PathStr & “ & FName(i)Set Part = swApp.OpenDoc6(PathStr0, 3, 0, “, longstatus, longwarnings)L = Len(PathSt
4、r0)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 = NothingL1 = Len(FName(i)PathStr3 = Left(FName(i), L1 - 7) & “ - 图纸 1“PathStr4 = Left(FName(i), L1 - 7) & “ - 图纸 2“PathStr5
5、 = Left(FName(i), L1 - 7) & “ - 图纸 3“swApp.CloseDoc PathStr3swApp.CloseDoc PathStr4swApp.CloseDoc PathStr5Next iEnd SubPrivate Sub Showfilelist(folderspec As String)Dim fs, f, f1, fc, sSet fs = CreateObject(“Scripting.FileSystemObject“)Set f = fs.GetFolder(folderspec)Set fc = f.FilesFNum = 0 清零For Each f1 In fcIf InStr(f1.Name, “SLDDRW“) 0 ThenFName(FNum) = f1.NameFNum = FNum + 1End IfNextEnd Sub
