SolidWorks工程圖格式裝換宏

yemao7758

$ x* z# t) G6 [- ~9 k
: \7 M4 G* G% N3 V7 g0 n網上找了一個工程圖轉換PDF的宏文件，根據自己的需求改了一個版本，做了個界面，可以裝換多種格式，并存放到一個新建文件夾中，相關說明可以見宏程序界面
# R1 A2 A. j+ x, X! Q  h0 y4 U& C

yemao7758

不知道有沒有用這個，有使用過的可以反饋一下。目前版本有更新。

冷月梧桐

這個必須支持一下，

展翅飛翔2018

SW里面本身就帶各種格式保存的

yemao7758

展翅飛翔2018 發(fā)表于 2020-10-25 16:48
SW里面本身就帶各種格式保存的

1 @; e# g/ T+ F8 \我這個用的也就是SW自己的格式保存，就是實現批量轉換的功能，節(jié)省時間

cxc0701

能否說明下怎樣使用

向宏

高逼格應用

yemao7758

cxc0701 發(fā)表于 2020-10-25 21:15
能否說明下怎樣使用

說明已經寫在邊上了！

yemao7758

cxc0701 發(fā)表于 2020-10-25 21:15
能否說明下怎樣使用

這是個宏程序，用SW宏功能打開，也可以生成一個自定義宏按鈕

simonwei

下載體驗下

寰宇無人

SOLIDWORKS Task Schedular我試了，根本動不了，自己也倒騰了個宏，功能是工程圖轉換成PDF和DWG文件，操作是，工具---》宏----》新建----》把下面的代碼復制進去----》存到硬盤某個位置----》，調用的時候是，工具----》宏---》運行，當然也可以自定義到SW的工具欄上，宏文件源代碼如下需要的拿去，：
Dim swApp As Object
! W* u1 D, m, @! {$ a" @Dim Part As Object
* D7 s( ?; v" a( L) \7 B: A4 yDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim PathStr As String
Dim FName(500) As String, FNum As Long
, d( \: P; y3 A
% R' X6 d" }0 p2 U0 G; pSub main()
Dim i As Long
Dim PathStr0 As String, PathStr1 As String
% N( p7 S! t# A  jDim PathStr2 As String, PathStr3 As String, PathStr4 As String, PahtStr5 As String
Dim L As Long, L1 As Long
PathStr = InputBox("請輸入需要轉的工程圖所在位置")
) `: G, S8 u7 n0 n, F, o0 I: ZCall Showfilelist(PathStr)
! U+ a4 C& q: c0 j9 R: z- _Set swApp = Application.SldWorks
1 @6 C2 t( W! f8 R' A  d! d
For i = 0 To FNum - 1
    PathStr0 = PathStr & "\" & FName(i)
, H/ x/ d+ @  h- w" W# K# W    Set Part = swApp.OpenDoc6(PathStr0, 3, 0, "", longstatus, longwarnings)
. a  r( s1 u+ n" `$ Q    L = Len(PathStr0)
/ I, B8 i) S8 B6 |: n  s    PathStr1 = Left(PathStr0, L - 7) & ".DWG"
    PathStr2 = Left(PathStr0, L - 7) & ".PDF"
$ W: Z" Q. ^1 C    longstatus = Part.SaveAs3(PathStr1, 0, 0)
" G% M- b7 w9 k, o' A    longstatus = Part.SaveAs3(PathStr2, 0, 0)
   
    Set Part = Nothing
   
    L1 = Len(FName(i))
    PathStr3 = Left(FName(i), L1 - 7) & " - 圖紙1"
9 R" ]3 B% B: V/ d    PathStr4 = Left(FName(i), L1 - 7) & " - 圖紙2"
9 z% ~! X$ h/ F# P) A  ^/ v. m* V    PathStr5 = Left(FName(i), L1 - 7) & " - 圖紙3"
   
' |: h4 ?3 m6 k, A  r    swApp.CloseDoc PathStr3
    swApp.CloseDoc PathStr4
    swApp.CloseDoc PathStr5

% |3 c$ V( R! h. fNext i

End Sub
" I6 r7 k; a+ Y, g4 V/ l) Q( X
% @1 a2 j& W% ]; w! u3 P3 fPrivate Sub Showfilelist(folderspec As String)
     Dim fs, f, f1, fc, s
& C6 `7 j0 {; a6 f# T  x1 |     Set fs = CreateObject("Scripting.FileSystemObject")
2 D- y; S/ G" |     Set f = fs.GetFolder(folderspec)
     Set fc = f.Files
8 H: ~# T- F4 d8 g/ M     FNum = 0 '清零
     For Each f1 In fc
/ c  U5 h$ W# k$ d2 W        If InStr(f1.Name, "SLDDRW") > 0 Then
            FName(FNum) = f1.Name
            FNum = FNum + 1
        End If
     Next
End Sub
7 F. w9 e) V  c1 u9 }