SolidWorks工程圖格式裝換宏

yemao7758

1 w; a2 Z% \) e1 L/ o; N網(wǎng)上找了一個(gè)工程圖轉(zhuǎn)換PDF的宏文件,，根據(jù)自己的需求改了一個(gè)版本，做了個(gè)界面,，可以裝換多種格式,，并存放到一個(gè)新建文件夾中,，相關(guān)說明可以見宏程序界面
% k4 j. a: V% x

yemao7758

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

冷月梧桐

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

展翅飛翔2018

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

yemao7758

展翅飛翔2018 發(fā)表于 2020-10-25 16:48
5 z$ k+ H5 c  b4 \; `; I3 ?SW里面本身就帶各種格式保存的

0 E' D% l$ B: i9 c我這個(gè)用的也就是SW自己的格式保存，就是實(shí)現(xiàn)批量轉(zhuǎn)換的功能,，節(jié)省時(shí)間

cxc0701

能否說明下怎樣使用

向宏

高逼格應(yīng)用

yemao7758

cxc0701 發(fā)表于 2020-10-25 21:15
: {) M' `7 {# F能否說明下怎樣使用

# Z2 b# o$ M/ A3 z8 E& y. x說明已經(jīng)寫在邊上了,！

yemao7758

cxc0701 發(fā)表于 2020-10-25 21:15
. c) J8 ]3 M5 a0 M  b  L能否說明下怎樣使用

" L4 Z3 u3 {& ?' ]. v! n. W這是個(gè)宏程序，用SW宏功能打開,，也可以生成一個(gè)自定義宏按鈕

simonwei

下載體驗(yàn)下

寰宇無人

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
( ?: q  q! }8 i' [5 l" d+ QDim Part As Object
4 J8 T8 b5 j4 }5 b3 @Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim PathStr As String
Dim FName(500) As String, FNum As Long
/ R) F# |9 r& i& b' V0 G0 R
Sub main()
Dim i As Long
( d1 }7 d/ o; u' KDim 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
" [  U, m# }5 P/ M( i9 NPathStr = InputBox("請(qǐng)輸入需要轉(zhuǎn)的工程圖所在位置")
  Z+ j9 I7 ^! y3 {' d& O/ `( x# oCall Showfilelist(PathStr)
Set swApp = Application.SldWorks

For i = 0 To FNum - 1
    PathStr0 = PathStr & "\" & FName(i)
: ~$ w# |  ^' D9 I' q2 l    Set Part = swApp.OpenDoc6(PathStr0, 3, 0, "", longstatus, longwarnings)
$ p/ W  X5 @& Y0 s    L = Len(PathStr0)
% s/ S; T& e& l: v$ h; o    PathStr1 = Left(PathStr0, L - 7) & ".DWG"
: n& C6 U/ m( v0 P    PathStr2 = Left(PathStr0, L - 7) & ".PDF"
    longstatus = Part.SaveAs3(PathStr1, 0, 0)
8 `  e" P9 _; ?+ c    longstatus = Part.SaveAs3(PathStr2, 0, 0)
   
    Set Part = Nothing
   
. ?# A3 e% U+ R9 s6 O    L1 = Len(FName(i))
  x0 E: T9 C# f  U    PathStr3 = Left(FName(i), L1 - 7) & " - 圖紙1"
) w6 S( X4 }$ |. s1 ~    PathStr4 = Left(FName(i), L1 - 7) & " - 圖紙2"
4 ^( Z4 T3 T+ ~9 [8 R    PathStr5 = Left(FName(i), L1 - 7) & " - 圖紙3"
; ?" ]+ {$ Y6 _   
    swApp.CloseDoc PathStr3
. `- @+ o3 j) M    swApp.CloseDoc PathStr4
    swApp.CloseDoc PathStr5
% ?5 {5 w* e# t: O# h/ ^
5 r+ U$ R* ?: \& u0 s: gNext i
* ?% C. C" t3 a! }8 u) l
: ?. n* h; x# N, r5 K8 u) LEnd Sub

& t! _8 j" O: NPrivate Sub Showfilelist(folderspec As String)
5 e; Z, R, X2 E( ]. z9 E     Dim fs, f, f1, fc, s
: W: c0 G6 i) N8 E5 i3 ^! z. o3 N     Set fs = CreateObject("Scripting.FileSystemObject")
- |  v# o, M" s     Set f = fs.GetFolder(folderspec)
! s  Z. V" R" D( Q' E4 A9 M     Set fc = f.Files
- n7 a! S/ A6 V& R3 c& o" i     FNum = 0 '清零
     For Each f1 In fc
        If InStr(f1.Name, "SLDDRW") > 0 Then
' g% S* c  t" B! X            FName(FNum) = f1.Name
            FNum = FNum + 1
  Z- w3 S4 j. q$ `5 }/ k        End If
2 q" U+ N4 [2 w$ V     Next
7 P3 k( h1 _0 ?End Sub
0 h7 h# _1 {4 x+ S