iCAx开思网

标题: 宏-批量更换工程图图框 [打印本页]
作者: 甄云竹    时间: 2019-9-9 16:45
标题: 宏-批量更换工程图图框
本帖最后由 甄云竹 于 2019-9-9 18:15 编辑

复制代码
  1. Dim SWapp As Object
  2. Dim Doc As Object
  3. Dim Sheet As Object
  4. Dim boolstatus As Boolean
  5. Dim SheetPr() As Double
  6. Dim SheetName As String
  7. Dim StdFile As String
  8. Sub main()
  9. Set SWapp = Application.SldWorks
  10. Set Doc = SWapp.ActiveDoc
  11. Set Sheet = Doc.GetCurrentSheet()
  12. SheetPr = Sheet.GetProperties2()
  13. SheetPr(0) = 12
  14. SheetPr(1) = 12
  15. boolstatus = Sheet.SetProperties2(SheetPr(0), SheetPr(1), SheetPr(2), SheetPr(3), SheetPr(4), SheetPr(5), SheetPr(6), SheetPr(7))
  16. StdFile = "C:\ProgramData\SOLIDWORKS\模板\图纸模板\总绘图标准.sldstd" '双引号内填写总绘图标准完整的地址及后缀，可不填
  17. If SheetPr(5) = 1189 / 1000 And SheetPr(6) = 841 / 1000 Then 'A0图幅
  18.     Sheet.SetTemplateName ("")
  19.     Doc.Extension.LoadDraftingStandard StdFile
  20. ElseIf SheetPr(5) = 841 / 1000 And SheetPr(6) = 594 / 1000 Then 'A1图幅
  21.     Sheet.SetTemplateName ("")
  22.     Doc.Extension.LoadDraftingStandard StdFile
  23. ElseIf SheetPr(5) = 594 / 1000 And SheetPr(6) = 420 / 1000 Then 'A2图幅
  24.     Sheet.SetTemplateName ("")
  25.     Doc.Extension.LoadDraftingStandard StdFile
  26. ElseIf SheetPr(5) = 420 / 1000 And SheetPr(6) = 297 / 1000 Then 'A3图幅
  27.     Sheet.SetTemplateName ("C:\ProgramData\SOLIDWORKS\模板\图纸模板\图纸格式A3.slddrt") '双引号内填写图纸格式完整的地址及后缀
  28.     Doc.Extension.LoadDraftingStandard StdFile
  29. ElseIf SheetPr(5) = 297 / 1000 And SheetPr(6) = 210 / 1000 Then 'A4图幅
  30.     Sheet.SetTemplateName ("C:\ProgramData\SOLIDWORKS\模板\图纸模板\图纸格式A4.slddrt")
  31.     Doc.Extension.LoadDraftingStandard StdFile
  32. ElseIf SheetPr(5) = 210 / 1000 And SheetPr(6) = 297 / 1000 Then 'A4p图幅
  33.     Sheet.SetTemplateName ("")
  34.     Doc.Extension.LoadDraftingStandard StdFile
  35. End If
  36. Sheet.ReloadTemplate (False) '重装图纸格式，删除原有注释
  37. End Sub
复制代码


先分享一个更新当前工程图图框的宏，批量更换图框宏是基于这段代码写的。
批量更换工程图图框宏详见2楼
作者: 甄云竹    时间: 2019-9-9 16:46
本帖最后由 甄云竹 于 2019-9-10 11:24 编辑


[attach]1269010[/attach]
主界面（如果没有总绘图标准可以不选）
[attach]1269009[/attach]
处理中
[attach]1269008[/attach]
处理结果


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

作者: 甄云竹    时间: 2019-9-9 17:11
本帖最后由 甄云竹 于 2019-9-9 17:12 编辑

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

[attach]1269013[/attach]
保存图纸格式

[attach]1269014[/attach]

保存总绘图标准

作者: zhang961670949    时间: 2019-9-9 21:52
厉害，顶起来
作者: xiabulai    时间: 2019-9-10 06:23
谢谢楼主分享
作者: 风中de沙    时间: 2019-9-10 09:02
謝謝樓主分享,學習了.
作者: scattie    时间: 2019-9-10 09:53
厉害   支持一下
感谢楼主的分享
作者: Trouble12138    时间: 2019-9-11 08:24
高手怎么那么多  谢谢分享
作者: qiminger    时间: 2019-9-11 08:37
感谢分享好工具
作者: idonot    时间: 2019-9-11 09:33
学习楼主

作者: scattie    时间: 2019-9-11 10:57
谢谢!很专业!
作者: 124317559    时间: 2019-9-11 17:25
厉害了，支持
作者: scattie    时间: 2019-9-12 09:06
不错的资料
作者: ljz712    时间: 2019-9-13 09:27
多谢楼主分享！！！
作者: scattie    时间: 2019-9-16 14:42
多谢，挺方便的
作者: 人穷貌丑    时间: 2019-9-17 18:46
谢谢分享
作者: scattie    时间: 2019-9-18 10:48
好东西,谢谢分享!!!
作者: litao036    时间: 2019-9-19 09:43
看看怎么样 学习一下啊 的
作者: newfaith2011    时间: 2019-9-19 20:09
謝謝樓主分享,學習了.
作者: makejon    时间: 2019-9-20 16:05
这个很有价值
作者: hh4984    时间: 2019-9-21 08:25
谢谢楼主分享！！！！！！！！！！
作者: Debugg    时间: 2019-9-21 16:39
很好的宏，谢谢分享。
作者: a4778006    时间: 2019-9-21 19:23
感谢分享。。。
作者: 1218707095    时间: 2019-11-9 11:18
谢谢分享。
作者: 口风琴    时间: 2019-11-9 18:50
谢谢分享，很实用的工具
作者: shui321yang    时间: 2019-11-10 09:01
谢谢分享！
作者: 万里如云    时间: 2019-11-12 21:32
很好的一个宏，可供学习，谢谢楼主
作者: hh4984    时间: 2019-11-13 08:08
学习学习，感谢分享
作者: zhjan518    时间: 2019-11-15 14:33
谢谢分享,很赞
作者: wuxiaowen741    时间: 2019-11-17 20:55
456464646
作者: gdzsh    时间: 2019-11-18 16:44
感觉还不错的样子
作者: ningxin4567    时间: 2019-11-19 15:11
学习学习学习学习学习学习学习学习学习学习学习
作者: scattie    时间: 2019-11-20 09:49
不错的资料啊 多谢
作者: zstdv    时间: 2019-11-20 18:16
学习了!谢谢
作者: alicen_mo    时间: 2019-12-6 18:41
厉害，谢谢。。
作者: kelly_mm    时间: 2019-12-13 11:41
楼主威武，好东西呀，果断收藏~
作者: kelly_mm    时间: 2019-12-13 11:56
甄云竹 发表于 2019-9-9 16:46
**** 本内容被作者隐藏 ****

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

批量处理的宏程序报错哦。

作者: 甄云竹    时间: 2019-12-13 12:52
kelly_mm 发表于 2019-12-13 11:56
批量处理的宏程序报错哦。

[attach]1269755[/attach]
你这个代码跟我发布的怎么不一样
f 变成了f1
作者: whdong76    时间: 2019-12-19 15:57
多谢分享......
作者: zhenyx    时间: 2019-12-21 10:44
感谢分享，学习一下
作者: 玄心    时间: 2019-12-28 19:11
感谢大佬分享。
作者: igmq    时间: 2019-12-29 19:49
謝謝樓主分享！！
作者: 188chp    时间: 2019-12-30 09:28
谢谢分享！！！
作者: 4038075    时间: 2020-1-15 13:37
楼主是高手！
作者: tangyouxu    时间: 2020-1-17 15:18

作者: yh2010    时间: 2020-2-27 02:36
这个不错收藏了谢谢
作者: yzjerrysha    时间: 2020-2-27 10:48
留着备用
作者: 人穷貌丑    时间: 2020-3-6 18:04
本帖最后由 人穷貌丑 于 2020-3-6 18:06 编辑
甄云竹 发表于 2019-9-9 16:46
**** 本内容被作者隐藏 ****

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


谢谢，由于对软件熟练度不够，如有冒犯还望包涵！


作者: wwwerzhou    时间: 2020-3-7 21:32
这个用得到！！！
作者: alicen_mo    时间: 2020-3-11 08:26
赞
作者: yanguo521    时间: 2020-3-17 08:32
高手   学习到了  但是还不会弄
作者: yanguo521    时间: 2020-3-17 08:59
对话框都不知道怎么弄出来 只会简单的宏图标
作者: 甄云竹    时间: 2020-3-17 21:58
人穷貌丑 发表于 2020-3-6 18:04是否可以增加替换零件及装配体绘图标准功能是否可以增加执行所有文件夹层级请教图层对于高 ...

第1和第2都没得问题，根据这两个要求我单独做了个宏放在附件（使用solidworks2018编辑，低版本需要手动找回引用库）。
第3点我没看懂。

[attach]1270698[/attach]
如图所示绘图标准路径需要改成自己的。

[attach]1270697[/attach]


作者: 人穷貌丑    时间: 2020-3-18 08:45
甄云竹 发表于 2020-3-17 21:58
第1和第2都没得问题，根据这两个要求我单独做了个宏放在附件（使用solidworks2018编辑，低版本需要手动找 ...

谢谢，第三条关于图层及绘图标准的问题是我混淆了，现在已经解决，。
作者: yangcongs    时间: 2020-3-28 17:24
好像只能改图框而不能改模板的哈
作者: ltgsj    时间: 2020-3-29 13:17
很实用的···宏命令··感谢大神分享··
作者: jiangyu    时间: 2020-3-30 19:25
非常感谢 楼主分享

作者: quanshouzhu    时间: 2020-4-16 09:55
辛苦了，非常感谢
作者: shanchens    时间: 2020-4-17 13:10
謝謝樓主分享
作者: 8781    时间: 2020-4-18 21:41
谢谢分享！！！
作者: wmx0910    时间: 2020-4-19 10:30
非常不错的工具！！！
作者: wmx0910    时间: 2020-4-19 10:54
非常好！！！！
作者: cj8510    时间: 2020-4-21 13:49
本帖最后由 cj8510 于 2020-4-21 14:08 编辑

有个收费工具有这种功能。楼主做的这个挺不错，谢谢分享！这样可以少安装一个软件。适当的时候还能自己修改需求。
作者: suwenfeng8888    时间: 2020-4-22 21:53
这个程序厉害了
作者: 人穷貌丑    时间: 2020-4-25 16:45
甄云竹 发表于 2019-9-9 16:46
**** 本内容被作者隐藏 ****

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

[attach]1270899[/attach]

                                                                                                                                   谢谢，如果冒犯还请见谅。

作者: 18796891960    时间: 2020-4-27 22:40
谢谢分享
作者: FINDADAY    时间: 2020-5-2 21:01
真是厉害了阿~
作者: zctao1966    时间: 2020-5-5 16:20
谢谢分享，有参考意义
作者: kirod    时间: 2020-5-19 17:28
谢谢分享，学习楼主。。
作者: kirod    时间: 2020-5-20 10:27
谢谢楼主分享，好资料。。
作者: peng18067    时间: 2020-5-20 18:33
是用
VB写的？

作者: flooding    时间: 2020-6-2 08:35
謝謝樓主分享,學習了.
作者: xiaoyaozwc    时间: 2020-6-2 09:01
正由需要，多谢

作者: 清风_梦想    时间: 2020-6-4 08:33
学习学习，增加技能

作者: xtttg    时间: 2020-6-6 17:08
谢谢楼主分享
作者: seamopan    时间: 2020-6-7 07:49
很实用的宏工具
作者: 冷月梧桐    时间: 2020-6-13 17:46
刚好有需求，楼主真 宋江
作者: hawkerlin    时间: 2020-6-17 07:36
这么好的东东，怎么舍得分享！谢谢大侠！
作者: 871605065    时间: 2020-8-10 17:39
学习一下学习一下
作者: suibiankankan    时间: 2020-8-14 20:45
了解了解

作者: yechao1223344    时间: 2020-8-17 15:33
这个不错，很多时候都需要
作者: 18796891960    时间: 2020-8-29 21:58
谢谢分享
作者: 囡囝少年    时间: 2020-8-30 14:13
非常感谢，很需要这个
作者: lg328084985    时间: 2020-8-31 15:03
谢谢分享。
作者: loujinyi    时间: 2020-9-8 17:12
厉害   支持一下
感谢楼主的分享
作者: ProDesigner    时间: 2020-9-11 16:00
好想看下啊的呀
作者: left1221    时间: 2020-9-18 10:02
谢谢分享资料
作者: xl8310    时间: 2020-9-25 17:56
非常实用的工具 谢谢分享
作者: Jiacai007    时间: 2020-10-12 11:35
非常感谢UP主
作者: xiaocake    时间: 2020-10-15 17:20
请问各位，难道没发现替换工程图标准的功能是有缺陷的吗？在应用绘图标准后，有注意到图层不对的问题吗？
比如A文件在文档属性中设置了中心线的图层是“中心线层”，将这个设置导出到绘图标准后，
换一个B文件应用这个绘图标准，应用后B文件中的中心线并不是“中心线层”（图层在B文件中事先是已经存在的）
作者: igxoqve1978    时间: 2020-10-15 18:55
下来学习一下
作者: pengzl    时间: 2020-10-15 20:12
牛，做成个小插件是不是更好用？
作者: deihc851209    时间: 2020-10-29 10:50
谢谢，非常不错哦
作者: suhuasheng1233    时间: 2020-11-5 15:57
谢谢分享！
作者: yh2010    时间: 2020-11-10 09:56
感谢楼主的分享
作者: panliang9    时间: 2020-11-11 10:20
名贴标记！
作者: zhongzhixin    时间: 2020-11-12 09:49
最近也在学习，批量执行宏代码
作者: w6304013    时间: 2020-12-3 20:18
好东西，看看，我要学习下
作者: 窗下听雨声    时间: 2020-12-5 10:08
谢谢分享
作者: jyzas    时间: 2020-12-10 09:20
谢谢楼主分享



欢迎光临 iCAx开思网 (https://www.icax.org/) Powered by Discuz! X3.3