论坛 › SOLIDWORKS › 求助，如何批量替换工程图图纸模板

steve_suich 发表于 2015-12-31 16:40:36

本帖最后由 steve_suich 于 2015-12-31 16:41 编辑

余存 发表于 2015-12-31 16:30 static/image/common/back.gif
额。。。看不懂啊，大侠，这是啥？
新建一个宏。

运行

哈哈大校 发表于 2016-8-14 22:05:49

steve_suich 发表于 2015-12-31 16:00


您好！


这个我试着输入过但是不行，您能否发个SWP格式的来呢？

万分感谢！！

杨杨_cpmUG 发表于 2016-8-16 08:28:40

steve_suich 发表于 2015-12-31 16:02


看着这回复，总觉得自己要学的很多

ziliangmo 发表于 2016-8-17 17:05:36

l楼主可以把修改好的标题栏（可以做链接）的图纸保存好图纸格式，A4-A1分别做一个，然后打开你要修改的图纸，右键属性，选择相应大小的图纸格式替换掉就ok了

ziliangmo 发表于 2016-8-17 17:11:14

至于模板是改不了的，你可以在选项里设置好你的样式，然后保存好绘图标准，打开每张图纸加载该样式就可以了，反正每张图纸你都要检查修改公差等，顺便更改一下图纸格式和加载绘图标准，就相当于换了模板和格式了

kytool.cn 发表于 2016-8-18 17:49:49

我们之前有一款插件可以实现批量替换图纸模板，肯定有这方面的工具，你可以问一下度娘：SolidWorks批量替换工程图图框，保证有收获。

眸上有伤痕 发表于 2023-5-13 17:19:32

‪d:\Users\Administrator\Desktop\捕获1.PNG到这里了下步怎么弄

眸上有伤痕 发表于 2023-5-13 17:20:16

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim path As String
Dim fname As String
Dim m As Integer
Dim shname() As String


Sub Main()

Set swApp = _
Application.SldWorks
path = InputBox("D:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\chinese-simplified\Tutorial", "批量替换图框")
fname = Dir(path & "*.slddew")
Do Until fname = ""
Set Part = swApp.OpenDoc(path + fname, 3)
Set Part = swApp.ActiveDoc
shname = Part.GetSheeetNameS()
For m = 0 To Part.GetSheeetCount - 1
   If Part.ActivateSheet(shname(m)) Then
   boolstatus = Part.SetupSheet5(shname(m), 8, 12, 0, 0, True, _
   "C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2020\lang\Chinese-Simplified\sheetformat\a3 - gb.slddrt", _
   0.42, 0.297, "默认", True)
    End If
    Next
Part.Save
swApp.CloseDoc (Part.GetTitle)
Set Part = Nothing
fname = Dir
Loop

End Sub

查看完整版本: 求助，如何批量替换工程图图纸模板