solidworks批量转换pdf和dwg宏文件使用说明.doc

(完整版)solidworks批量转换pdf和dwg宏文件使用说明
宏文件使用方法
1. 新建宏文件并保存

2. 复制“solidworks批量转PDF和DWG宏.txt”文件内容(即 附1中内容）至刚刚保存的空白宏文件内.

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

4. 复制所转换格式文件的位置,并粘贴至宏文件运行对话框内，点击确定

5. 程序自动运行,如果有多张图纸，或者图纸中有不同比例会停住，点击确定即可继续运行。需注意，一次转换最好不要超过100个文件.

附1：星号下面的为宏文件
' *＊＊＊*＊*＊*＊***＊*＊**＊*＊＊＊*＊**＊＊*＊*＊**＊＊＊*＊＊＊**＊＊*******＊**＊＊*******＊＊＊***＊＊**
’ 本宏文件用于批量将SW的工程图文件(。SLDDRW)转PDF和DWG。
' 需要开始输入SW的工程图文件所在位置.
' 每个工程图如果超过三张图纸可能会有问题。
’ 一次最多只能转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（”请输入需要转的工程图所在位置”)
Call Showfilelist（PathStr)
Set swApp = Application。SldWorks

For i = 0 To FNum - 1
PathStr0 = PathStr & "\" ＆ FName（i）
Set Part = 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)

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”

swApp.CloseDoc PathStr3
swApp。CloseDoc PathStr4
swApp.CloseDoc PathStr5

Next i

End Sub

Private Sub Showfilelist（folderspec As String）
Dim fs, f， f1， fc， s
Set fs = CreateObject（”Scripting.FileSystemObject”)
Set f = fs。GetFolder(folderspec）
Set fc = f。Files
FNum = 0 '清零
For Each f1 In fc
If InStr(f1。Name, "SLDDRW") > 0 Then
FName（FNum） = f1。Name
FNum = FNum + 1
End If
Next
End Sub