2024年6月4日发(作者：)

宏文件使用方法

1.

2.

新建宏文件并保存

复制“solidworks批量转PDF和DWG宏.txt”文件内容(即 附1中内

容)至刚刚保存(de)空白宏文件内.

3.

4.

保存宏文件,运行宏文件.（图中三角）

复制所转换格式文件(de)位置,并粘贴至宏文件运行对话框内,点击确

定

5.

程序自动运行,如果有多张图纸,或者图纸中有不同比例会停住,点击

确定即可继续运行.需注意,一次转换最好不要超过100个文件.

附1：星号下面(de)为宏文件

'

' 本宏文件用于批量将SW(de)工程图文件(.SLDDRW)转PDF和

DWG.

' 需要开始输入SW(de)工程图文件所在位置.

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

' 一次最多只能转500个文件

' 制作者：KEN

'

Dim swApp As Object

Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Dim PathStr As String

Dim FName(500) As String, FNum As Long

Sub main()

Dim i As Long

Dim PathStr0 As String, PathStr1 As String

Dim PathStr2 As String, PathStr3 As String, PathStr4 As

String, PahtStr5 As String

Dim L As Long, L1 As Long

PathStr = InputBox("请输入需要转(de)工程图所在位置")

Call Showfilelist(PathStr)

Set swApp = ks

For i = 0 To FNum - 1

PathStr0 = PathStr & "" & FName(i)

Set Part = c6(PathStr0, 3, 0, "", longstatus,

longwarnings)

L = Len(PathStr0)

PathStr1 = Left(PathStr0, L - 7) & ".DWG"

PathStr2 = Left(PathStr0, L - 7) & ".PDF"

longstatus = 3(PathStr1, 0, 0)

longstatus = 3(PathStr2, 0, 0)

Set Part = 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"

oc PathStr3

oc PathStr4

oc PathStr5

Next i

End Sub

Private Sub Showfilelist(folderspec As String)

Dim fs, f, f1, fc, s

Set fs = CreateObject("stemObject")

Set f = der(folderspec)

Set fc =

FNum = 0 '清零

For Each f1 In fc

If InStr(, "SLDDRW") > 0 Then

FName(FNum) =

FNum = FNum + 1

End If

Next

End Sub