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

steve_suich

余存 发表于 2015-12-31 16:30
/ r( E+ w3 s9 M/ H* e额。。。看不懂啊，大侠，这是啥？

9 ^( a0 A2 A0 ?新建一个宏。

9 q  ~4 M% ?* N" s+ B! q; l0 K* u运行
4 t! t0 u7 M5 C: W

% K( b& j. a. m8 ^( T

哈哈大校

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

2 X: Q6 D5 B9 k3 M您好！


; j- w. S0 n' B3 x2 P: `这个我试着输入过但是不行，您能否发个SWP格式的来呢？
4 N1 J$ j- i. ?( I5 c& n  w% b2 m
万分感谢！！

杨杨_cpmUG

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

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

ziliangmo

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

ziliangmo

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

kytool.cn

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

眸上有伤痕

  到这里了下步怎么弄

眸上有伤痕

Dim swApp As Object

# C5 d; m' b& I- T1 l5 eDim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
* ?' }7 X+ p$ }, ^* C% E- m6 NDim path As String
7 z+ e+ V3 N, M4 r" BDim fname As String
Dim m As Integer
5 D+ K( s" t! x# p' |& n4 d0 \/ B# VDim shname() As String
; [4 G1 w# F6 A, }

Sub Main()
- c+ B6 R: b+ O2 Z( a" P
  x  G( J# K/ Y$ P) aSet swApp = _
Application.SldWorks
2 r- v( C# I) [3 A* R) `$ x- C7 apath = InputBox("D:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\chinese-simplified\Tutorial", "批量替换图框")
fname = Dir(path & "*.slddew")
Do Until fname = ""
1 k6 }. ~  F0 k6 V% {- W  |2 ESet Part = swApp.OpenDoc(path + fname, 3)
Set Part = swApp.ActiveDoc
5 S& ]$ n" ]6 r( yshname = Part.GetSheeetNameS()
9 \& p4 z, j# y/ A8 o# y7 X6 ~For m = 0 To Part.GetSheeetCount - 1
6 z: J7 a8 h. m  W* o. e+ D! N     If Part.ActivateSheet(shname(m)) Then
     boolstatus = Part.SetupSheet5(shname(m), 8, 12, 0, 0, True, _
  v& w  t4 F* l7 c     "C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2020\lang\Chinese-Simplified\sheetformat\a3 - gb.slddrt", _
5 M- E- {) f) d1 i& X/ Q2 x     0.42, 0.297, "默认", True)
    End If
, `  Y$ W0 @; u9 E4 B: q* E0 Y    Next
4 _" p0 L0 Y! q2 J9 O4 hPart.Save
swApp.CloseDoc (Part.GetTitle)
Set Part = Nothing
fname = Dir
Loop
1 E; r0 s% N3 c0 T
( P& e/ @. n; l8 Z# A: g( ^+ [6 W$ U, MEnd Sub