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

标题: solidworks宏：工程图状态时同时保存当前图纸的PDF/DWG/STEP [打印本页]

作者: laojian 时间: 2020-4-26 11:45
标题: solidworks宏：工程图状态时同时保存当前图纸的PDF/DWG/STEP
很久没有上来了，最近想偷懒，
因为每次都要提供以下三种格式的文件给到加工那边，太麻烦了，所以在网上东抄西抄的凑了一个东西出来，大家可以交流一下
PDF/DWG/STEP
附件里的另外几个是单功能的宏，都可以在SW中增加宏按钮以提高效率，注意要编辑一下相关路径
注意事项：
1.每次运行是会覆盖原来生成的这三种格式的文件的，并且不提示
2.使用前编辑宏，修改以下路径为你自己的路径，并在该路径下创建此记事本
strFile = "D:\YDL\STEP-DWG-PDF保存路径.txt"
3.只会生成当前图纸对应配置的文件，零件其他配置不作处理4.必须在打开工程图的状态下运行这个宏
补充内容 (2020-5-6 17:38):
更新了宏，文件在3楼
补充内容 (2020-5-8 19:47):
2020-05-08更新在5楼
补充内容 (2020-6-22 17:55):
最新更新在17楼
补充内容 (2020-6-27 11:53):
20200227 更新在22楼
补充内容 (2020-6-27 11:54):
再次更新在22楼

存PDF-dwg-step.zip (14.26 KB, 下载次数: 397)

在SW里运行宏

零件里存step.zip (8.41 KB, 下载次数: 189)

工程图里转CAD.zip (8 KB, 下载次数: 69)

工程图里存step.zip (9.6 KB, 下载次数: 184)

工程图打印PDF.zip (10.08 KB, 下载次数: 261)

作者: sdlyfjwyc 时间: 2020-5-2 21:44
是分开转换的？？？

作者: sunyinghua 时间: 2020-5-2 21:44
是分开转换的？？？

作者: andy25996880 时间: 2020-5-3 23:00
说明：
本人在此论坛上抄袭了好多大大的代码，照搬生成了这个宏，交流学习一下
请注意，在formactive里有一些自定义的信息，试用前请修改一下，谢谢
请下载YDL.ZIP，并解压到D盘的根目录，解压后为：D:\YDL
本宏用途说明：
1.用于新建零件后进行按制定的规则进行编号命名并保存到“保存路径”中的文件夹中，其他相关生成的文件也会保存在该文件夹
2.同一零件的sldprt文件必须与slddrw文件名必须相同，并且在相同的文件夹内
3.运行此宏时请关闭原来打开的窗口，比如你打开了零件A，并且同时也打开了零件A的工程图，宏会出错，
在零件中运行宏时请在sw中关闭它对应的工程图，在工程图中运行此宏时请关闭它对应的零件文件
4.可以在sldprt的状态下直接生成相关的pdf/dwg/step，具体参见图上的按钮
5.可以在slddrw的状态下直接生成相关的pdf/dwg/step
6.可以在装配中遍历生成相关的pdf/dwg/step，方便成套图纸打印
7.可以对装配体的零件随机进行上色处理
8.可以对装配体里的使用的零件的配置名称进行修改（注意，现在尚不能同步修改相关工程图里的配置名称，在修改配置后要手动打开工程图修改关联的配置）
9.直接在零件的自定义属性配置里增加“Material”和"Number"这两栏，并填写相关的信息，可在零件文件中或工程图中直接更新
其他功能后续再更新
随机上色的效果图
两次运行的效果

按规则命名.zip
图片所示宏
ydl.zip
请解压到D:\

作者: achilles57 时间: 2020-5-6 17:37
更新了宏，文件在3楼

作者: steveshao 时间: 2020-5-6 17:37
更新了宏，文件在3楼

作者: linyixiong 时间: 2020-5-8 19:46
本宏用途说明：(2020-05-08更新，里面有一些自定义的信息，请自行修改，本宏仅供交流学习)
1.用于新建零件后进行按制定的规则进行编号命名并保存到“保存路径”中的文件夹中，其他相关生成的文件也会保存在该文件夹
2.同一零件的sldprt文件必须与slddrw文件名必须相同，并且在相同的文件夹内
3.运行此宏时请关闭原来打开的窗口，比如你打开了零件A，并且同时也打开了零件A的工程图，宏会出错，
在零件中运行宏时请在sw中关闭它对应的工程图，在工程图中运行此宏时请关闭它对应的零件文件
4.可以在sldprt的状态下直接生成相关的pdf/dwg/step，具体参见图上的按钮
5.可以在slddrw的状态下直接生成相关的pdf/dwg/step
6.可以在装配中遍历生成相关的pdf/dwg/step，方便成套图纸打印
7.可以对装配体的零件随机进行上色处理
8.可以对装配体里的使用的零件的配置名称进行修改并同步修改相关工程图里的配置名称
9.直接在零件的自定义属性配置里增加“Material”和"Number"这两栏，并填写相关的信息，可在零件文件中或工程图中直接更新
10.在装配体里对点选零件进行重命名，并自动更新对应工程图的参考关系，并修改工程图的名字与零件名字一致

ydl.zip
请释放到D盘
按规则命名.zip

作者: motorhr 时间: 2020-5-8 19:47
2020-05-08更新在5楼

作者: asdfgg 时间: 2020-5-8 19:47
2020-05-08更新在5楼

作者: zhanyun226 时间: 2020-5-14 10:28

增加了一些对装配体进行批量重命名零件并修改关联工程图的零件
增加了在批量在工程图中增加图号的按钮
增加了在顶级装配体里自动生成带缩略图清单的功能
增加了可以在零件、工程图、装配体里随时修改零件的自定义属性（名称、材料、数量）功能
有需要的交流学习吧，本次更新没有上传了

作者: pluspick258 时间: 2020-5-15 15:48
最新的程序能发我看看吗？

作者: aidetiank 时间: 2020-5-17 11:16
留个mail吧

作者: fengziwen 时间: 2020-5-17 11:16
留个mail吧

作者: panligong123456 时间: 2020-5-20 19:21
是分开转换的？？？

作者: daiguilin299 时间: 2020-5-20 19:21
是分开转换的？？？

作者: xsk1998 时间: 2020-6-10 23:18
能直接在SW装配下转上面三种格式不？最好能指定保存路径

作者: s00010623 时间: 2020-6-16 22:08
非常实用,感谢楼主,好好学习希望以后能一起交流.分享使国家更强大

作者: pigroad 时间: 2020-6-16 22:12
看看呢,实在太多了,金币居然不够了

作者: tcl2001 时间: 2020-6-22 17:55

按规则命名.zip
修改了一些功能：
1.把原来指定在零件、装配体类型、工程图里打开的命令修改为通用命令，即该命令自动判定当前文件类型，然后再执行相关指令
2.在右下角增加了保存程序设定的命令按钮
3.增加了批量修改图号（即文件名）后，将原来使用的文件名保存到文件的自定义属性中
4.增加了批量修改配置名（会自动以未使用的阿拉伯数字来命名配置）
5.增加了导出清单时选择不导出哪种类型的清单，其他全部导出
其他不明确的请自行打开源码看一下功能吧，懒得说明了，汗~~~，自己用了一个月左右磨合。想在哪里偷懒就补充一点功能的。
不是很系统，仅供参考，
里面有一些自定义的信息，请自行修改或删除
请在尝试使用时复制原来零件作备份，使用中出现问题概不负责。
请将YDL.ZIP里面的记事本解压到d:\ydl\路径下
ydl.zip

作者: Terryzai 时间: 2020-6-22 18:02
已在17楼更新

作者: hezupeng 时间: 2020-6-22 18:03
可以的，在装配体里点选零件后（该零件必须处于还原状态），可以直接保存该零件的step/pdf/dwg文件，并且是保存最上面的路径文件夹下面

作者: learnhill 时间: 2020-8-14 13:38
As Excel.Application 找不到工程和库solidworks网，必须顶一下
solidworks网，必须顶一下
solidworks网，必须顶一下

作者: myshafeng 时间: 2020-8-14 14:31
真不错，功能强大，楼主用心了，下载学习了，谢谢！

作者: streampacjohn 时间: 2020-11-21 16:28
这个真的厉害

作者: sdafdh 时间: 2020-11-23 12:13
功能挺多的，用了宏就越来越想用，工具越整越多。solidworks网，必须顶一下

作者: dgx-ds 时间: 2020-11-24 09:17
2015不知道行不行，下载来研究一下。

作者: ting831231 时间: 2020-12-10 10:34
能加一个iges吗？

作者: hoy_chan 时间: 2021-1-9 13:38
不错不错

作者: 浅蓝色的天空 时间: 2021-10-17 01:41
感谢楼主分享，很不错！

作者: 黄火山 时间: 2021-12-20 09:05
感谢楼主分享，很不错！

作者: SW初学00 时间: 2021-12-20 09:17
活到老学到老！

作者: yangbosnihc 时间: 2021-12-29 16:18
不行，只支持2020以上版本，失败

作者: iokiok 时间: 2022-1-6 20:08
SW机械工程师网，找到组织了！

作者: iokiok 时间: 2022-1-6 20:11
SW机械工程师网，找到组织了！

作者: iokiok 时间: 2022-1-6 20:12
楼主太有才了，膜拜中……

作者: iokiok 时间: 2022-1-6 20:13
感谢楼主分享，很不错！

作者: iokiok 时间: 2022-1-6 20:14
楼主太有才了，膜拜中……

作者: iokiok 时间: 2022-1-6 20:20
活到老学到老！

作者: iokiok 时间: 2022-1-6 20:23
好东西，努力学习学习！

作者: iokiok 时间: 2022-1-11 23:06
很不错，顶一下！

作者: liyuyin007 时间: 2022-1-12 15:54
文件呢？？

作者: wsxwsk012 时间: 2022-1-16 14:59
很不错，找到组织了！

作者: hhhhhh678 时间: 2022-2-23 20:07
谢谢楼主分享

作者: steadyme1 时间: 2022-2-25 18:25
哈哈，金币都用完了

作者: steadyme1 时间: 2022-2-25 18:27
谢谢楼主啦！！！！！！

作者: snowinhui 时间: 2022-2-25 22:08
下载看看呢，，，，

作者: gudu8765 时间: 2022-2-28 20:39
好东西就能帮我解决时间问题哈哈哈哈哈哈哈哈

作者: 无心快语 时间: 2022-3-5 00:29
好东西，努力学习学习！

作者: BAALZHANG 时间: 2022-3-6 16:46
谢谢楼主分享

作者: BAALZHANG 时间: 2022-3-6 17:00
好东西，努力学习学习！

作者: llxxfflxf 时间: 2022-3-8 15:12
好东西，谢谢分享！

作者: manyanfan 时间: 2022-3-19 23:12
SolidWorks机械工程师网，顶一下。

作者: qq573639597 时间: 2022-3-27 12:39
很不错，顶一下！

作者: fan03488 时间: 2022-4-15 20:23
楼主太有才了，膜拜中……

作者: okok_656 时间: 2022-4-15 20:51
非常实用,感谢楼主

作者: hdgd501 时间: 2022-4-15 21:58
感谢楼主分享，很不错！

作者: wenxiaochen 时间: 2022-4-19 10:09
活到老学到老！

作者: wscgb123 时间: 2022-6-5 21:58
感谢楼主分享，很不错！

作者: 潇湘夜夕雨 时间: 2022-6-6 16:58
学习了都是人才

作者: haipengwj 时间: 2022-6-9 10:02
非常实用,感谢楼主,好好学习希望以后能一起交流.分享使国家更强大

作者: flooding 时间: 2022-6-19 11:40
下来学习学习

作者: SW初学00 时间: 2022-7-6 11:56
楼主很专业，写得很好！

作者: rwh88888 时间: 2022-7-7 09:19
从哪里来的，没有文件下载

作者: kuzi1314 时间: 2022-7-7 11:09
感谢感谢，我大号没了，小号过来

作者: kuzi1314 时间: 2022-7-7 11:15
有些楼层下载链接没了，能重发一下吗？

作者: wangyapeng 时间: 2022-8-7 00:50

hezupeng 发表于 2020-6-22 18:03
可以的，在装配体里点选零件后（该零件必须处于还原状态），可以直接保存该零件的step/pdf/dwg文件，并且是 ...

学习学习学习学习学习学习学习学习学习学习

作者: wangyapeng 时间: 2022-8-7 00:57
没有找到文件没有找到文件没有找到文件没有找到文件没有找到文件

作者: wangyapeng 时间: 2022-8-7 15:28
您好！小哥哥可以再分享一下嘛

作者: jiangzhibao606 时间: 2022-8-10 20:57
SW机械工程师网，找到组织了！

作者: jiangzhibao606 时间: 2022-8-10 20:57
SolidWorks机械工程师网，顶一下。

作者: 氕氘氚 时间: 2022-8-29 16:16
感谢楼主分享，很不错！

作者: 氕氘氚 时间: 2022-8-29 16:18
找不到啊楼主

作者: lystar 时间: 2023-8-16 08:55
这个不知道能不能用于批量执行

作者: dyb9166 时间: 2023-8-17 19:45
可以研究研究路径可选择！我这个有路径可选择，，但是没有转stepDim swApp As Object

Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Dim path As String

Sub main()

Set objShell = CreateObject("Shell.Application")
      Set objFolder = objShell.BrowseForFolder(0, "请选择文件夹", 201, 17)

      If objFolder Is Nothing Then

         MsgBox "请选择一个有效路径!!"

      ElseIf Dir(objFolder.self.path, 16) = "" Then

         MsgBox "请选择一个有效路径!!"
         Debug.Print objFolder.self.path

      Else

         path = objFolder.self.path
         Set objFolder = Nothing
         Set objShell = Nothing

      End If

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

'转换PDF

On Error Resume Next

'FileName = Part.GetPathName()

FileName = Part.GetTitle()

FileName = Left(FileName, InStrRev(FileName, "-") - 2)
FileName = path & "\" & FileName
'FileName = path & FileName

Debug.Print ("fileName: " & FileName)

sUserDir = VBA.Environ("USERPROFILE") & Chr(92) & Chr(-10304) & Chr(-15386) & Chr(92)

Randomize

If FileName = "" Then FileName = sUserDir & "Part" & Int(Rnd * 1000) & ".SLDDRW"

''' if need SLDDRW FILE,THEN DELETE THIS MARK!

' Part.SaveAs2 Filename, 0, 0, 0

No = Len(FileName)

'dwgFileName = Left(FileName, No - 7) & ".PDF"
dwgFileName = FileName & ".PDF"

Part.SaveAs2 dwgFileName, 0, 1, 0

Title = Part.GetTitle

Set Part = swApp.ActiveDoc
'

On Error Resume Next

'FileName = Part.GetPathName()

sUserDir = VBA.Environ("USERPROFILE") & Chr(92) & Chr(-10304) & Chr(-15386) & Chr(92)

Randomize

If FileName = "" Then FileName = sUserDir & "Part" & Int(Rnd * 1000) & ".SLDDRW"

''' if need SLDDRW FILE,THEN DELETE THIS MARK!

' Part.SaveAs2 Filename, 0, 0, 0

No = Len(FileName)

'dwgFileName = Left(FileName, No - 7) & ".DWG"
dwgFileName = FileName & ".DWG"

Part.SaveAs2 dwgFileName, 0, 1, 0
'转换后关闭图纸

'Title = Part.GetTitle

'Set Part = Nothing

'swApp.CloseDoc Title

X = MsgBox(" 已转成 : " & Title & ".PDF/DWG", 0)

End Sub

作者: rex2023 时间: 2023-9-30 07:30

经典案例图书

功能挺多的，用了宏就越来越想用，工具越整越多。solidworks网，必须顶一下

作者: trakinas2 时间: 2023-10-24 22:47
谢谢分享，支持一下

作者: 海上的兵 时间: 2023-12-27 19:15
楼主太有才了，膜拜中……

作者: 海上的兵 时间: 2023-12-27 19:28
成功了，楼主🐂牛

作者: 沉默的人 时间: 2023-12-28 08:21
感谢楼主分享，很不错！

作者: 憨八哥 时间: 2024-8-16 14:44

学习了

作者: 夕梦恋 时间: 2024-11-4 09:06
非常不错，求楼主分享！

作者: ghf9904 时间: 2025-1-6 20:52
楼主大才，膜拜中……

作者: dlfuyue 时间: 2025-1-26 08:21
文件看不到连接啊！

作者: dlfuyue 时间: 2025-1-26 08:24
楼主下载链接能发一下吗？290382481@qq.com

作者: ghf9904 时间: 2025-1-26 21:16
感谢楼主分享，很不错！

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