SolidWorks机械工程师网——最大的SolidWorks学习平台

 找回密码
 立即注册

QQ登录

只需一步,快速开始

好品数字
好品数字
楼主: suzhanpeng

Solidworks工程图批量转PDF和DWG的小程序(VB6.0编译)

  [复制链接]

0

主题

20

帖子

23

金币

天使

Rank: 2Rank: 2

积分
123

最佳新人宣传达人

发表于 2019-8-22 13:25:12 | 显示全部楼层
大量图纸打印时可用,感谢分享。
SolidWorks机械工程师网
提示:建议使用谷歌浏览器浏览本网站!如单击这里下载!否则,可能无法下载附件文件!(支持大多数版本的谷歌浏览器,支持10、11两个版本的IE浏览器,支持360和QQ浏览器的极速模式,即谷歌内核模式,以及10和11版本的IE兼容模式,其余浏览器也是如此)
回复 支持 反对

使用道具 举报

0

主题

43

帖子

24

金币

天使

Rank: 2Rank: 2

积分
143

最佳新人活跃会员宣传达人

发表于 2019-8-24 12:06:29 | 显示全部楼层
下载看看能不能用
SolidWorks机械工程师网
提示:建议使用谷歌浏览器浏览本网站!如单击这里下载!否则,可能无法下载附件文件!(支持大多数版本的谷歌浏览器,支持10、11两个版本的IE浏览器,支持360和QQ浏览器的极速模式,即谷歌内核模式,以及10和11版本的IE兼容模式,其余浏览器也是如此)
回复 支持 反对

使用道具 举报

0

主题

63

帖子

124

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
346

最佳新人活跃会员热心会员宣传达人

发表于 2019-9-21 10:55:58 | 显示全部楼层
看看下 谢谢了
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

0

主题

2

帖子

2

金币

混混

Rank: 1

积分
12

最佳新人

发表于 2019-9-23 13:13:13 | 显示全部楼层
这是好东西,谢谢谢谢111
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

0

主题

35

帖子

29

金币

天使

Rank: 2Rank: 2

积分
132

最佳新人活跃会员宣传达人

发表于 2019-9-25 15:25:25 | 显示全部楼层

   经典案例图书
下载下来看看,应该会有用!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

0

主题

23

帖子

10

金币

天使

Rank: 2Rank: 2

积分
77

最佳新人

发表于 2019-9-30 19:21:24 | 显示全部楼层
xx谢谢分享!顶起!!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

0

主题

18

帖子

290

金币

堂主

Rank: 4

积分
710

最佳新人宣传达人

发表于 2019-10-5 19:57:55 | 显示全部楼层

   经典案例图书
这个不错,方便使用
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

0

主题

172

帖子

496

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1503

最佳新人活跃会员热心会员宣传达人灌水之王

发表于 2019-10-16 16:01:55 | 显示全部楼层
感谢楼主分享,很不错!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

0

主题

11

帖子

3

金币

混混

Rank: 1

积分
31

最佳新人

发表于 2019-10-22 21:40:54 | 显示全部楼层
这是好东西,谢谢谢谢
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

1

主题

33

帖子

6

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
235

最佳新人活跃会员宣传达人

发表于 2019-10-24 23:11:31 | 显示全部楼层
活到老学到老!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

0

主题

13

帖子

48

金币

天使

Rank: 2Rank: 2

积分
114

最佳新人

发表于 2019-10-26 23:09:06 | 显示全部楼层
和task scheduler比有什么优势?楼主说下呢
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

0

主题

13

帖子

7

金币

天使

Rank: 2Rank: 2

积分
57

最佳新人

发表于 2019-10-30 15:48:52 | 显示全部楼层
下载下来看看,学习学习
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

1

主题

42

帖子

1

金币

天使

Rank: 2Rank: 2

积分
149

最佳新人活跃会员宣传达人

发表于 2019-12-10 15:03:55 | 显示全部楼层
SolidWorks机械工程师网,顶一下。
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

1

主题

122

帖子

70

金币

VIP用户组

Rank: 100Rank: 100Rank: 100Rank: 100

积分
871

最佳新人活跃会员热心会员宣传达人灌水之王

发表于 2019-12-16 08:14:33 | 显示全部楼层
感谢楼主分享,很不错!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

0

主题

35

帖子

4

金币

天使

Rank: 2Rank: 2

积分
122

最佳新人活跃会员宣传达人

发表于 2019-12-27 18:14:35 | 显示全部楼层
加入QQ群
参与讨论和学习

SolidWorks技术交流群

或扫描二维码加入

楼主辛苦了!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

0

主题

147

帖子

0

金币

堂主

Rank: 4

积分
564

最佳新人活跃会员热心会员宣传达人灌水之王

发表于 2019-12-31 22:58:04 | 显示全部楼层

   经典案例图书
好东西,感谢分享!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

1

主题

95

帖子

43

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
413

最佳新人活跃会员热心会员宣传达人

发表于 2020-1-4 19:41:24 | 显示全部楼层
加入QQ群
参与讨论和学习

SolidWorks技术交流群

或扫描二维码加入

SolidWorks机械工程师网,顶一下。
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

7

主题

97

帖子

1973

金币

传奇

Rank: 8Rank: 8

积分
5198

最佳新人活跃会员热心会员宣传达人

发表于 2020-1-18 09:35:09 | 显示全部楼层

   经典案例图书
楼主你好,我16版用插件很好用,最近换18版的了,打开就这样提示,请问一下这是怎么了,还有挽救的机会吗0.0.
1579311222(1).jpg
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

2

主题

396

帖子

2143

金币

传奇

Rank: 8Rank: 8

积分
6497

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

发表于 2020-2-14 13:47:41 | 显示全部楼层
谢谢分享!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

9

主题

145

帖子

730

金币

传奇

爱学习的版主

Rank: 8Rank: 8

积分
6434

最佳新人活跃会员热心会员宣传达人灌水之王

QQ
 楼主| 发表于 2020-2-18 15:03:30 | 显示全部楼层
ph471211489 发表于 2020-1-18 09:35
楼主你好,我16版用插件很好用,最近换18版的了,打开就这样提示,请问一下这是怎么了,还有挽救的机会吗0. ...

程序设计时只加载了SolidWorks2016的库文件,没有加载SolidWorks2018的所以会出现问题,给你原始宏代码,自己编制一个吧!

  1. Dim swApp As Object
  2. Dim Part As Object
  3. Dim boolstatus As Boolean
  4. Dim longstatus As Long, longwarnings As Long
  5. Dim PathStr As String
  6. Dim FName(500) As String, FNum As Long

  7. Sub main()
  8. Dim i As Long
  9. Dim PathStr0 As String, PathStr1 As String
  10. Dim PathStr2 As String, PathStr3 As String, PathStr4 As String, PahtStr5 As String
  11. Dim L As Long, L1 As Long
  12. PathStr = InputBox("请输入需要转的工程图所在文件夹的完整路径")
  13. Call Showfilelist(PathStr)
  14. Set swApp = Application.SldWorks

  15. For i = 0 To FNum - 1
  16. PathStr0 = PathStr & "\" & FName(i)
  17. Set Part = swApp.OpenDoc6(PathStr0, 3, 0, "", longstatus, longwarnings)
  18. L = Len(PathStr0)
  19. PathStr1 = Left(PathStr0, L - 7) & ".DWG"
  20. PathStr2 = Left(PathStr0, L - 7) & ".PDF"
  21. longstatus = Part.SaveAs3(PathStr1, 0, 0)
  22. longstatus = Part.SaveAs3(PathStr2, 0, 0)

  23. Set Part = Nothing
  24. L1 = Len(FName(i))
  25. PathStr3 = Left(FName(i), L1 - 7) & " - 图纸1"
  26. PathStr4 = Left(FName(i), L1 - 7) & " - 图纸2"
  27. PathStr5 = Left(FName(i), L1 - 7) & " - 图纸3"

  28. swApp.CloseDoc PathStr3
  29. swApp.CloseDoc PathStr4
  30. swApp.CloseDoc PathStr5

  31. Next i

  32. End Sub

  33. Private Sub Showfilelist(folderspec As String)
  34. Dim fs, f, f1, fc, s
  35. Set fs = CreateObject("Scripting.FileSystemObject")
  36. Set f = fs.GetFolder(folderspec)
  37. Set fc = f.Files
  38. FNum = 0 '清零
  39. For Each f1 In fc
  40. If InStr(f1.Name, "SLDDRW") > 0 Then
  41. FName(FNum) = f1.Name
  42. FNum = FNum + 1
  43. End If
  44. Next
  45. end sub
复制代码
终究还得自己做自己的主角,所以必须坚强走下去。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭 卷起
关闭 卷起

手机版|小黑屋| GMT+8, 2024-3-29 19:04 , Processed in 0.258925 second(s), 32 queries .

SolidWorks机械工程师网 ( 鲁ICP备14025122号-2 ) 鲁公网安备 37028502190335号

声明:本网言论纯属发表者个人意见,与本网立场无关。
如涉版权,可发邮件: admin@swbbsc.com

快速回复 返回顶部 返回列表