SolidWorks工程圖格式裝換宏

yemao7758

' F: n, D; w7 |! a+ _
網上找了一個工程圖轉換PDF的宏文件，根據自己的需求改了一個版本，做了個界面，可以裝換多種格式，并存放到一個新建文件夾中，相關說明可以見宏程序界面

yemao7758

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

冷月梧桐

這個必須支持一下，

展翅飛翔2018

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

yemao7758

展翅飛翔2018 發表于 2020-10-25 16:48
! b3 S2 v9 J  u3 Q' G7 oSW里面本身就帶各種格式保存的

+ _6 ]; z* J9 W0 D我這個用的也就是SW自己的格式保存，就是實現批量轉換的功能，節省時間
8 \+ x" u" P2 F  |

cxc0701

能否說明下怎樣使用

向宏

高逼格應用

yemao7758

cxc0701 發表于 2020-10-25 21:15
9 K" f- L3 }  X! C. r! P$ L2 H9 `能否說明下怎樣使用

說明已經寫在邊上了！
2 a* T: J! o2 w; o4 Y8 u

yemao7758

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

$ B% ~+ A- V6 p5 @& r2 N+ b這是個宏程序，用SW宏功能打開，也可以生成一個自定義宏按鈕
" H/ e5 Q' l" f7 ?; i

simonwei

下載體驗下

寰宇無人

SOLIDWORKS Task Schedular我試了，根本動不了，自己也倒騰了個宏，功能是工程圖轉換成PDF和DWG文件，操作是，工具---》宏----》新建----》把下面的代碼復制進去----》存到硬盤某個位置----》，調用的時候是，工具----》宏---》運行，當然也可以自定義到SW的工具欄上，宏文件源代碼如下需要的拿去，：
Dim swApp As Object
Dim Part As Object
2 A* U' C2 U- |) M" R$ P0 e; ~Dim boolstatus As Boolean
" x6 p* [7 U" Q  \Dim longstatus As Long, longwarnings As Long
Dim PathStr As String
, ~# o9 Q6 H' F+ pDim FName(500) As String, FNum As Long
" j, \. }& s# a) |7 \/ v
Sub main()
Dim i As Long
Dim PathStr0 As String, PathStr1 As String
" r. |. I5 Y0 Q7 r: \  pDim PathStr2 As String, PathStr3 As String, PathStr4 As String, PahtStr5 As String
8 p/ f- P- s/ t4 {0 RDim L As Long, L1 As Long
PathStr = InputBox("請輸入需要轉的工程圖所在位置")
! g( W$ A3 Y; s4 e- s5 K* I% ]Call Showfilelist(PathStr)
Set swApp = Application.SldWorks
/ z( w7 _, h: @3 ?& k9 {
For i = 0 To FNum - 1
1 D9 ~6 Y7 c4 [# ?% Y    PathStr0 = PathStr & "\" & FName(i)
    Set Part = swApp.OpenDoc6(PathStr0, 3, 0, "", longstatus, longwarnings)
$ N1 ~+ k  D  p! }    L = Len(PathStr0)
    PathStr1 = Left(PathStr0, L - 7) & ".DWG"
7 `4 `4 D5 g0 b7 {    PathStr2 = Left(PathStr0, L - 7) & ".PDF"
- _7 o1 b7 T' c# d6 T    longstatus = Part.SaveAs3(PathStr1, 0, 0)
! n  O9 d) q8 T" {" c    longstatus = Part.SaveAs3(PathStr2, 0, 0)
' r* o. ]: s# q; C   
    Set Part = Nothing
. n& G! ~0 |8 a   
    L1 = Len(FName(i))
/ ?" t; ~! N5 V: u# j    PathStr3 = Left(FName(i), L1 - 7) & " - 圖紙1"
    PathStr4 = Left(FName(i), L1 - 7) & " - 圖紙2"
    PathStr5 = Left(FName(i), L1 - 7) & " - 圖紙3"
% o2 T9 j9 L, m& F5 z& l* ~   
    swApp.CloseDoc PathStr3
. D  E* J, k$ l* X& `" n5 b% M7 Q    swApp.CloseDoc PathStr4
4 T* a; \2 s- g* l    swApp.CloseDoc PathStr5

1 Z  q: Z6 V# G% xNext i

1 c" i4 S! {. G1 W: u! f! jEnd Sub
; ^) n7 {- c% n8 S# k% C6 `
1 D' ]: M, g& j1 JPrivate Sub Showfilelist(folderspec As String)
: L8 V6 h. ?" p! B3 M& w8 i/ M     Dim fs, f, f1, fc, s
     Set fs = CreateObject("Scripting.FileSystemObject")
. U% `  s; I% S$ U; L8 l     Set f = fs.GetFolder(folderspec)
8 _  C1 `9 q! k     Set fc = f.Files
1 W/ E+ E5 ]8 B* a: f. S     FNum = 0 '清零
4 l; G9 [2 y9 x$ X, O# ~1 _4 Q     For Each f1 In fc
& w9 S" k0 b% r7 Y/ k6 @6 Y        If InStr(f1.Name, "SLDDRW") > 0 Then
' p6 u" o; W# O' u; R6 E0 C            FName(FNum) = f1.Name
# a+ Z( M5 [  J, O7 L            FNum = FNum + 1
        End If
     Next
# M/ S5 q; }" A; n, \5 J/ pEnd Sub