SolidWorks如何利用宏代码将工程图另存为PDF?

Sub main()
Dim swApp As SldWorks.SldWorksDim swModel As SldWorks.ModelDoc2Dim swExportPDFData As SldWorks.ExportPdfDataDim strFilename As StringDim status As BooleanDim errors As Long, warnings As Long
Set swApp = Application.SldWorksSet swModel = swApp.ActiveDoc
'Savestatus = swModel.Save3(swSaveAsOptions_e.swSaveAsOptions_Silent, errors, warnings)
'Export to PDF if it is a drawingIf (swModel.GetType = swDocDRAWING) Then
strFilename = swModel.GetPathNamestrFilename = Left(strFilename, Len(strFilename) - 6) & "pdf"Set swExportPDFData = swApp.GetExportFileData(1)swModel.Extension.SaveAs strFilename, 0, 0, swExportPDFData, 0, 0
End If
End Sub