SolidWorks工程圖格式裝換宏

yemao7758

' T4 z* @, M" C& K. C網(wǎng)上找了一個工程圖轉(zhuǎn)換PDF的宏文件,，根據(jù)自己的需求改了一個版本,，做了個界面,，可以裝換多種格式，并存放到一個新建文件夾中,，相關(guān)說明可以見宏程序界面
/ s8 R, M5 K3 N3 M/ L2 |1 ?" ~

yemao7758

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

冷月梧桐

這個必須支持一下,，

展翅飛翔2018

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

yemao7758

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

8 Y2 k& M. d4 E- ~6 e' I我這個用的也就是SW自己的格式保存，就是實現(xiàn)批量轉(zhuǎn)換的功能,，節(jié)省時間
1 U2 }( ^# P2 D. w7 t3 A8 q( u

cxc0701

能否說明下怎樣使用

向宏

高逼格應(yīng)用

yemao7758

cxc0701 發(fā)表于 2020-10-25 21:15
$ v6 _% j4 x0 @2 f! F3 @1 B- j能否說明下怎樣使用

/ B9 S8 K/ V5 w# P/ z2 L: b說明已經(jīng)寫在邊上了！
3 R( w$ h8 K% l/ y  ?, g1 _+ G

yemao7758

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

這是個宏程序,，用SW宏功能打開,，也可以生成一個自定義宏按鈕
1 }" ]6 z: A, ~& u8 V* P

simonwei

下載體驗下

寰宇無人

SOLIDWORKS Task Schedular我試了，根本動不了,，自己也倒騰了個宏,，功能是工程圖轉(zhuǎn)換成PDF和DWG文件，操作是,，工具---》宏----》新建----》把下面的代碼復(fù)制進(jìn)去----》存到硬盤某個位置----》,，調(diào)用的時候是，工具----》宏---》運行,，當(dāng)然也可以自定義到SW的工具欄上,，宏文件源代碼如下需要的拿去，：
Dim swApp As Object
Dim Part As Object
* L" n5 x) I4 w- B7 B, LDim boolstatus As Boolean
0 [1 R7 [, D4 @4 w7 p5 v. RDim longstatus As Long, longwarnings As Long
% ]5 `" A+ V$ O8 ^8 a: W( |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
7 k  ~0 O/ A- h& v7 HPathStr = InputBox("請輸入需要轉(zhuǎn)的工程圖所在位置")
Call Showfilelist(PathStr)
Set swApp = Application.SldWorks
) ~( u, E4 Q4 @2 S: A% G" X1 F
For i = 0 To FNum - 1
! a( r4 H# ]. G' F- i! ?    PathStr0 = PathStr & "\" & FName(i)
    Set Part = swApp.OpenDoc6(PathStr0, 3, 0, "", longstatus, longwarnings)
    L = Len(PathStr0)
4 o% v- X) y6 g    PathStr1 = Left(PathStr0, L - 7) & ".DWG"
    PathStr2 = Left(PathStr0, L - 7) & ".PDF"
    longstatus = Part.SaveAs3(PathStr1, 0, 0)
    longstatus = Part.SaveAs3(PathStr2, 0, 0)
+ g0 z' b, R9 n  U$ [% E( ^   
' e( \) c. z+ d4 t1 a9 u0 }& q    Set Part = Nothing
   
    L1 = Len(FName(i))
+ r8 z7 Q! \; L    PathStr3 = Left(FName(i), L1 - 7) & " - 圖紙1"
    PathStr4 = Left(FName(i), L1 - 7) & " - 圖紙2"
    PathStr5 = Left(FName(i), L1 - 7) & " - 圖紙3"
: x4 ?7 N8 n! Z0 `0 O$ G2 c/ O   
    swApp.CloseDoc PathStr3
8 Y8 _+ `) [" W    swApp.CloseDoc PathStr4
    swApp.CloseDoc PathStr5
$ S6 e* G" j0 T$ t
) Z6 ^6 C/ U% w/ h2 V7 O+ I, lNext i
1 L  n% A& g6 b* E$ ^
End Sub

2 P: Y- C' I& {3 CPrivate 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
/ \* v* ~% _( f* I: N            FName(FNum) = f1.Name
            FNum = FNum + 1
6 o6 I: s) B( e, u& A        End If
0 C- f) ]3 F2 c1 Z6 l     Next
End Sub
2 d2 s  f% {) w) T