求助，如何批量替换工程图图纸模板

steve_suich

余存 发表于 2015-12-31 16:30
. |4 f) Q6 A, T$ W; C额。。。看不懂啊，大侠，这是啥？

6 F4 b+ f0 y; l$ k( ~" o0 P新建一个宏。
8 A# j, [+ _1 ^2 r% d5 t" T
运行
# O' g/ e+ D5 B2 o- X1 y& y
* x# [2 X, f9 k: t- p: m" A6 e

哈哈大校

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

2 o( a% m/ W. v您好！
& F( Q1 q# b6 E, d- r/ n. |/ V3 t

这个我试着输入过但是不行，您能否发个SWP格式的来呢？
. G0 P5 [4 P" Z2 X( q0 i4 |
6 [' E) r# t1 O$ n2 T万分感谢！！

杨杨_cpmUG

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

3 ?: K" O) f2 M! ]2 i- J3 B7 `1 g看着这回复，总觉得自己要学的很多

ziliangmo

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

ziliangmo

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

kytool.cn

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

眸上有伤痕

到这里了下步怎么弄

眸上有伤痕

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
6 L8 T7 ]5 x* n# `& s& vDim longstatus As Long, longwarnings As Long
Dim path As String
$ }7 l0 a4 E; _0 j) e1 ]Dim fname As String
Dim m As Integer
0 u/ B* ?3 ^9 p" Q. b1 }+ Y* Y1 E4 y6 ADim shname() As String


Sub Main()
* m- o+ ^$ Q6 ~$ n, k9 o5 ?+ H
6 D( m2 @, W) D8 B: l; B& H4 ISet swApp = _
Application.SldWorks
8 N4 \% v% I+ g" k# o) Vpath = InputBox("D:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\chinese-simplified\Tutorial", "批量替换图框")
fname = Dir(path & "*.slddew")
- \/ B. I6 J tDo Until fname = ""
/ f! ]4 f9 Z( u* ]' k7 h( |Set Part = swApp.OpenDoc(path + fname, 3)
Set Part = swApp.ActiveDoc
shname = Part.GetSheeetNameS()
, }4 H( J! E/ B6 N; yFor m = 0 To Part.GetSheeetCount - 1
: n( i' J7 Z, ^ ]$ h, F8 D8 rIf Part.ActivateSheet(shname(m)) Then
boolstatus = Part.SetupSheet5(shname(m), 8, 12, 0, 0, True, _
3 v8 p2 {6 Z. u" ?8 p. F- J; m/ L"C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2020\lang\Chinese-Simplified\sheetformat\a3 - gb.slddrt", _
0.42, 0.297, "默认", True)
( l( {+ k5 \- YEnd If
Next
Part.Save
swApp.CloseDoc (Part.GetTitle)
Set Part = Nothing
fname = Dir
Loop

End Sub