SolidWorks工程图格式装换宏

eiffel2006 · 发表于 2020-12-18 19:41:10

经典图书

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

david2001 · 发表于 2020-12-20 22:25:56

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

freeok · 发表于 2020-12-25 01:52:28

经典图书

能否说明下怎样使用

a52316607 · 发表于 2020-12-27 06:57:51

高逼格应用

rogerluodai · 发表于 2020-12-31 10:55:08

经典案例图书

说明已经写在边上了！

actupon · 发表于 2021-1-1 19:30:17

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

feihon · 发表于 2021-1-5 17:18:31

经典案例图书

下载体验下

andycxy8888 · 发表于 2021-1-6 13:35:33

SOLIDWORKS Task Schedular我试了，根本动不了，自己也倒腾了个宏，功能是工程图转换成PDF和DWG文件，操作是，工具---》宏----》新建----》把下面的代码复制进去----》存到硬盘某个位置----》，调用的时候是，工具----》宏---》运行，当然也可以自定义到SW的工具栏上，宏文件源代码如下需要的拿去，：
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim PathStr As String
Dim FName(500) As String, FNum As Long
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
Dim L As Long, L1 As Long
PathStr = InputBox("请输入需要转的工程图所在位置")
Call Showfilelist(PathStr)
Set swApp = Application.SldWorks
For 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)

  Set Part = Nothing

  L1 = Len(FName(i))
  PathStr3 = Left(FName(i), L1 - 7) & " - 图纸1"
  PathStr4 = Left(FName(i), L1 - 7) & " - 图纸2"
  PathStr5 = Left(FName(i), L1 - 7) & " - 图纸3"

  swApp.CloseDoc PathStr3
  swApp.CloseDoc PathStr4
  swApp.CloseDoc PathStr5
Next 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 '清零
For Each f1 In fc
  If InStr(f1.Name, "SLDDRW") > 0 Then
FName(FNum) = f1.Name
FNum = FNum + 1
  End If
Next
End Sub

directs · 发表于 2021-1-9 22:48:04

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

bendlao · 发表于 2021-1-13 16:21:27

经典图书

能否说明下怎样使用

yixiu-gps · 发表于 2021-1-17 04:29:43

高逼格应用

hexiaofengxia · 发表于 2021-1-18 23:15:36

说明已经写在边上了！

zdg8855 · 发表于 2021-1-20 22:20:41

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

williambai · 发表于 2021-1-22 14:50:21

下载体验下

lm680715 · 发表于 2021-1-27 23:25:33

加入QQ群
参与讨论和学习

或扫描二维码加入

SOLIDWORKS Task Schedular我试了，根本动不了，自己也倒腾了个宏，功能是工程图转换成PDF和DWG文件，操作是，工具---》宏----》新建----》把下面的代码复制进去----》存到硬盘某个位置----》，调用的时候是，工具----》宏---》运行，当然也可以自定义到SW的工具栏上，宏文件源代码如下需要的拿去，：
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim PathStr As String
Dim FName(500) As String, FNum As Long
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
Dim L As Long, L1 As Long
PathStr = InputBox("请输入需要转的工程图所在位置")
Call Showfilelist(PathStr)
Set swApp = Application.SldWorks
For 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)

  Set Part = Nothing

  L1 = Len(FName(i))
  PathStr3 = Left(FName(i), L1 - 7) & " - 图纸1"
  PathStr4 = Left(FName(i), L1 - 7) & " - 图纸2"
  PathStr5 = Left(FName(i), L1 - 7) & " - 图纸3"

  swApp.CloseDoc PathStr3
  swApp.CloseDoc PathStr4
  swApp.CloseDoc PathStr5
Next 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 '清零
For Each f1 In fc
  If InStr(f1.Name, "SLDDRW") > 0 Then
FName(FNum) = f1.Name
FNum = FNum + 1
  End If
Next
End Sub