|
马上注册,结交更多同行朋友,交流,分享,学习。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 甄云竹 于 2019-9-9 18:15 编辑
- 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楼
|
|