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

标题: Solidworks工程图批量转PDF和DWG的小程序（VB6.0编译） [打印本页]
作者: suzhanpeng    时间: 2018-12-10 17:19
标题: Solidworks工程图批量转PDF和DWG的小程序（VB6.0编译）
参考网友找到的宏程序用VB6.0改编的小程序，用起来应该比宏程序方便！

批量转换PDF和DWG文件.zip (6.5 KB, 下载次数: 1119)




作者: 知不道    时间: 2018-12-11 09:13
下载下来看看，应该会有用！
作者: wwwerzhou    时间: 2018-12-11 09:40
这个不错，看看！
作者: ppspps    时间: 2018-12-11 23:12
下载下来看看，应该会有用！
作者: hdgd501    时间: 2018-12-12 13:05
楼主很专业，写得很好！
作者: navstar    时间: 2018-12-17 13:48
下载看看能不能用
作者: 就砍三刀    时间: 2018-12-18 08:53
研究一下！！！！
作者: yunmengze0227    时间: 2018-12-18 19:57
这个不错，看看！
作者: lanjingran    时间: 2018-12-22 16:41
好像不错哦哦
作者: liyuyin007    时间: 2018-12-25 22:52
很不错，找到组织了！
作者: zzzm123    时间: 2018-12-27 17:45
谢谢分享！
作者: tata0219    时间: 2019-1-11 15:21
谢谢分享！
作者: kkkkkk2    时间: 2019-1-17 10:25
SW机械工程师论坛，找到组织了！
作者: ppspps    时间: 2019-1-17 22:51
下载下来看看，应该会有用！
作者: atree0083    时间: 2019-1-22 15:21
楼主辛苦了！
作者: longzjhu    时间: 2019-1-23 09:16
转换过来有乱码吗？
作者: liyuyin007    时间: 2019-1-23 21:38
感谢楼主分享，很不错！
作者: chensuisai    时间: 2019-1-24 11:41
感谢楼主分享，很不错！
作者: lxhzgez    时间: 2019-1-26 09:11
这个不错，看看
作者: lyle.fu    时间: 2019-1-28 15:38
这是好东西，谢谢谢谢
作者: wlp1020    时间: 2019-2-14 11:43
多谢分享~~！！
作者: cndaicn    时间: 2019-2-16 15:38
很实用，谢谢提供下载
作者: adutt001    时间: 2019-2-18 10:54
没有用啊
作者: yeshuaifeng    时间: 2019-3-2 16:02
不好用，转出来里面都是空白的
作者: ljz612    时间: 2019-3-5 07:03
谢谢分享
作者: fy5186565    时间: 2019-3-5 08:42
感谢楼主分享！
作者: 王企鹅撒    时间: 2019-3-12 13:58
好东西，努力学习学习！
作者: kcddudu    时间: 2019-3-15 12:50
谢谢分享！！！
作者: xyp055    时间: 2019-3-19 10:32
楼主辛苦了！
作者: ufong13    时间: 2019-4-4 08:47
下载下来看看，应该会有用！
作者: gong19842008    时间: 2019-4-5 16:49
感谢楼主分享，很不错！
作者: pl1002    时间: 2019-4-13 11:32
好好学习，天天向上！
作者: bb2018620    时间: 2019-4-13 23:26
感谢分享，支持
作者: lyn007    时间: 2019-4-24 11:34
不错，很实用的软件
作者: xiepeng86    时间: 2019-4-25 18:52
下载下来看看，应该会有用！
作者: 陌斜古道    时间: 2019-4-28 19:32
感谢楼主分享，很不错！
作者: wangwang189    时间: 2019-5-3 09:27
下载下来看看，应该会有用！
作者: 弟弟洗头用飘柔    时间: 2019-5-5 18:44
yeshuaifeng 发表于 2019-3-2 16:02
不好用，转出来里面都是空白的

可以转dwg，但pdf里面就是空白的
作者: sici_kkk    时间: 2019-5-12 11:18
楼主辛苦了！
作者: aibing    时间: 2019-5-14 10:33

这是好东西，谢谢谢谢
作者: jack6600gt    时间: 2019-5-15 18:16
这个太棒了感谢分享
作者: hanminghui    时间: 2019-5-17 14:00
感谢楼主分享，很不错！
作者: bruce888    时间: 2019-5-18 17:52
solidworks论坛，顶一下。
作者: gm168    时间: 2019-5-27 20:28
谢谢分享！
作者: 阿斯顿法师    时间: 2019-5-29 15:07
感谢楼主分享，很不错！
作者: jiangw20    时间: 2019-5-30 19:46
试试~~~~~~~~~~~
作者: q113145240    时间: 2019-6-5 08:23
很好用，谢谢
作者: 735953486    时间: 2019-6-5 13:40
收藏下，紫薯布丁
作者: wangqiuqiu    时间: 2019-6-11 10:12
惹我热无热无若翁
作者: wanqichen    时间: 2019-6-12 10:13
下载了，感觉不是很好用，自己试 用了，不能大批量转，转CAD文件有时会空也无法设置，不过还是要感谢楼主能发享出来，谢谢！！！
作者: 燃烧火舞    时间: 2019-6-22 09:36
提示: 作者被禁止或删除 内容自动屏蔽
作者: lyqtdk    时间: 2019-7-6 15:14
这个不错，看看！
作者: mm3990    时间: 2019-7-7 15:19
感谢楼主分享，很不错！
作者: zzm5337    时间: 2019-7-9 11:17
楼主辛苦了！
作者: jimorenou    时间: 2019-7-9 16:59
研究一下。谢谢楼主分享。
作者: amity_hb    时间: 2019-7-20 15:24
这个不错，看看！
作者: 海浪滔滔    时间: 2019-7-21 21:44
使用了  就是打印的文件不全  能解决吗？ 标题栏 少文字

作者: hu198812    时间: 2019-7-24 10:24
不错，下来试试
作者: faith2019    时间: 2019-7-27 13:52
谢谢楼主的分享啊。。。试看看
作者: 转身等候    时间: 2019-7-29 14:55
楼主有源程序么，想跟你学习一下
作者: bht820821    时间: 2019-8-22 13:25
大量图纸打印时可用，感谢分享。
作者: m1zgy@163.com    时间: 2019-8-24 12:06
下载看看能不能用
作者: xiexiang12345    时间: 2019-9-21 10:55
看看下 谢谢了
作者: pplast22    时间: 2019-9-23 13:13
这是好东西，谢谢谢谢111
作者: kkkkkk2    时间: 2019-9-25 15:25
下载下来看看，应该会有用！
作者: QINGHE    时间: 2019-9-30 19:21
xx谢谢分享！顶起！！
作者: Fasson    时间: 2019-10-5 19:57
这个不错，方便使用
作者: 异常暖    时间: 2019-10-16 16:01
感谢楼主分享，很不错！
作者: 胖仔1506    时间: 2019-10-22 21:40
这是好东西，谢谢谢谢
作者: 爱国爱民小青年    时间: 2019-10-24 23:11
活到老学到老！
作者: 69124954    时间: 2019-10-26 23:09
和task scheduler比有什么优势？楼主说下呢
作者: ksauto    时间: 2019-10-30 15:48
下载下来看看，学习学习
作者: airsys-ma    时间: 2019-12-10 15:03
SolidWorks机械工程师网，顶一下。
作者: liuzhihua    时间: 2019-12-16 08:14
感谢楼主分享，很不错！
作者: LEMON123    时间: 2019-12-27 18:14
楼主辛苦了！
作者: 814808043    时间: 2019-12-31 22:58
好东西，感谢分享！
作者: 奋斗不弃    时间: 2020-1-4 19:41
SolidWorks机械工程师网，顶一下。
作者: ph471211489    时间: 2020-1-18 09:35
楼主你好，我16版用插件很好用，最近换18版的了，打开就这样提示，请问一下这是怎么了，还有挽救的机会吗0.0.

1579311222(1).jpg
作者: whshenli    时间: 2020-2-14 13:47
谢谢分享！
作者: suzhanpeng    时间: 2020-2-18 15:03
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

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

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

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

  32. swApp.CloseDoc PathStr3
  33. swApp.CloseDoc PathStr4
  34. swApp.CloseDoc PathStr5

  36. Next i

  38. End Sub

  40. Private Sub Showfilelist(folderspec As String)
  41. Dim fs, f, f1, fc, s
  42. Set fs = CreateObject("Scripting.FileSystemObject")
  43. Set f = fs.GetFolder(folderspec)
  44. Set fc = f.Files
  45. FNum = 0 '清零
  46. For Each f1 In fc
  47. If InStr(f1.Name, "SLDDRW") > 0 Then
  48. FName(FNum) = f1.Name
  49. FNum = FNum + 1
  50. End If
  51. Next
  52. end sub
复制代码
作者: XAA1314520    时间: 2020-2-22 08:42
楼主太有才了，膜拜中……
作者: 漂亮男孩    时间: 2020-4-10 11:24
看下是什么个东东，谢谢楼主
作者: 18207733853    时间: 2020-4-11 14:43
找对组织了，有用的小软件
作者: 嗨丨雷欧    时间: 2020-4-15 18:41
楼主真牛啊，谢谢分享
作者: 珈水母    时间: 2020-5-1 10:33
下载下来看看，应该会有用！感谢了
作者: FLYADAY    时间: 2020-5-1 12:50
下载来试用，看看还能不能用~
作者: lg328084985    时间: 2020-5-15 16:18
谢谢分享。
作者: huazhengjun    时间: 2020-5-16 10:14
SW机械工程师网，找到组织了！
作者: hwk000    时间: 2020-5-17 21:51
这个必须要顶
作者: wmx0910    时间: 2020-5-18 09:58
非常不错！！！
作者: 呵呵呵HE    时间: 2020-6-2 21:23
很棒的东西
作者: yni621    时间: 2020-6-3 17:24
楼主辛苦了！
作者: lkl25130    时间: 2020-6-10 12:30
不错不错不错，，感谢楼主
作者: 袁1016    时间: 2020-6-14 14:12
下载下来看看，应该会有用！
作者: hwangjbo    时间: 2020-7-1 12:42
奇文共欣赏 疑义相与析
作者: lider2020    时间: 2020-7-1 16:01
确实方便不少
作者: vincentning    时间: 2020-7-6 23:49
非常实用，比凯元方便多了
作者: jiangyintgh2    时间: 2020-7-9 07:55

这是好东西，谢谢谢谢
作者: sagitar    时间: 2020-8-14 22:54
感谢分享！！！！
作者: MR.BLACK    时间: 2020-8-19 14:09
很专业 很厉害



欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/) Powered by Discuz! X3.2