SolidWorks工程图格式装换宏

yemao7758

! D' j( E/ g& _! a' @
网上找了一个工程图转换PDF的宏文件，根据自己的需求改了一个版本，做了个界面，可以装换多种格式，并存放到一个新建文件夹中，相关说明可以见宏程序界面

yemao7758

不知道有没有用这个，有使用过的可以反馈一下。目前版本有更新。

冷月梧桐

这个必须支持一下，

展翅飞翔2018

SW里面本身就带各种格式保存的

yemao7758

展翅飞翔2018 发表于 2020-10-25 16:48
SW里面本身就带各种格式保存的

我这个用的也就是SW自己的格式保存，就是实现批量转换的功能，节省时间

cxc0701

能否说明下怎样使用

向宏

高逼格应用

yemao7758

cxc0701 发表于 2020-10-25 21:15
( |  K& Y. m0 ^! F( ?" O& Q3 s4 {能否说明下怎样使用

说明已经写在边上了！
- k; h9 F3 I$ Y4 i& J: `( I0 P7 U

yemao7758

cxc0701 发表于 2020-10-25 21:15
; p5 \* F) E" V$ P5 s+ ]能否说明下怎样使用

这是个宏程序，用SW宏功能打开，也可以生成一个自定义宏按钮

simonwei

下载体验下

寰宇无人

SOLIDWORKS Task Schedular我试了，根本动不了，自己也倒腾了个宏，功能是工程图转换成PDF和DWG文件，操作是，工具---》宏----》新建----》把下面的代码复制进去----》存到硬盘某个位置----》，调用的时候是，工具----》宏---》运行，当然也可以自定义到SW的工具栏上，宏文件源代码如下需要的拿去，：
9 k$ l4 a7 _+ B, T' gDim swApp As Object
3 d) y5 i& f! t/ \Dim Part As Object
Dim boolstatus As Boolean
2 S$ H5 U0 c/ c# h" z+ D1 sDim longstatus As Long, longwarnings As Long
Dim PathStr As String
6 X8 `/ X3 I4 x. QDim FName(500) As String, FNum As Long
. E* e: C4 Z$ |
Sub main()
Dim i As Long
/ q# o. n1 T" _Dim PathStr0 As String, PathStr1 As String
3 w; h1 q) ^7 v0 }) aDim PathStr2 As String, PathStr3 As String, PathStr4 As String, PahtStr5 As String
Dim L As Long, L1 As Long
PathStr = InputBox("请输入需要转的工程图所在位置")
8 `& z9 L1 X! n' m( _8 p( m7 eCall Showfilelist(PathStr)
1 u: f( @) p+ F. Q1 GSet swApp = Application.SldWorks
' a* f9 R& G9 }6 }
For i = 0 To FNum - 1
+ o# f  M* L! s( F) ~    PathStr0 = PathStr & "\" & FName(i)
1 i* t7 T2 V1 D3 _: @& V    Set Part = swApp.OpenDoc6(PathStr0, 3, 0, "", longstatus, longwarnings)
    L = Len(PathStr0)
    PathStr1 = Left(PathStr0, L - 7) & ".DWG"
; m, e6 E6 C( \3 p    PathStr2 = Left(PathStr0, L - 7) & ".PDF"
: r$ h, o8 G" a! k# H6 `- Q" M    longstatus = Part.SaveAs3(PathStr1, 0, 0)
) [/ D4 y0 d3 v# Z, V& _- G    longstatus = Part.SaveAs3(PathStr2, 0, 0)
! q8 q0 r% Z3 T) T& d   
    Set Part = Nothing
$ g, j% T4 y2 a2 G   
, U$ I+ }8 R% e    L1 = Len(FName(i))
    PathStr3 = Left(FName(i), L1 - 7) & " - 图纸1"
    PathStr4 = Left(FName(i), L1 - 7) & " - 图纸2"
! d. E/ E% o% J1 i    PathStr5 = Left(FName(i), L1 - 7) & " - 图纸3"
   
    swApp.CloseDoc PathStr3
% v6 h) F" y6 v+ y- i    swApp.CloseDoc PathStr4
% V' i5 q3 y8 H& e1 F3 Q    swApp.CloseDoc PathStr5
9 ~4 t1 ?# a! H. A# P* G: }. T8 j9 Q
Next i
4 R% S4 B7 ~0 I" G# s1 v
6 F! H4 }% O! JEnd Sub
' I8 ~2 y& R- H' T
Private Sub Showfilelist(folderspec As String)
- e) }4 Z! Y8 u1 n, a. C" t     Dim fs, f, f1, fc, s
/ j: Y" M, l" X     Set fs = CreateObject("Scripting.FileSystemObject")
     Set f = fs.GetFolder(folderspec)
. w- e( X" C) J  Q0 v8 L3 y/ |5 r     Set fc = f.Files
     FNum = 0 '清零
* n- X% U$ h' {) i! g     For Each f1 In fc
        If InStr(f1.Name, "SLDDRW") > 0 Then
' v  P' }0 ^, S            FName(FNum) = f1.Name
            FNum = FNum + 1
  D6 Q$ b0 r9 O2 T; L: g        End If
     Next
End Sub