SolidWorks工程图格式装换宏

yemao7758

' ^- F3 m( r: f, G0 e1 S- ]网上找了一个工程图转换PDF的宏文件，根据自己的需求改了一个版本，做了个界面，可以装换多种格式，并存放到一个新建文件夹中，相关说明可以见宏程序界面

yemao7758

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

冷月梧桐

这个必须支持一下，

展翅飞翔2018

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

yemao7758

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

9 V4 x* G7 ]6 c3 O3 F2 y我这个用的也就是SW自己的格式保存，就是实现批量转换的功能，节省时间

cxc0701

能否说明下怎样使用

向宏

高逼格应用

yemao7758

cxc0701 发表于 2020-10-25 21:15
6 B+ ?# v% ]/ s8 j# r4 ~) @能否说明下怎样使用

说明已经写在边上了！
: F: Z* l9 X' V" @3 K

yemao7758

cxc0701 发表于 2020-10-25 21:15
0 g7 I# l: g& {, q2 C) v( g8 [8 u能否说明下怎样使用

这是个宏程序，用SW宏功能打开，也可以生成一个自定义宏按钮
. {% \- b% R$ Y6 j- q7 @

simonwei

下载体验下

寰宇无人

SOLIDWORKS Task Schedular我试了，根本动不了，自己也倒腾了个宏，功能是工程图转换成PDF和DWG文件，操作是，工具---》宏----》新建----》把下面的代码复制进去----》存到硬盘某个位置----》，调用的时候是，工具----》宏---》运行，当然也可以自定义到SW的工具栏上，宏文件源代码如下需要的拿去，：
Dim swApp As Object
8 L) R; i- x. X/ ADim Part As Object
, g2 }8 E! z$ z. RDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
( g( v- ~ w/ YDim PathStr As String
Dim FName(500) As String, FNum As Long
# T& ?) h. q. M8 v( j
' I" {. F2 D. Q9 ?Sub main()
% ^3 |" ~" B4 k8 I4 |Dim i As Long
Dim PathStr0 As String, PathStr1 As String
% i/ S/ O9 A; X8 I* M$ T) D, LDim PathStr2 As String, PathStr3 As String, PathStr4 As String, PahtStr5 As String
Dim L As Long, L1 As Long
PathStr = InputBox("请输入需要转的工程图所在位置")
Call Showfilelist(PathStr)
* H- S: y+ k8 \3 w# YSet swApp = Application.SldWorks
. B, K; A4 ~# Y, I9 e
1 y, Z2 x$ X4 n4 G2 o; h& ~For i = 0 To FNum - 1
1 M8 B* N/ f7 J$ t U3 ?5 _ kPathStr0 = PathStr & "\" & FName(i)
$ D8 A- A. t2 g3 Q4 wSet Part = swApp.OpenDoc6(PathStr0, 3, 0, "", longstatus, longwarnings)
L = Len(PathStr0)
PathStr1 = Left(PathStr0, L - 7) & ".DWG"
! C; K* `" g3 U0 p8 [" KPathStr2 = Left(PathStr0, L - 7) & ".PDF"
% R# O2 D9 N% A$ j7 s- O4 w& O1 Zlongstatus = Part.SaveAs3(PathStr1, 0, 0)
longstatus = Part.SaveAs3(PathStr2, 0, 0)

: D' Z3 c* w; f' O8 d6 QSet Part = Nothing
4 S. h6 G" j% v- k
$ i1 ~8 W) P0 ^9 bL1 = Len(FName(i))
" i% I2 I8 g' F: aPathStr3 = Left(FName(i), L1 - 7) & " - 图纸1"
% }5 G I( O1 F3 [8 [# DPathStr4 = Left(FName(i), L1 - 7) & " - 图纸2"
PathStr5 = Left(FName(i), L1 - 7) & " - 图纸3"

swApp.CloseDoc PathStr3
7 [1 q& U0 _, k! t; ~swApp.CloseDoc PathStr4
/ |& r o. I3 k) gswApp.CloseDoc PathStr5
6 k9 _ Q+ E' O5 l& |
9 o6 Z4 |2 ^/ r qNext i

End Sub
" T0 ` Q) Z( a: F& R @" A" t
Private Sub Showfilelist(folderspec As String)
& ]3 J2 }$ s6 ?0 W' oDim fs, f, f1, fc, s
3 t' X8 b5 t; N! GSet fs = CreateObject("Scripting.FileSystemObject")
+ I1 p6 l( S cSet f = fs.GetFolder(folderspec)
Set fc = f.Files
FNum = 0 '清零
* R4 ~* k2 |* `( T/ S" S# P" C% pFor Each f1 In fc
If InStr(f1.Name, "SLDDRW") > 0 Then
+ M& r8 f n. U6 eFName(FNum) = f1.Name
FNum = FNum + 1
End If
Next
7 ~ A% A g u) C1 bEnd Sub
! s: Q* ~. j9 s* f9 E