SolidWorks工程圖格式裝換宏

yemao7758

5 j( j" d# R$ V6 i$ ]; P網(wǎng)上找了一個(gè)工程圖轉(zhuǎn)換PDF的宏文件，根據(jù)自己的需求改了一個(gè)版本，做了個(gè)界面，可以裝換多種格式，并存放到一個(gè)新建文件夾中，相關(guān)說(shuō)明可以見宏程序界面

yemao7758

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

冷月梧桐

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

展翅飛翔2018

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

yemao7758

展翅飛翔2018 發(fā)表于 2020-10-25 16:48
1 C; p/ f5 g  c- A! j3 XSW里面本身就帶各種格式保存的

我這個(gè)用的也就是SW自己的格式保存，就是實(shí)現(xiàn)批量轉(zhuǎn)換的功能，節(jié)省時(shí)間

cxc0701

能否說(shuō)明下怎樣使用

向宏

高逼格應(yīng)用

yemao7758

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

說(shuō)明已經(jīng)寫在邊上了！
  n8 _, W7 s) z1 x. i' F

yemao7758

cxc0701 發(fā)表于 2020-10-25 21:15
: i5 d- h8 r, G能否說(shuō)明下怎樣使用

4 e$ O2 s  u; j* g$ O; j: P這是個(gè)宏程序，用SW宏功能打開，也可以生成一個(gè)自定義宏按鈕

simonwei

下載體驗(yàn)下

寰宇無(wú)人

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
+ M- v9 Q2 L# ^/ }8 [0 a' UDim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim PathStr As String
Dim FName(500) As String, FNum As Long
+ m" {1 j# n: c  ]& Y
0 t3 u+ N+ |8 x, H# HSub main()
$ Z* F9 ]8 t0 H- @: a( fDim i As Long
% t( y7 _' Q0 ?& RDim 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)
Set swApp = Application.SldWorks

/ l1 i' _$ }7 x/ Q  xFor i = 0 To FNum - 1
    PathStr0 = PathStr & "\" & FName(i)
. e0 M7 A  g2 K" t5 W: E7 h    Set Part = swApp.OpenDoc6(PathStr0, 3, 0, "", longstatus, longwarnings)
    L = Len(PathStr0)
    PathStr1 = Left(PathStr0, L - 7) & ".DWG"
2 H. Z' g+ A7 q8 N: j    PathStr2 = Left(PathStr0, L - 7) & ".PDF"
    longstatus = Part.SaveAs3(PathStr1, 0, 0)
) r$ c- V# Q# ?    longstatus = Part.SaveAs3(PathStr2, 0, 0)
* Z4 h" b" T8 K$ p   
    Set Part = Nothing
  T. j3 P  z( a% `   
% D" t2 A4 V% j. L1 o) [  Q    L1 = Len(FName(i))
. ]2 Z- [. r5 ]# G# G7 }% Q    PathStr3 = Left(FName(i), L1 - 7) & " - 圖紙1"
    PathStr4 = Left(FName(i), L1 - 7) & " - 圖紙2"
    PathStr5 = Left(FName(i), L1 - 7) & " - 圖紙3"
   
/ o. I( h" Z' u7 t5 C* r    swApp.CloseDoc PathStr3
5 C( y; D; U* t- K    swApp.CloseDoc PathStr4
: T& y. f9 {: G. w    swApp.CloseDoc PathStr5
+ _3 @6 J/ D% s/ U
; I4 J  z& Q0 [/ T, A* R/ QNext i

* o, ]9 b# s6 q( \5 rEnd Sub

Private Sub Showfilelist(folderspec As String)
, `; @4 }1 V9 F. f4 n$ e7 c% C     Dim fs, f, f1, fc, s
1 I1 v. t- P; D* h% |- z" y# w+ R     Set fs = CreateObject("Scripting.FileSystemObject")
     Set f = fs.GetFolder(folderspec)
9 E. s9 h+ e2 `& x( y     Set fc = f.Files
     FNum = 0 '清零
     For Each f1 In fc
        If InStr(f1.Name, "SLDDRW") > 0 Then
            FName(FNum) = f1.Name
( A9 H' B5 f( {! d' G" q            FNum = FNum + 1
        End If
     Next
End Sub