资源描述
新建,文件名为“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)&.DWGPathStr2=Left(PathStr0,L-7)&.PDFlongstatus=Part.SaveAs3(PathStr1,0,0)longstatus=Part.SaveAs3(PathStr2,0,0)SetPart=NothingL1=Len(FName(i)PathStr3=Left(FName(i),L1-7)&-图纸1PathStr4=Left(FName(i),L1-7)&-图纸2PathStr5=Left(FName(i),L1-7)&-图纸3swApp.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,
展开阅读全文