资源描述：
《solidworks批量转换pdf和dwg宏文件使用说明.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、宏文件使用方法1.新建宏文件并保存1.复制“solidworks批量转PDF和DWG宏.txt”文件内容(即附1中内容)至刚刚保存的空白宏文件内。2.保存宏文件，运行宏文件。（图中三角）1.复制所转换格式文件的位置，并粘贴至宏文件运行对话框内，点击确定2.程序自动运行，如果有多张图纸，或者图纸中有不同比例会停住，点击确定即可继续运行。需注意，一次转换最好不要超过100个文件。附1：星号下面的为宏文件'***************************************************************
2、************'本宏文件用于批量将SW的工程图文件(.SLDDRW)转PDF和DWG。'需要开始输入SW的工程图文件所在位置。'每个工程图如果超过三张图纸可能会有问题。'一次最多只能转500个文件'制作者：KEN'***************************************************************************DimswAppAsObjectDimPartAsObjectDimboolstatusAsBooleanDimlongstatusAsLong,longw
3、arningsAsLongDimPathStrAsStringDimFName(500)AsString,FNumAsLongSubmain()DimiAsLongDimPathStr0AsString,PathStr1AsStringDimPathStr2AsString,PathStr3AsString,PathStr4AsString,PahtStr5AsStringDimLAsLong,L1AsLongPathStr=InputBox("请输入需要转的工程图所在位置")CallShowfilelist(PathStr
4、)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)longstatu
5、s=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(f
6、olderspecAsString)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
