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

steve_suich

  B. R2 }# k- k& c  I8 K+ x

余存 发表于 2015-12-31 16:30
# |# f! b. m. {" V  i1 P. b额。。。看不懂啊，大侠，这是啥？

新建一个宏。
( o) |6 B  N1 R7 n$ d, ]% W
运行


! A; N9 S- a$ |' I

哈哈大校

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

: k* R) |& E% K" k& \您好！
  i7 E9 h7 q2 Q) V

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

: L! |% O5 F0 X, j/ {万分感谢！！

杨杨_cpmUG

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

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

ziliangmo

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

ziliangmo

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

kytool.cn

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

眸上有伤痕

  到这里了下步怎么弄

眸上有伤痕

Dim swApp As Object

& d1 s" V! N/ }. X" X1 \Dim Part As Object
3 L1 n  P% g: ^# k1 a$ eDim boolstatus As Boolean
# N/ P4 r+ R4 W0 {1 T% f# LDim longstatus As Long, longwarnings As Long
Dim path As String
Dim fname As String
# o7 `2 }: ]/ O1 y) k% `Dim m As Integer
Dim shname() As String

6 {9 l8 P. E9 O
4 }$ s0 n' |3 y4 R( USub Main()

Set swApp = _
8 ]# R: V8 J) QApplication.SldWorks
8 t% |/ c& x4 o# J3 X7 P6 e; [1 P# |! kpath = InputBox("D:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\chinese-simplified\Tutorial", "批量替换图框")
fname = Dir(path & "*.slddew")
0 |# z# }+ J" w, a$ _Do Until fname = ""
3 [% \4 b5 Q" _- z5 C: bSet Part = swApp.OpenDoc(path + fname, 3)
Set Part = swApp.ActiveDoc
shname = Part.GetSheeetNameS()
3 |! A0 @& b9 q, ?' C6 g: yFor m = 0 To Part.GetSheeetCount - 1
     If Part.ActivateSheet(shname(m)) Then
     boolstatus = Part.SetupSheet5(shname(m), 8, 12, 0, 0, True, _
! V% r. ?/ a, n# w6 X     "C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2020\lang\Chinese-Simplified\sheetformat\a3 - gb.slddrt", _
1 h. J+ s( s/ Q     0.42, 0.297, "默认", True)
    End If
    Next
Part.Save
7 g* W% Q+ j: j% N+ KswApp.CloseDoc (Part.GetTitle)
. ]" Q/ Y. q0 ~2 V$ N- h: x' lSet Part = Nothing
fname = Dir
# T$ o0 F. C7 a. m, N% L' V6 R& ^  MLoop
) L& ]4 {0 N: o/ _2 _% d8 M0 J+ B% Z& F
End Sub