SolidWorks工程圖格式裝換宏

yemao7758

9 i6 E0 W; h5 e5 ]網上找了一個工程圖轉換PDF的宏文件，根據自己的需求改了一個版本，做了個界面，可以裝換多種格式，并存放到一個新建文件夾中，相關說明可以見宏程序界面

yemao7758

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

冷月梧桐

這個必須支持一下，

展翅飛翔2018

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

yemao7758

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

我這個用的也就是SW自己的格式保存，就是實現批量轉換的功能，節省時間

cxc0701

能否說明下怎樣使用

向宏

高逼格應用

yemao7758

cxc0701 發表于 2020-10-25 21:15
0 l9 A: `( E" w2 B7 o5 k3 b能否說明下怎樣使用

0 [. r- ?# ?( G4 b$ H6 l5 J說明已經寫在邊上了！

yemao7758

cxc0701 發表于 2020-10-25 21:15
9 d) o4 s, W' e, _1 j* ]能否說明下怎樣使用

' |' m7 Q! Z0 t這是個宏程序，用SW宏功能打開，也可以生成一個自定義宏按鈕
8 H2 ^2 _& a. W( g* {

simonwei

下載體驗下

寰宇無人

SOLIDWORKS Task Schedular我試了，根本動不了，自己也倒騰了個宏，功能是工程圖轉換成PDF和DWG文件，操作是，工具---》宏----》新建----》把下面的代碼復制進去----》存到硬盤某個位置----》，調用的時候是，工具----》宏---》運行，當然也可以自定義到SW的工具欄上，宏文件源代碼如下需要的拿去，：
Dim swApp As Object
# D/ Z% y+ k) K2 l, [Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
( h' `' \% ^+ ?; _' LDim PathStr As String
Dim FName(500) As String, FNum As Long

Sub main()
+ J& J7 |- k; ODim i As Long
( C7 ]$ f) |3 `Dim PathStr0 As String, PathStr1 As String
# M' D: U6 Q5 E0 i) G4 KDim PathStr2 As String, PathStr3 As String, PathStr4 As String, PahtStr5 As String
Dim L As Long, L1 As Long
8 x: {, S; C! Y. lPathStr = InputBox("請輸入需要轉的工程圖所在位置")
Call Showfilelist(PathStr)
Set swApp = Application.SldWorks

For i = 0 To FNum - 1
* H' g, t6 B+ X! k1 I/ e    PathStr0 = PathStr & "\" & FName(i)
% i( j8 T9 q' X    Set Part = swApp.OpenDoc6(PathStr0, 3, 0, "", longstatus, longwarnings)
    L = Len(PathStr0)
6 e+ V" g: P% Z9 ~+ U; H; Y    PathStr1 = Left(PathStr0, L - 7) & ".DWG"
    PathStr2 = Left(PathStr0, L - 7) & ".PDF"
- W" A! Q/ x* ]. z# n& C6 ?    longstatus = Part.SaveAs3(PathStr1, 0, 0)
% {) b1 a; A8 l+ b9 K1 a    longstatus = Part.SaveAs3(PathStr2, 0, 0)
) N/ B7 a) M+ @  s/ o   
+ V* J6 F$ U2 K: ^    Set Part = Nothing
# \1 A  x" Q  q2 c, T   
    L1 = Len(FName(i))
, S" d/ z( ]3 t    PathStr3 = Left(FName(i), L1 - 7) & " - 圖紙1"
    PathStr4 = Left(FName(i), L1 - 7) & " - 圖紙2"
; ]& m# S' z- A7 `7 [0 z( m    PathStr5 = Left(FName(i), L1 - 7) & " - 圖紙3"
   
    swApp.CloseDoc PathStr3
& H1 \$ `& {  E- x    swApp.CloseDoc PathStr4
    swApp.CloseDoc PathStr5
( M$ \1 o& s8 g
Next i
  ^! }5 s% y9 {0 h/ N4 C
, z% q3 k( F! _) M/ x; BEnd Sub

Private Sub Showfilelist(folderspec As String)
; C& s. G8 Q( G' ]$ K3 f4 \) T- c. _     Dim fs, f, f1, fc, s
     Set fs = CreateObject("Scripting.FileSystemObject")
  K7 l4 B& b9 s2 [/ S* q     Set f = fs.GetFolder(folderspec)
$ e- b7 [: R- K1 ]     Set fc = f.Files
     FNum = 0 '清零
     For Each f1 In fc
        If InStr(f1.Name, "SLDDRW") > 0 Then
            FName(FNum) = f1.Name
) u  _3 i0 I) X, S: N            FNum = FNum + 1
        End If
     Next
End Sub
2 ~/ {( v2 K+ @