宏-批量更换工程图图框

davidclark · 发表于 2019-9-9 16:45:19

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:38

本帖隐藏的内容
批量更新工程图图框.zip

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

处理中

处理结果

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

zhenmafan · 发表于 2019-9-9 17:11:42

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

保存图纸格式

保存总绘图标准

wgy0910 · 发表于 2019-9-9 17:11:42

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

保存图纸格式

保存总绘图标准

tofflon · 发表于 2019-9-9 21:52:23

经典案例图书

厉害，顶起来

xiaolibing · 发表于 2019-9-9 21:52:23

厉害，顶起来

guantao098 · 发表于 2019-9-10 06:23:52

经典案例图书

谢谢楼主分享

parker520 · 发表于 2019-9-10 06:23:52

谢谢楼主分享

zpjason · 发表于 2019-9-10 09:02:36

謝謝樓主分享,學習了.

shenyingjie · 发表于 2019-9-10 09:02:36

謝謝樓主分享,學習了.

jinbaoyu · 发表于 2019-9-11 08:24:31

高手怎么那么多谢谢分享

jacob451 · 发表于 2019-9-11 08:24:31

高手怎么那么多谢谢分享

SKCL-007 · 发表于 2019-9-11 08:37:46

感谢分享好工具

A425530 · 发表于 2019-9-11 08:37:46

感谢分享好工具

119077081 · 发表于 2019-9-11 09:33:29

加入QQ群
参与讨论和学习

或扫描二维码加入

学习楼主

xzptju · 发表于 2019-9-11 09:33:29

经典案例图书

学习楼主

lgh4050 · 发表于 2019-9-11 17:25:54

加入QQ群
参与讨论和学习

或扫描二维码加入

厉害了，支持

xlhyhn · 发表于 2019-9-12 09:06:18

经典案例图书

不错的资料

xmping · 发表于 2019-9-16 14:42:45

多谢，挺方便的

hualinbao · 发表于 2019-9-18 10:48:03

好东西,谢谢分享!!!

		自动登录	找回密码
密码			立即注册