SolidWorks工程圖格式裝換宏

yemao7758

6 ]. I' H0 \' W: O* o+ ^* k- {# Q網上找了一個工程圖轉換PDF的宏文件，根據自己的需求改了一個版本，做了個界面，可以裝換多種格式，并存放到一個新建文件夾中，相關說明可以見宏程序界面
  p  F- r3 P) n6 w- \

yemao7758

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

冷月梧桐

這個必須支持一下，

展翅飛翔2018

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

yemao7758

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

" g# y& K( |+ j0 O1 I我這個用的也就是SW自己的格式保存，就是實現批量轉換的功能，節省時間
  Q3 m4 p& m" m! D, q: c

cxc0701

能否說明下怎樣使用

向宏

高逼格應用

yemao7758

cxc0701 發表于 2020-10-25 21:15
, W; l' a# P3 Z, y5 l- T能否說明下怎樣使用

  \8 A- |% a9 ^/ N7 l% E! {說明已經寫在邊上了！
! ?2 j, m7 n) ~8 }% [" V

yemao7758

cxc0701 發表于 2020-10-25 21:15
0 r6 Z3 Q9 I; s! O8 B& W" s4 J+ d能否說明下怎樣使用

9 n( U; y2 s' x' ]; ?這是個宏程序，用SW宏功能打開，也可以生成一個自定義宏按鈕

simonwei

下載體驗下

寰宇無人

SOLIDWORKS Task Schedular我試了，根本動不了，自己也倒騰了個宏，功能是工程圖轉換成PDF和DWG文件，操作是，工具---》宏----》新建----》把下面的代碼復制進去----》存到硬盤某個位置----》，調用的時候是，工具----》宏---》運行，當然也可以自定義到SW的工具欄上，宏文件源代碼如下需要的拿去，：
/ ]6 i& k) X5 @' S4 e6 U& G7 ~1 vDim swApp As Object
3 ?* S- \3 y' R" u& SDim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim PathStr As String
7 C$ B3 d  L3 P  s( Q+ ?3 }( q* u% X; sDim FName(500) As String, FNum As Long
7 @' a- g* Y) J& i1 `
  A/ o) O$ O/ b; gSub main()
Dim i As Long
Dim PathStr0 As String, PathStr1 As String
$ G, x8 L7 a2 R, d) N, J; Z6 }Dim PathStr2 As String, PathStr3 As String, PathStr4 As String, PahtStr5 As String
Dim L As Long, L1 As Long
) k9 @8 |! Y" w8 H. Y2 _PathStr = InputBox("請輸入需要轉的工程圖所在位置")
Call Showfilelist(PathStr)
3 R" _/ l9 N9 ?* ^, Y3 }7 TSet swApp = Application.SldWorks

% T% z/ Y/ h! I. x' A( y" a/ GFor i = 0 To FNum - 1
    PathStr0 = PathStr & "\" & FName(i)
    Set Part = swApp.OpenDoc6(PathStr0, 3, 0, "", longstatus, longwarnings)
; K5 V7 Z6 }' S: y1 l, l5 K    L = Len(PathStr0)
* q# |! S; ?& h7 W    PathStr1 = Left(PathStr0, L - 7) & ".DWG"
    PathStr2 = Left(PathStr0, L - 7) & ".PDF"
; u) @9 D/ h( d  c    longstatus = Part.SaveAs3(PathStr1, 0, 0)
    longstatus = Part.SaveAs3(PathStr2, 0, 0)
# N% [8 i4 p( u$ L# ~   
    Set Part = Nothing
/ v" B/ o5 S- W6 m3 `0 r: F   
; X! c$ F; B8 r# z' z0 v. f    L1 = Len(FName(i))
3 [1 K8 x' \7 ~    PathStr3 = Left(FName(i), L1 - 7) & " - 圖紙1"
    PathStr4 = Left(FName(i), L1 - 7) & " - 圖紙2"
9 f2 U8 C; {6 R" j* o8 V    PathStr5 = Left(FName(i), L1 - 7) & " - 圖紙3"
   
    swApp.CloseDoc PathStr3
    swApp.CloseDoc PathStr4
& y, v2 s7 ]6 _! M) b) Q. ^    swApp.CloseDoc PathStr5
% `& o- Q& f) _5 f+ \( u) ?' s' U8 G
Next i

: x/ T. f8 N3 Z* w( ]- N# N; hEnd Sub

Private Sub Showfilelist(folderspec As String)
     Dim fs, f, f1, fc, s
! r9 b+ F3 ]% p; O3 y7 w     Set fs = CreateObject("Scripting.FileSystemObject")
9 b4 i. M1 p6 Y  k' [9 u7 j     Set f = fs.GetFolder(folderspec)
: b3 _  Z- J8 Y1 p9 F# q     Set fc = f.Files
* z- p4 g1 y( v& _' I2 M     FNum = 0 '清零
     For Each f1 In fc
        If InStr(f1.Name, "SLDDRW") > 0 Then
            FName(FNum) = f1.Name
            FNum = FNum + 1
        End If
/ B- }+ j/ i0 O6 v     Next
End Sub
; ~3 S  R# ?$ U3 ^/ ]; ^5 D( ?