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

steve_suich

8 h& i: r1 _+ K2 L

余存 发表于 2015-12-31 16:30
额。。。看不懂啊，大侠，这是啥？

- V! T. m0 I% K- Z+ {% `新建一个宏。

运行

0 d; X2 V0 A# B/ z. g" L0 L

哈哈大校

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

/ x6 d+ b2 W5 t' Z' c5 g您好！
1 W8 u# g* b# K' S$ _6 u  l# h. U
" h+ N: R4 G% ~/ w2 |& p, g
这个我试着输入过但是不行，您能否发个SWP格式的来呢？
! C' B: \- N- I; N& t4 f& k
万分感谢！！
. I& |5 @! P/ J/ M, J& K$ R) o

杨杨_cpmUG

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

+ K* r: ~& B1 R3 t3 r- R看着这回复，总觉得自己要学的很多

ziliangmo

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

ziliangmo

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

kytool.cn

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

眸上有伤痕

  到这里了下步怎么弄

眸上有伤痕

Dim swApp As Object

: b2 U/ n# ^8 i, ODim Part As Object
# H& q7 Y! m" b* z1 `Dim boolstatus As Boolean
7 h, }0 b; [% z' b+ J  v0 LDim longstatus As Long, longwarnings As Long
Dim path As String
Dim fname As String
- ^# Q8 P5 j: k9 Q1 e/ UDim m As Integer
6 A9 u( m+ \' O& TDim shname() As String
* j# V4 p- r4 q. J6 q

1 R) O: f  x1 x  X5 nSub Main()

1 u0 ?4 q6 p. L# B6 q3 cSet swApp = _
Application.SldWorks
path = InputBox("D:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\chinese-simplified\Tutorial", "批量替换图框")
) }, W2 N' W, r. `& f* h+ pfname = Dir(path & "*.slddew")
5 w" ~% d% q; XDo Until fname = ""
Set Part = swApp.OpenDoc(path + fname, 3)
Set Part = swApp.ActiveDoc
$ \% j0 F' v6 |  ^shname = Part.GetSheeetNameS()
: p9 u  L; g& j! a8 IFor m = 0 To Part.GetSheeetCount - 1
     If Part.ActivateSheet(shname(m)) Then
: K6 ]- \3 ]3 A* y: P     boolstatus = Part.SetupSheet5(shname(m), 8, 12, 0, 0, True, _
     "C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2020\lang\Chinese-Simplified\sheetformat\a3 - gb.slddrt", _
4 D3 p6 o# p0 V' @( [     0.42, 0.297, "默认", True)
    End If
: U! |7 d8 q1 Z3 l/ u6 `3 p    Next
" w; B0 i. r: k. p( DPart.Save
swApp.CloseDoc (Part.GetTitle)
: ]2 w- X$ _  d$ c7 c. MSet Part = Nothing
fname = Dir
. U! p0 m' u! b0 L# R- ^" o7 NLoop
: ~) |3 p7 @6 h5 R
End Sub