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

《SolidWorks宏-批量转换pdf和dwg.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、新建文件名为“PLZH”在跳出的窗口里粘贴记最后一页中的内容保存运行找到PLZH.swp文件在跳出的窗口中输入要转换的工程图路径软件将会自动转换，期间SW窗口会自动开启和关闭转换的文件转换结束后恢复宏运行前的的状态转换好的PDF和DWG文件都将会在工程图所在文件夹保存DimswAppAsObjectDimPartAsObjectDimboolstatusAsBooleanDimlongstatusAsLong,longwarningsAsLongDimPathStrAsStringDimFName(500)AsString,FNumAsLongSubmain()Dim

2、iAsLongDimPathStr0AsString,PathStr1AsStringDimPathStr2AsString,PathStr3AsString,PathStr4AsString,PahtStr5AsStringDimLAsLong,L1AsLongPathStr=InputBox("请输入需要转的工程图所在文件夹的完整路径")CallShowfilelist(PathStr)SetswApp=Application.SldWorksFori=0ToFNum-1PathStr0=PathStr&""&FName(i)SetPart=swApp.Open

3、Doc6(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

4、(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'清零For

5、Eachf1InfcIfInStr(f1.Name,"SLDDRW")>0ThenFName(FNum)=f1.NameFNum=FNum+1EndIfNextEndSub