SolidWorks宏-批量转换pdf和dwg.ppt

新建 文件名为 PLZH 在跳出的窗口里粘贴记最后一页中的内容 保存 运行 找到PLZH swp文件 在跳出的窗口中输入要转换的工程图路径 软件将会自动转换 期间SW窗口会自动开启和关闭转换的文件转换结束后恢复宏运行前的的状态转换好的PDF和DWG文件都将会在工程图所在文件夹保存 DimswAppAsObjectDimPartAsObjectDimboolstatusAsBooleanDimlongstatusAsLong longwarningsAsLongDimPathStrAsStringDimFName 500 AsString FNumAsLongSubmain DimiAsLongDimPathStr0AsString PathStr1AsStringDimPathStr2AsString PathStr3AsString PathStr4AsString PahtStr5AsStringDimLAsLong L1AsLongPathStr InputBox 请输入需要转的工程图所在文件夹的完整路径 CallShowfilelist PathStr SetswApp Application SldWorksFori 0ToFNum 1PathStr0 PathStr FName i SetPart 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 SetPart NothingL1 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 CloseDocPathStr3swApp CloseDocPathStr4swApp CloseDocPathStr5NextiEndSubPrivateSubShowfilelist folderspecAsString Dimfs f f1 fc sSetfs CreateObject Scripting FileSystemObject Setf fs GetFolder folderspec Setfc f FilesFNum 0 清零ForEachf1InfcIfInStr f1 Name SLDDRW 0ThenFName FNum f1 NameFNum FNum 1EndIfNextEndSub