solidworks批量转换pdf和dwg宏文件使用说明Word下载.docx

solidworks批量转换pdf和dwg宏文件使用说明Word下载.docx

《solidworks批量转换pdf和dwg宏文件使用说明Word下载.docx》由会员分享，可在线阅读，更多相关《solidworks批量转换pdf和dwg宏文件使用说明Word下载.docx（6页珍藏版）》请在冰点文库上搜索。

星号下面的为宏文件

'

***************************************************************************

本宏文件用于批量将SW的工程图文件（.SLDDRW）转PDF和DWG。

需要开始输入SW的工程图文件所在位置。

每个工程图如果超过三张图纸可能会有问题。

一次最多只能转500个文件

制作者：

KEN

DimswAppAsObject

DimPartAsObject

DimboolstatusAsBoolean

DimlongstatusAsLong,longwarningsAsLong

DimPathStrAsString

DimFName（500）AsString,FNumAsLong

Submain（）

DimiAsLong

DimPathStr0AsString,PathStr1AsString

DimPathStr2AsString,PathStr3AsString,PathStr4AsString,PahtStr5AsString

DimLAsLong,L1AsLong

PathStr=InputBox（"

请输入需要转的工程图所在位置"

）

CallShowfilelist（PathStr）

SetswApp=Application.SldWorks

Fori=0ToFNum-1

PathStr0=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=Nothing

L1=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.CloseDocPathStr3

swApp.CloseDocPathStr4

swApp.CloseDocPathStr5

Nexti

EndSub

PrivateSubShowfilelist（folderspecAsString）

Dimfs,f,f1,fc,s

Setfs=CreateObject（"

Scripting.FileSystemObject"

Setf=fs.GetFolder（folderspec）

Setfc=f.Files

FNum=0'

清零

ForEachf1Infc

IfInStr（f1.Name,"

SLDDRW"

）>

0Then

FName（FNum）=f1.Name

FNum=FNum+1

EndIf

Next