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

标题: 工程图批量转换PDF、DWG和STP [打印本页]

作者: 鹏游蝶梦 时间: 2022-3-24 11:25
标题: 工程图批量转换PDF、DWG和STP
Solidworks工程图纸批量转换PDF、DWG和STP宏程序-----转换的STP零件只转换出工程图的零部件

宏程序.zip

（17.67 KB, 下载次数: 301 售价: 5 金币 ）

批量转DWG、PDF、STP宏

作者: Presiner 时间: 2022-3-24 19:29
好好学习，天天向上！

作者: fan03488 时间: 2022-3-24 20:39
楼主辛苦了！

作者: quanshouzhu 时间: 2022-3-24 23:08
看看和我的思路是不是一致的

作者: quanshouzhu 时间: 2022-3-24 23:09
搞了半天没整合嘛！

作者: fan03488 时间: 2022-3-30 19:45
下载下来看看，应该会有用！

作者: fan03488 时间: 2022-3-30 19:51
不怎么好用,需要自己去输入工程图所在文件夹,每个文件都会自动打开一次再关闭,速度有点慢,

作者: Xuanzhanglim 时间: 2022-4-5 12:34
实用工具
谢谢楼主分享

作者: okok_656 时间: 2022-4-15 17:22
实用工具
谢谢楼主分享

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

作者: FLYADAY 时间: 2022-4-17 22:11
谢谢分享！

作者: okok_656 时间: 2022-4-18 08:50

谢谢分享！

作者: 书书010214 时间: 2022-4-25 21:22
好好学习，天天向上！

作者: maxingjun20 时间: 2022-4-28 11:21
SW机械工程师网，找到组织了！

作者: hualcc1314 时间: 2022-5-3 16:49
一点用都没有，费钱！

作者: hhh001 时间: 2022-6-9 10:01
感谢楼主分享，很不错！

作者: DFFDSGG114485 时间: 2022-6-13 07:59
感谢楼主分享，很不错

作者: 淡淡的雲 时间: 2022-6-13 11:51
感谢楼主分享，很不错！

作者: DFFDSGG114485 时间: 2022-6-13 20:11
看看和我的思路是不是一致的

作者: jimmy8005 时间: 2022-7-7 17:49
下载下来看看，应该会有用！

作者: Frank创意曲面 时间: 2022-7-10 18:47
下载下来看看，应该会有用！

作者: Frank创意曲面 时间: 2022-7-10 18:50
下载下来看看，应该会有用！

作者: qq669132669 时间: 2022-7-11 09:24
学习...............

作者: 懒懒的高贵 时间: 2022-7-20 14:40
很不错，顶一下！

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

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

作者: 630888340 时间: 2022-7-31 00:20
无法使用垃圾

作者: 184651474 时间: 2022-7-31 10:58
楼主辛苦了！

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

作者: 1192322862 时间: 2022-9-7 14:58
浪费我的金币，还以为是批量直接转PDF DWG STP ,你分成2个，零件转stp，还有一个批量转PDF.DWG

作者: 氕氘氚 时间: 2022-9-7 15:24
楼主辛苦了！

作者: 巴顿2017 时间: 2022-9-7 21:23
楼主太有才了，膜拜中……

作者: 氕氘氚 时间: 2022-9-8 08:48
亲测一次只能转30张图纸，有数量限制

作者: 184651474 时间: 2022-9-8 09:32
楼主辛苦了！

作者: jiangzhibao606 时间: 2022-9-28 09:36
SW机械工程师网，找到组织了！

作者: jiangzhibao606 时间: 2022-9-28 09:36
SolidWorks机械工程师网，顶一下。

作者: konzenin 时间: 2022-9-28 12:57
感谢楼主！！

作者: cqzhou 时间: 2022-11-18 10:26
看看和我的思路是不是一致的

作者: cqzhou 时间: 2022-11-19 16:01

好好学习，天天向上！

作者: linkral 时间: 2023-2-8 15:40

fan03488 发表于 2022-3-30 19:51
不怎么好用,需要自己去输入工程图所在文件夹,每个文件都会自动打开一次再关闭,速度有点慢,

能编辑宏程序修改吗？

作者: redondo81 时间: 2023-2-19 23:08
SW机械工程师网，找到组织了！

作者: 824751842 时间: 2023-2-22 10:13
SolidWorks机械工程师网，顶一下。

作者: chengfanpp 时间: 2023-3-31 23:18
活到老学到老！

作者: llxxfflxf 时间: 2023-4-3 10:16
感谢楼主分享，很不错！

作者: 淡淡的雲 时间: 2023-4-6 15:03
楼主太有才了，膜拜中……

作者: cj8510 时间: 2023-4-9 20:49
我也弄了个简易的，发现Solidworks有个问题，块转到CAD有点问题，不知道有没有办法解决。

作者: dyb9166 时间: 2023-4-28 09:26
大神帮忙出个一键转PDF，DWG，STEP，，带路径选择的，在程序里改路径也行！

Dim swApp As Object '让程序以相同的文件名把PDF/DXF/STEP文件保存在指定的文件夹内
Dim swdraw As SldWorks.DrawingDoc
Dim drawcom As DrawingComponent
Dim compenent As Component2
Dim part As Object
Dim swview As View
Dim Filename As String
Dim No As Integer
Dim Title As String
Dim configname As String

  Sub main()
Dim partname As String
Set swApp = Application.SldWorks
Set swdraw = swApp.ActiveDoc
Set swview = swdraw.GetFirstView
Set swview = swview.GetNextView
Set part = swview.ReferencedDocument
configname = part.ConfigurationManager.ActiveConfiguration.Name
Filename = part.GetPathName()
No = Len(Filename)
Filename = Left(Filename, No - 7)
partname = Get_Property_value(part, "零件号")
leibie = Get_Property_value(part, "零件类别")

Title = Right(Filename, Len(Filename) - InStrRev(Filename, "\"))

swdraw.SaveAs3 Filename & ".DWG", 0, 0
part.SaveAs2 Filename & ".STEP", 0, True, False
swdraw.SaveAs2 Filename & ".PDF", 0, True, False
X = MsgBox("             一键转图 " & vbCrLf & " 已保存为 PDF/DWG/STEP 文件 ", 0)
End Sub

Public Function Get_Property_value(swDoc As ModelDoc2, Property_Name As String) As String
Dim swModelDocExt As ModelDocExtension
Dim swCustProp As CustomPropertyManager
Dim val As String                      '属性值
Dim valout As String                   '属性评估值
Dim bool As Boolean

Set swModelDocExt = swDoc.Extension
Set swCustProp = swModelDocExt.CustomPropertyManager(configname) '从配置里获取属性值
'Set swCustProp = swModelDocExt.CustomPropertyManager("") '从自定义属性里获取属性值
bool = swCustProp.Get4(Property_Name, False, val, valout)
Get_Property_value = valout

End Function
这是之前用的，一键转三种格式，只能在原来文件夹保存

作者: dyb9166 时间: 2023-4-28 13:52
，根本没整合，，，骗人嘛

作者: 331459561 时间: 2023-4-29 07:17
感谢楼主分享，很不错

作者: atree0083 时间: 2023-5-3 14:04
SW机械工程师网，找到组织了！

作者: 动画图片 时间: 2023-5-18 13:35
下载下来看看，应该会有用！

作者: LANHAIOU 时间: 2023-5-18 13:52
不怎么好用,需要自己去输入工程图所在文件夹,每个文件都会自动打开一次再关闭,速度有点慢,

作者: dongceboy 时间: 2023-6-17 17:54
非常不错，感谢分享

作者: hhhzzzzswwss 时间: 2023-10-27 11:01
好好学习，天天向上！

作者: xiaoxiaolove 时间: 2023-12-28 17:55
转stp格式没法用

作者: idd214@qq.com 时间: 2023-12-30 10:28
感谢楼主分享，很不错的工具

作者: 673630976 时间: 2024-1-6 13:55
刚刚下一个文件文件没下载好花了我金币

作者: richiwei 时间: 2024-1-7 22:31

感谢楼主分享，很不错

作者: xuexiulian 时间: 2024-1-12 17:09
感谢楼主分享

作者: 673630976 时间: 2024-1-13 08:49
想下太多了

作者: kontec 时间: 2024-5-19 20:42
下载来试试看

作者: why2024 时间: 2024-8-27 11:20
宏程序报错 2020版本

作者: wangyapeng 时间: 2024-9-5 00:27
推荐 wangyapeng 2024-8-21 11:50:20 是不是214STEP，若是装配体是否弹窗提示一下确认继续，不然错把大装配体点了要等半天

作者: zzj2021 时间: 2024-10-17 20:32
下载下来看看，应该会有用！

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