Solidworks VBA 脚本解释：将工程图、零件批量保存为 PDF、DWG、STEP 格式

Dim swApp As Object: 声明一个名为 swApp 的 Object 类型变量，用于存储 Solidworks 应用程序对象。
Option Explicit: 强制要求在代码中声明所有使用的变量，避免因拼写错误或未声明的变量引起的错误。
Sub main(): 定义一个名为 main 的子程序，作为脚本的入口点。
Dim swApp As SldWorks.SldWorks: 声明一个名为 swApp 的 SldWorks.SldWorks 类型变量，用于存储 Solidworks 应用程序对象。
Set swApp = Application.SldWorks: 将 Solidworks 应用程序的 SldWorks 对象赋值给 swApp 变量。
Dim swModel As SldWorks.ModelDoc2: 声明一个名为 swModel 的 SldWorks.ModelDoc2 类型变量，用于存储当前打开的文档对象。
Set swModel = swApp.ActiveDoc: 将当前打开的文档赋值给 swModel 变量。
Dim selMgr As SldWorks.SelectionMgr: 声明一个名为 selMgr 的 SldWorks.SelectionMgr 类型变量，用于管理当前文档的选择集。
Set selMgr = swModel.SelectionManager: 将 swModel 的 SelectionManager 属性赋值给 selMgr 变量。
Dim docName As String: 声明一个名为 docName 的 String 类型变量，用于存储当前文档的文件名（不包括扩展名）。
docName = Left(swModel.GetTitle, InStrRev(swModel.GetTitle, ".") - 1): 获取当前打开的文档的标题（不包括扩展名），并赋值给 docName 变量。
Dim pdfFilePath As String: 声明一个名为 pdfFilePath 的 String 类型变量，用于存储 PDF 文件的保存路径。
pdfFilePath = "C:\Users\图\Desktop\图纸清单\" & docName & ".pdf": 将 PDF 文件的保存路径赋值给 pdfFilePath 变量。
swModel.SaveAs3 pdfFilePath, swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nothing, 0, 0: 将当前打开的文档另存为同名的 PDF 格式文件，保存到指定文件夹，并设置保存选项为静默保存。
Dim dwgFilePath As String: 声明一个名为 dwgFilePath 的 String 类型变量，用于存储 DWG 文件的保存路径。
dwgFilePath = "C:\Users\图\Desktop\图纸清单\" & docName & ".dwg": 将 DWG 文件的保存路径赋值给 dwgFilePath 变量。
swModel.SaveAs3 dwgFilePath, swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nothing, 0, 0: 将当前打开的文档另存为同名的 DWG 格式文件，保存到指定文件夹，并设置保存选项为静默保存。
Dim refModel As SldWorks.ModelDoc2: 声明一个名为 refModel 的 SldWorks.ModelDoc2 类型变量，用于存储引用的零件文档对象。
Dim refObj As Object: 声明一个名为 refObj 的 Object 类型变量，用于循环遍历引用的零件文档。
For Each refObj In selMgr.GetReferencedDocuments: 遍历当前打开的文档中所引用的所有文档。
Set refModel = refObj: 将引用的文档赋值给 refModel 变量。
If refModel.GetType = swDocPART Then: 判断引用的文档是否为零件文档。
If Not refModel.IsOpened Then: 判断零件文档是否已经打开。
swApp.OpenDoc6 refModel.GetPathName, swDocPART, swOpenDocOptions_Silent, "", 0, 0: 如果零件文档未打开，则打开它，并设置打开选项为静默打开。
Dim stepFilePath As String: 声明一个名为 stepFilePath 的 String 类型变量，用于存储 STEP 文件的保存路径。
stepFilePath = "C:\Users\图\Desktop\图纸清单\" & docName & ".step": 将 STEP 文件的保存路径赋值给 stepFilePath 变量。
refModel.SaveAs3 stepFilePath, swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nothing, 0, 0: 将当前打开的零件文档另存为同名的 STEP 格式文件，保存到指定文件夹，并设置保存选项为静默保存。
Next refObj: 继续遍历下一个引用的文档。
End Sub: 结束子程序。