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

标题: 宏-批量更换工程图图框 [打印本页]

作者: davidclark 时间: 2019-9-9 16:45
标题: 宏-批量更换工程图图框

Dim SWapp As Object
Dim Doc As Object
Dim Sheet As Object
Dim boolstatus As Boolean
Dim SheetPr() As Double
Dim SheetName As String
Dim StdFile As String
Sub main()
Set SWapp = Application.SldWorks
Set Doc = SWapp.ActiveDoc
Set Sheet = Doc.GetCurrentSheet()
SheetPr = Sheet.GetProperties2()
SheetPr(0) = 12
SheetPr(1) = 12
boolstatus = Sheet.SetProperties2(SheetPr(0), SheetPr(1), SheetPr(2), SheetPr(3), SheetPr(4), SheetPr(5), SheetPr(6), SheetPr(7))
StdFile = "C:\ProgramData\SOLIDWORKS\模板\图纸模板\总绘图标准.sldstd" '双引号内填写总绘图标准完整的地址及后缀，可不填
If SheetPr(5) = 1189 / 1000 And SheetPr(6) = 841 / 1000 Then 'A0图幅
Sheet.SetTemplateName ("")
Doc.Extension.LoadDraftingStandard StdFile
ElseIf SheetPr(5) = 841 / 1000 And SheetPr(6) = 594 / 1000 Then 'A1图幅
Sheet.SetTemplateName ("")
Doc.Extension.LoadDraftingStandard StdFile
ElseIf SheetPr(5) = 594 / 1000 And SheetPr(6) = 420 / 1000 Then 'A2图幅
Sheet.SetTemplateName ("")
Doc.Extension.LoadDraftingStandard StdFile
ElseIf SheetPr(5) = 420 / 1000 And SheetPr(6) = 297 / 1000 Then 'A3图幅
Sheet.SetTemplateName ("C:\ProgramData\SOLIDWORKS\模板\图纸模板\图纸格式A3.slddrt") '双引号内填写图纸格式完整的地址及后缀
Doc.Extension.LoadDraftingStandard StdFile
ElseIf SheetPr(5) = 297 / 1000 And SheetPr(6) = 210 / 1000 Then 'A4图幅
Sheet.SetTemplateName ("C:\ProgramData\SOLIDWORKS\模板\图纸模板\图纸格式A4.slddrt")
Doc.Extension.LoadDraftingStandard StdFile
ElseIf SheetPr(5) = 210 / 1000 And SheetPr(6) = 297 / 1000 Then 'A4p图幅
Sheet.SetTemplateName ("")
Doc.Extension.LoadDraftingStandard StdFile
End If
Sheet.ReloadTemplate (False) '重装图纸格式，删除原有注释
End Sub

复制代码

先分享一个更新当前工程图图框的宏，批量更换图框宏是基于这段代码写的。
批量更换工程图图框宏详见2楼

作者: dieyer 时间: 2019-9-9 16:46
本帖隐藏的内容
批量更新工程图图框.zip

主界面（如果没有总绘图标准可以不选）

处理中

处理结果

宏是用solidworks2016编辑的，如果低于这个版本请在宏编辑器中点击工具-引用，将丢失的库改为对应的低版本库（图中显示的是2019改为2016的情况）

作者: zhenmafan 时间: 2019-9-9 17:11
简单提一下大家都知道的东西，在空白的工程图中点击文件-保存图纸格式，可获得图纸格式文件。在工程图中点击选项-文档属性-绘图标准-保存到外部文件，可获得总绘图标准文件（默认是GB）。

保存图纸格式

保存总绘图标准

作者: wgy0910 时间: 2019-9-9 17:11
简单提一下大家都知道的东西，在空白的工程图中点击文件-保存图纸格式，可获得图纸格式文件。在工程图中点击选项-文档属性-绘图标准-保存到外部文件，可获得总绘图标准文件（默认是GB）。

保存图纸格式

保存总绘图标准

作者: tofflon 时间: 2019-9-9 21:52
厉害，顶起来

作者: xiaolibing 时间: 2019-9-9 21:52
厉害，顶起来

作者: guantao098 时间: 2019-9-10 06:23
谢谢楼主分享

作者: parker520 时间: 2019-9-10 06:23
谢谢楼主分享

作者: zpjason 时间: 2019-9-10 09:02
謝謝樓主分享,學習了.

作者: shenyingjie 时间: 2019-9-10 09:02
謝謝樓主分享,學習了.

作者: jinbaoyu 时间: 2019-9-11 08:24
高手怎么那么多谢谢分享

作者: jacob451 时间: 2019-9-11 08:24
高手怎么那么多谢谢分享

作者: SKCL-007 时间: 2019-9-11 08:37
感谢分享好工具

作者: A425530 时间: 2019-9-11 08:37
感谢分享好工具

作者: 119077081 时间: 2019-9-11 09:33
学习楼主

作者: xzptju 时间: 2019-9-11 09:33
学习楼主

作者: lgh4050 时间: 2019-9-11 17:25
厉害了，支持

作者: xlhyhn 时间: 2019-9-12 09:06
不错的资料

作者: xmping 时间: 2019-9-16 14:42
多谢，挺方便的

作者: hualinbao 时间: 2019-9-18 10:48
好东西,谢谢分享!!!

作者: lixiaocong1214 时间: 2019-9-19 09:43
看看怎么样学习一下啊的

作者: chb1948 时间: 2019-9-19 20:09
謝謝樓主分享,學習了.

作者: wky665 时间: 2019-9-20 16:05
这个很有价值

作者: jianqiaohong 时间: 2019-9-21 16:39
很好的宏，谢谢分享。

作者: gxqingyun 时间: 2019-9-21 19:23
感谢分享。。。

作者: cdmdxs 时间: 2019-11-9 11:18
谢谢分享。

作者: lironggang 时间: 2019-11-10 09:01
谢谢分享！

作者: stone258 时间: 2019-11-12 21:32
很好的一个宏，可供学习，谢谢楼主

作者: jiangchfei 时间: 2019-11-15 14:33
谢谢分享,很赞

作者: liangzhu87 时间: 2019-11-17 20:55
456464646

作者: sjciceman 时间: 2019-11-19 15:11
学习学习学习学习学习学习学习学习学习学习学习

作者: happyto_tian 时间: 2019-11-20 09:49
不错的资料啊多谢

作者: qiang2008 时间: 2019-11-20 18:16
学习了!谢谢solidworks网，必须顶一下

作者: liumaolin6666 时间: 2019-12-6 18:41
厉害，谢谢。。

作者: kongrong24 时间: 2019-12-13 11:56
批量处理的宏程序报错哦。

作者: lisixu 时间: 2019-12-13 12:52

你这个代码跟我发布的怎么不一样
f 变成了f1

作者: wang211 时间: 2019-12-19 15:57
多谢分享......

作者: linchaogod 时间: 2019-12-29 19:49
謝謝樓主分享！！

作者: hanpeng0919 时间: 2019-12-30 09:28
谢谢分享！！！

作者: lzhqin 时间: 2020-1-15 13:37
楼主是高手！

作者: hjhiyuttu 时间: 2020-1-17 15:18
solidworks网，必须顶一下
solidworks网，必须顶一下
solidworks网，必须顶一下

作者: wraby2000 时间: 2020-2-27 02:36
这个不错收藏了谢谢solidworks网，必须顶一下

作者: HA6662000 时间: 2020-3-6 18:04
是否可以增加替换零件及装配体绘图标准功能是否可以增加执行所有文件夹层级请教图层对于高版本有没有划分到绘图标准，如替换绘图标准时尺寸标准及符号等作出相应的改变
谢谢，由于对软件熟练度不够，如有冒犯还望包涵！

作者: shijianhuijin 时间: 2020-3-7 21:32
这个用得到！！！

作者: kingkimkyo 时间: 2020-3-11 08:26
赞solidworks网，必须顶一下
solidworks网，必须顶一下

作者: arkjimmy 时间: 2020-3-17 08:59
对话框都不知道怎么弄出来只会简单的宏图标

作者: cradle1019 时间: 2020-3-18 08:45
谢谢，第三条关于图层及绘图标准的问题是我混淆了，现在已经解决，solidworks网，必须顶一下
。

作者: jych168 时间: 2020-3-28 17:24
好像只能改图框而不能改模板的哈

作者: LeonMechanics 时间: 2020-3-29 13:17
很实用的···宏命令··感谢大神分享··

作者: wenrou 时间: 2020-3-30 19:25
非常感谢楼主分享

作者: huangs6961855 时间: 2020-4-17 13:10
謝謝樓主分享solidworks网，必须顶一下

作者: preseus 时间: 2020-4-18 21:41
谢谢分享！！！

作者: hanyujun 时间: 2020-4-19 10:54
非常好！！！！

作者: quanhp 时间: 2020-4-21 13:49
有个收费工具有这种功能。楼主做的这个挺不错，谢谢分享！这样可以少安装一个软件。适当的时候还能自己修改需求。

作者: jonathanxu2006 时间: 2020-4-22 21:53
这个程序厉害了

作者: fireice36963 时间: 2020-4-27 22:40
谢谢分享

作者: freedomzz 时间: 2020-5-2 21:01
真是厉害了阿~

作者: RICHARD_SDWH 时间: 2020-5-5 16:20
谢谢分享，有参考意义

作者: jyzas001 时间: 2021-4-8 14:08
谢谢楼主分享

作者: sheerart 时间: 2021-5-13 21:19
SW机械工程师网，找到组织了！

作者: liyuyin007 时间: 2021-5-13 22:18
感谢楼主分享，很不错！

作者: 小豆芽疯回路转 时间: 2021-5-14 08:58
这些代码怎么转换成.swp的宏文件呢。

作者: li568172326 时间: 2021-5-23 14:02
在哪里下载啊

作者: UDF998 时间: 2021-5-23 20:37
好好学习，天天向上！

作者: wsbty2018 时间: 2021-5-28 22:03
好东西,谢谢分享!!!

作者: Pathway0320 时间: 2021-6-25 16:03
單張更換圖框可行～　謝謝分享

作者: 337868333 时间: 2021-6-26 14:20

dieyer 发表于 2019-9-9 16:46
本帖隐藏的内容
批量更新工程图图框.zip

支持下。。。

作者: Pathway0320 时间: 2021-6-28 09:21
SW2020可用~ 謝謝分享

作者: Pathway0320 时间: 2021-7-1 17:31
可是沒有看到2樓的zip檔？？？

作者: 浅蓝色的天空 时间: 2021-8-8 18:27
感谢楼主分享，很不错！

作者: 故李将军 时间: 2021-8-15 18:55
楼主辛苦了！

作者: 工程Jay_chen 时间: 2021-8-16 11:40
楼主太有才了，膜拜中……

作者: 阿斯蒂芬0 时间: 2021-8-16 13:10
活到老学到老！

作者: 钓鱼要戴头盔 时间: 2021-8-26 00:42
感谢分享好工具

作者: 钓鱼要戴头盔 时间: 2021-8-26 00:49
感谢分享好工具

作者: 不能动两年后 时间: 2021-8-26 17:11
感谢大佬的分享

作者: yqzjjx 时间: 2021-8-27 08:28
多谢楼主分享正在学二次开发很有用

作者: 8windy8 时间: 2021-9-14 00:44
SW机械工程师网，找到组织了！

作者: 384432485 时间: 2021-9-19 13:37
活到老学到老！

作者: 浪静峰平 时间: 2021-9-21 09:09
高手，厉害，急需！！！

作者: 浪静峰平 时间: 2021-9-21 09:14

厉害了，老铁！！！

作者: 浪静峰平 时间: 2021-9-21 09:15

dieyer 发表于 2019-9-9 16:46
本帖隐藏的内容
批量更新工程图图框.zip

如何下载？没有找到链接。

作者: nbxhynbxhy 时间: 2021-9-21 13:16
可是沒有看到2樓的zip檔？

作者: yuhouyeluo 时间: 2021-10-11 17:05
如何下载？没有找到链接。

作者: liyuyin007 时间: 2021-10-11 17:53
感谢楼主分享，很不错！

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

作者: yuhouyeluo 时间: 2021-10-28 18:52
活到老学到老！

作者: storyli 时间: 2021-10-29 16:02
楼主很专业，写得很好！

作者: SW初学00 时间: 2021-11-11 11:47
很不错，找到组织了！

作者: a785997392 时间: 2021-12-1 17:30

dieyer 发表于 2019-9-9 16:46
本帖隐藏的内容
批量更新工程图图框.zip

你好老哥，能否给个下载链接呢，万分感谢

作者: 流云jiankong 时间: 2021-12-2 10:20

dieyer 发表于 2019-9-9 16:46
本帖隐藏的内容
批量更新工程图图框.zip

感谢楼主分享，下载学习一下

作者: jines5 时间: 2021-12-2 14:53
感谢分享，看起来很方便

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

作者: zzj2021 时间: 2022-1-3 14:13
感谢分享，学习学习

作者: z159504 时间: 2022-1-12 19:46
楼主很专业，写得很好！

作者: 特雷比西亚 时间: 2022-3-6 15:58
好好学习，天天向上！

作者: 特雷比西亚 时间: 2022-3-6 16:00
没有链接？

作者: 钓鱼要戴头盔 时间: 2022-3-6 23:02

dieyer 发表于 2019-9-9 16:46
本帖隐藏的内容
批量更新工程图图框.zip

顶起来，谢谢

作者: zxt0824 时间: 2022-3-11 09:52
感谢楼主分享，很不错！

作者: 442593696 时间: 2022-4-2 17:21
很不错，顶一下！

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

Powered by Discuz! X3.2