SolidWorks工程图格式装换宏

yemao7758

网上找了一个工程图转换PDF的宏文件，根据自己的需求改了一个版本，做了个界面，可以装换多种格式，并存放到一个新建文件夹中，相关说明可以见宏程序界面
8 [% W1 a1 {  [1 q

yemao7758

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

冷月梧桐

这个必须支持一下，

展翅飞翔2018

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

yemao7758

展翅飞翔2018 发表于 2020-10-25 16:48
0 r* b  V+ k3 S* `2 nSW里面本身就带各种格式保存的

4 j$ U% g. S( Z% w, @. p, H8 R我这个用的也就是SW自己的格式保存，就是实现批量转换的功能，节省时间
; S) z7 m7 H$ G. x

cxc0701

能否说明下怎样使用

向宏

高逼格应用

yemao7758

cxc0701 发表于 2020-10-25 21:15
能否说明下怎样使用

说明已经写在边上了！

yemao7758

cxc0701 发表于 2020-10-25 21:15
能否说明下怎样使用

这是个宏程序，用SW宏功能打开，也可以生成一个自定义宏按钮
% W1 D" q7 X* b/ y6 `: x) e+ b# _

simonwei

下载体验下

寰宇无人

SOLIDWORKS Task Schedular我试了，根本动不了，自己也倒腾了个宏，功能是工程图转换成PDF和DWG文件，操作是，工具---》宏----》新建----》把下面的代码复制进去----》存到硬盘某个位置----》，调用的时候是，工具----》宏---》运行，当然也可以自定义到SW的工具栏上，宏文件源代码如下需要的拿去，：
Dim swApp As Object
' Q0 h. L4 ~! a: s. v. `5 I8 O# iDim Part As Object
) c% x7 C4 O+ ]4 h, _Dim boolstatus As Boolean
' t8 c$ \& O. I. A+ ZDim longstatus As Long, longwarnings As Long
Dim PathStr As String
Dim FName(500) As String, FNum As Long
2 h3 Q) P% r8 W
7 R( I4 A3 ~8 n: o2 N! ]Sub main()
Dim i As Long
Dim PathStr0 As String, PathStr1 As String
Dim PathStr2 As String, PathStr3 As String, PathStr4 As String, PahtStr5 As String
* F9 ?, j# d+ J# t5 _6 x6 WDim L As Long, L1 As Long
: e$ g. c8 {8 T. N4 R, z8 x' IPathStr = InputBox("请输入需要转的工程图所在位置")
Call Showfilelist(PathStr)
Set swApp = Application.SldWorks

) C9 S  d8 V/ {2 L/ HFor i = 0 To FNum - 1
    PathStr0 = PathStr & "\" & FName(i)
    Set Part = swApp.OpenDoc6(PathStr0, 3, 0, "", longstatus, longwarnings)
% z/ m6 U3 w" S% j! x/ D8 }0 m( h    L = Len(PathStr0)
    PathStr1 = Left(PathStr0, L - 7) & ".DWG"
9 p, b. b0 H+ a% Q    PathStr2 = Left(PathStr0, L - 7) & ".PDF"
  a# ?3 C7 d1 _, J, k    longstatus = Part.SaveAs3(PathStr1, 0, 0)
    longstatus = Part.SaveAs3(PathStr2, 0, 0)
% B4 G4 Z, p1 h) N* o1 a   
    Set Part = Nothing
$ c  j2 A$ W' L5 T9 {   
9 Y* }4 m- l) }! m  Z' _3 E    L1 = Len(FName(i))
4 ]! Q' U( Z* ~3 ?5 X    PathStr3 = Left(FName(i), L1 - 7) & " - 图纸1"
8 l1 b% l: ]2 a+ Z! p4 w    PathStr4 = Left(FName(i), L1 - 7) & " - 图纸2"
    PathStr5 = Left(FName(i), L1 - 7) & " - 图纸3"
+ B' K: B3 H+ c6 g, C3 D   
    swApp.CloseDoc PathStr3
; z6 b+ U8 g8 j    swApp.CloseDoc PathStr4
    swApp.CloseDoc PathStr5
% B( U. L' B* I- X4 W9 O- o
( i5 \& n4 m( Z- I0 z6 JNext i

End Sub

Private Sub Showfilelist(folderspec As String)
     Dim fs, f, f1, fc, s
     Set fs = CreateObject("Scripting.FileSystemObject")
     Set f = fs.GetFolder(folderspec)
     Set fc = f.Files
     FNum = 0 '清零
7 A& m6 b  P2 S$ {: o2 y     For Each f1 In fc
        If InStr(f1.Name, "SLDDRW") > 0 Then
            FName(FNum) = f1.Name
& b- f- F5 u- [, H5 n- R3 U1 r7 @            FNum = FNum + 1
        End If
, @5 G9 i0 h4 c  ^     Next
. q! |5 B: J* M. I) `) |' Q) E+ rEnd Sub
( Q0 T8 Q( ^% ?0 n& _1 k