SolidWorks工程圖格式裝換宏

yemao7758

3 Y- e, M  Y( g1 c' e- e! B" S) W8 M
6 n% l8 S! ]$ }7 q; S* ]9 v8 r' i網(wǎng)上找了一個(gè)工程圖轉(zhuǎn)換PDF的宏文件，根據(jù)自己的需求改了一個(gè)版本，做了個(gè)界面，可以裝換多種格式，并存放到一個(gè)新建文件夾中，相關(guān)說明可以見宏程序界面

yemao7758

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

冷月梧桐

這個(gè)必須支持一下，

展翅飛翔2018

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

yemao7758

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

9 z& d/ D8 x' a& Y' K$ }; |我這個(gè)用的也就是SW自己的格式保存，就是實(shí)現(xiàn)批量轉(zhuǎn)換的功能，節(jié)省時(shí)間

cxc0701

能否說明下怎樣使用

向宏

高逼格應(yīng)用

yemao7758

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

說明已經(jīng)寫在邊上了！

yemao7758

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

8 Q+ V1 m/ z7 k' w這是個(gè)宏程序，用SW宏功能打開，也可以生成一個(gè)自定義宏按鈕

simonwei

下載體驗(yàn)下

寰宇無人

SOLIDWORKS Task Schedular我試了，根本動(dòng)不了，自己也倒騰了個(gè)宏，功能是工程圖轉(zhuǎn)換成PDF和DWG文件，操作是，工具---》宏----》新建----》把下面的代碼復(fù)制進(jìn)去----》存到硬盤某個(gè)位置----》，調(diào)用的時(shí)候是，工具----》宏---》運(yùn)行，當(dāng)然也可以自定義到SW的工具欄上，宏文件源代碼如下需要的拿去，：
Dim swApp As Object
Dim Part As Object
8 N! W5 y5 E2 t+ S& b4 {Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
3 D3 G- y: }9 JDim PathStr As String
Dim FName(500) As String, FNum As Long
+ f) w1 {- U( a8 E5 n: H3 X
& |* h/ F) i6 k% s& J6 dSub main()
) M5 c3 M# o  y! ]* Y, ^$ X4 RDim 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("請(qǐng)輸入需要轉(zhuǎn)的工程圖所在位置")
Call Showfilelist(PathStr)
+ `% q5 M7 |( M- A+ DSet swApp = Application.SldWorks
3 M; x# w' u, e$ J7 }$ B5 C
For i = 0 To FNum - 1
2 Z, n# p& W6 Q8 R1 O5 l) I    PathStr0 = PathStr & "\" & FName(i)
    Set Part = swApp.OpenDoc6(PathStr0, 3, 0, "", longstatus, longwarnings)
    L = Len(PathStr0)
" I. n5 J' h9 a9 [% \  @$ r    PathStr1 = Left(PathStr0, L - 7) & ".DWG"
& `3 P$ y& `* `5 w5 b; l    PathStr2 = Left(PathStr0, L - 7) & ".PDF"
& f3 L- M: E. E0 v1 S/ B1 f" b2 o    longstatus = Part.SaveAs3(PathStr1, 0, 0)
    longstatus = Part.SaveAs3(PathStr2, 0, 0)
   
    Set Part = Nothing
2 C! {; v  d( R9 `! w( z  A   
    L1 = Len(FName(i))
# ?* U! w& m( G% `7 J( }8 @    PathStr3 = Left(FName(i), L1 - 7) & " - 圖紙1"
    PathStr4 = Left(FName(i), L1 - 7) & " - 圖紙2"
3 M8 r, m8 {& P- h    PathStr5 = Left(FName(i), L1 - 7) & " - 圖紙3"
7 F. J& m7 P- l& e+ B5 v! X0 b   
    swApp.CloseDoc PathStr3
    swApp.CloseDoc PathStr4
    swApp.CloseDoc PathStr5

# Q8 N' o4 x$ ]$ T* B/ S1 d" QNext i
2 H/ N6 O. [/ ?. e3 {( ~
End Sub

( R. N2 ^4 j+ EPrivate Sub Showfilelist(folderspec As String)
' V9 a- g0 M6 U( }. f     Dim fs, f, f1, fc, s
3 j/ l4 g; Q% w  d2 F% o' H     Set fs = CreateObject("Scripting.FileSystemObject")
     Set f = fs.GetFolder(folderspec)
     Set fc = f.Files
     FNum = 0 '清零
     For Each f1 In fc
. q9 R0 Q9 m" Z; [5 h7 i8 d9 E8 a        If InStr(f1.Name, "SLDDRW") > 0 Then
            FName(FNum) = f1.Name
  N' t7 Q, l3 V$ f4 `            FNum = FNum + 1
        End If
! |1 `9 l/ N1 u: S2 G" F     Next
7 Y& e" x1 q6 v8 W4 oEnd Sub