SolidWorks工程圖格式裝換宏

yemao7758

6 \9 `7 \) C# {9 N& a/ `! U
網(wǎng)上找了一個(gè)工程圖轉(zhuǎn)換PDF的宏文件,，根據(jù)自己的需求改了一個(gè)版本,，做了個(gè)界面,，可以裝換多種格式,，并存放到一個(gè)新建文件夾中，相關(guān)說(shuō)明可以見(jiàn)宏程序界面
2 o+ c  Y& N/ J% K9 l' `

yemao7758

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

冷月梧桐

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

展翅飛翔2018

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

yemao7758

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

我這個(gè)用的也就是SW自己的格式保存，就是實(shí)現(xiàn)批量轉(zhuǎn)換的功能,，節(jié)省時(shí)間
5 r; |, }" [1 J% e* x4 @, t

cxc0701

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

向宏

高逼格應(yīng)用

yemao7758

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

# n; n" [5 c0 Z說(shuō)明已經(jīng)寫(xiě)在邊上了,！
) X" O; R$ a- o  a2 }7 j

yemao7758

cxc0701 發(fā)表于 2020-10-25 21:15
' [! R! t- [2 q, L能否說(shuō)明下怎樣使用

0 J3 `* C% L: X% U這是個(gè)宏程序,，用SW宏功能打開(kāi),，也可以生成一個(gè)自定義宏按鈕

simonwei

下載體驗(yàn)下

寰宇無(wú)人

SOLIDWORKS Task Schedular我試了，根本動(dòng)不了,，自己也倒騰了個(gè)宏,，功能是工程圖轉(zhuǎn)換成PDF和DWG文件,，操作是,，工具---》宏----》新建----》把下面的代碼復(fù)制進(jìn)去----》存到硬盤(pán)某個(gè)位置----》,，調(diào)用的時(shí)候是，工具----》宏---》運(yùn)行,，當(dāng)然也可以自定義到SW的工具欄上,，宏文件源代碼如下需要的拿去，：
( Q+ K6 R$ o$ O7 j% a- I: QDim swApp As Object
' A$ e2 N( q+ fDim Part As Object
Dim boolstatus As Boolean
" N$ Y& X: T7 G$ f. l9 r3 {Dim longstatus As Long, longwarnings As Long
9 c) @: N8 G* s  x1 mDim PathStr As String
( }0 U9 [" w  m4 a2 C8 Z( HDim FName(500) As String, FNum As Long
2 t. t8 |( F. U3 m
Sub main()
Dim i As Long
  ?. m+ Q8 t' L/ }& P( kDim PathStr0 As String, PathStr1 As String
! m% K+ [5 @3 |# u# [9 s; w4 ODim PathStr2 As String, PathStr3 As String, PathStr4 As String, PahtStr5 As String
Dim L As Long, L1 As Long
* U* `! {. n3 h# wPathStr = InputBox("請(qǐng)輸入需要轉(zhuǎn)的工程圖所在位置")
. M9 e# M4 ^" y$ \4 }7 qCall Showfilelist(PathStr)
5 _$ v3 l+ I" i: u2 uSet swApp = Application.SldWorks
' T7 F' j/ I) Q5 T% L- o
$ t7 y; G! D2 |0 g+ T8 h5 cFor i = 0 To FNum - 1
    PathStr0 = PathStr & "\" & FName(i)
    Set Part = swApp.OpenDoc6(PathStr0, 3, 0, "", longstatus, longwarnings)
    L = Len(PathStr0)
    PathStr1 = Left(PathStr0, L - 7) & ".DWG"
    PathStr2 = Left(PathStr0, L - 7) & ".PDF"
    longstatus = Part.SaveAs3(PathStr1, 0, 0)
    longstatus = Part.SaveAs3(PathStr2, 0, 0)
7 I* N! f% A. v6 A4 y: d/ x   
    Set Part = Nothing
   
* |2 |6 ?4 n( L) {    L1 = Len(FName(i))
    PathStr3 = Left(FName(i), L1 - 7) & " - 圖紙1"
    PathStr4 = Left(FName(i), L1 - 7) & " - 圖紙2"
1 O- k/ {3 p( ^7 Y    PathStr5 = Left(FName(i), L1 - 7) & " - 圖紙3"
   
/ \! C7 J1 E$ h; E4 u* @4 ^    swApp.CloseDoc PathStr3
    swApp.CloseDoc PathStr4
  q( U2 p: y, h1 o! T    swApp.CloseDoc PathStr5
9 K! Z6 V) u) u% y
" I! A0 ?  A  M( ?+ a2 V; O4 QNext i

  }  u- a% I% [7 @8 H( xEnd Sub

7 Z0 R' d/ F. D  `) F/ o2 hPrivate Sub Showfilelist(folderspec As String)
     Dim fs, f, f1, fc, s
8 P; h2 ?, z) R# c+ u1 }. R4 w     Set fs = CreateObject("Scripting.FileSystemObject")
& P; a0 L) [9 b! E     Set f = fs.GetFolder(folderspec)
6 B$ @5 E( A: r     Set fc = f.Files
     FNum = 0 '清零
     For Each f1 In fc
        If InStr(f1.Name, "SLDDRW") > 0 Then
- I* b, @- t) [6 d7 }! H  u            FName(FNum) = f1.Name
            FNum = FNum + 1
        End If
% r7 r5 c1 A5 v. b( Y7 L+ r& G     Next
9 x6 c7 T, @1 T8 p+ oEnd Sub
! A8 |3 F( S& X2 P- A5 V