找回密码 注册 QQ登录
一站式解决方案

iCAx开思网

CAD/CAM/CAE/设计/模具 高清视频【积分说明】如何快速获得积分?快速3D打印 手板模型CNC加工服务在线3D打印服务,上传模型,自动报价
查看: 36879|回复: 181
打印 上一主题 下一主题

[原创] 宏-批量更换工程图图框

  [复制链接]
跳转到指定楼层
1
发表于 2019-9-9 16:45:19 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
本帖最后由 甄云竹 于 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楼
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏17 分享淘帖 赞一下!赞一下!1
2
 楼主| 发表于 2019-9-9 16:46:38 | 只看该作者

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
3
 楼主| 发表于 2019-9-9 17:11:42 | 只看该作者

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
4
发表于 2019-9-9 21:52:23 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
5
发表于 2019-9-10 06:23:52 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
6
发表于 2019-9-10 09:02:36 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
7
发表于 2019-9-10 09:53:37 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
8
发表于 2019-9-11 08:24:31 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
9
发表于 2019-9-11 08:37:46 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
10
发表于 2019-9-11 09:33:29 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

3D打印手板模型快速制作服务,在线报价下单!

QQ 咨询|手机版|联系我们|iCAx开思网  

GMT+8, 2024-11-5 22:31 , Processed in 0.031091 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

快速回复 返回顶部 返回列表