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

steve_suich

: F0 m4 I; m8 I9 ?$ n5 z

余存 发表于 2015-12-31 16:30
' s' D2 X9 D5 k: |5 |, q) I* Y额。。。看不懂啊，大侠，这是啥？

新建一个宏。

9 u; l  P. h0 M" i$ v运行
8 s* v* Q. V# k* U: X& D( k* W& n

哈哈大校

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

) C: u0 p; n" x, j: N, Y# z您好！
$ _" A8 r9 E1 G; f+ Q
" m1 L4 f1 u& M7 [% g6 J: I
这个我试着输入过但是不行，您能否发个SWP格式的来呢？

万分感谢！！
/ x9 U$ ?* Z) p3 s$ H

杨杨_cpmUG

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

; Q+ K8 l$ _4 p: j# l# F/ R5 U$ q7 E/ K看着这回复，总觉得自己要学的很多

ziliangmo

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

ziliangmo

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

kytool.cn

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

眸上有伤痕

  到这里了下步怎么弄

眸上有伤痕

Dim swApp As Object
! d/ Y8 c  t- u# t; a' w
3 D# a+ t% ^* m/ o& i5 A6 F- b, \Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim path As String
* g( i% k- o3 ^* D# x; X& jDim fname As String
Dim m As Integer
Dim shname() As String
* F) Z! j$ P0 y6 j7 {* K3 p  h( u
6 A5 z! Z" g* O7 H0 J! {$ E, c
) P7 ?2 |' l$ z# B( j; pSub Main()

7 y. T3 y/ ?$ O" ]" H7 m0 v3 FSet swApp = _
  I7 Z5 j; H+ EApplication.SldWorks
+ Q1 Q2 i8 O( F& ~" m7 bpath = InputBox("D:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\chinese-simplified\Tutorial", "批量替换图框")
fname = Dir(path & "*.slddew")
. A1 ?: c) R  Y1 e) {% [0 m% ^* |Do Until fname = ""
Set Part = swApp.OpenDoc(path + fname, 3)
Set Part = swApp.ActiveDoc
shname = Part.GetSheeetNameS()
9 {- ]% O, r' e: G3 MFor 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 g8 w# G# \/ L     0.42, 0.297, "默认", True)
0 s% J) u% a& h! G! _    End If
    Next
Part.Save
5 ]& Q/ y1 L" z8 H1 N; f7 JswApp.CloseDoc (Part.GetTitle)
$ h- E& q9 H/ X+ hSet Part = Nothing
fname = Dir
Loop
8 P( P# n& ^6 @' r. u
End Sub