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

steve_suich

6 o( W: C& m8 M9 M' Q/ r4 Q, l

余存 发表于 2015-12-31 16:30
: {' m; T% X) R; r  p  d额。。。看不懂啊，大侠，这是啥？

) U$ H, s6 l$ d; u$ I+ p新建一个宏。

& g' t2 I/ W& l! z运行
, t7 ~$ h9 Q9 m3 q* Y
. N. e2 k' x8 {4 `, w
" v, Y& f/ {7 O% m0 Z

哈哈大校

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

9 C# I; R$ B* h* w1 {1 \您好！
6 l. D) @$ t7 H' k! L. q* e" h

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

; w  f7 V) c, _5 y+ I万分感谢！！
& I' l* ^2 x7 P) z* O, f

杨杨_cpmUG

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

看着这回复，总觉得自己要学的很多
- [2 j% [6 U$ B/ q

ziliangmo

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

ziliangmo

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

kytool.cn

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

眸上有伤痕

  到这里了下步怎么弄

眸上有伤痕

Dim swApp As Object
' g  ?8 C7 W6 a0 a
$ g: {: d+ l# tDim Part As Object
Dim boolstatus As Boolean
$ Y  @: x; \; l/ |# L* MDim longstatus As Long, longwarnings As Long
Dim path As String
Dim fname As String
( }1 w9 V- T* U1 ^% W$ b$ HDim m As Integer
Dim shname() As String
2 Q9 V; m: }) N% e
7 }, h  `* S& `5 n( p" ?  t$ n/ W
Sub Main()

Set swApp = _
$ U! a; w5 L; E4 D3 `Application.SldWorks
' j6 g# N, r/ Z! Y& {8 G1 jpath = InputBox("D:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\chinese-simplified\Tutorial", "批量替换图框")
fname = Dir(path & "*.slddew")
Do Until fname = ""
3 E0 ?* `+ F- ]; T0 }" Z) QSet Part = swApp.OpenDoc(path + fname, 3)
Set Part = swApp.ActiveDoc
) R5 {, f+ ~- P+ Ushname = Part.GetSheeetNameS()
+ ^+ J8 X8 n  U4 g2 cFor m = 0 To Part.GetSheeetCount - 1
     If Part.ActivateSheet(shname(m)) Then
     boolstatus = Part.SetupSheet5(shname(m), 8, 12, 0, 0, True, _
$ X' Y- \, j5 \     "C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2020\lang\Chinese-Simplified\sheetformat\a3 - gb.slddrt", _
     0.42, 0.297, "默认", True)
    End If
    Next
Part.Save
5 L* S; s9 H& e  vswApp.CloseDoc (Part.GetTitle)
/ y, I. U# Q; h/ c! BSet Part = Nothing
fname = Dir
Loop
6 b$ V5 z9 L. @" ]: x
: f; N5 r# d/ N' uEnd Sub