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

steve_suich

余存 发表于 2015-12-31 16:30
+ r; q2 ?3 K4 p. X; m) R6 X7 G* T, l额。。。看不懂啊，大侠，这是啥？

( e8 D+ P) ?1 m; \/ ^1 L" c$ k新建一个宏。

运行
+ N9 ^  s4 ]1 e2 R1 L/ b2 I

哈哈大校

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

您好！
+ a; l$ s7 U2 E, {! y

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

/ \% m0 y+ e& F2 _. C万分感谢！！
; T6 |+ l3 U" T% ?" ?+ \+ p; y

杨杨_cpmUG

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

看着这回复，总觉得自己要学的很多
, t" E; s- s4 R# c

ziliangmo

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

ziliangmo

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

kytool.cn

我们之前有一款插件可以实现批量替换图纸模板，肯定有这方面的工具，你可以问一下度娘：SolidWorks批量替换工程图图框，保证有收获。
' e* c3 N, t+ T- I2 ]/ e( O; ]! r

眸上有伤痕

  到这里了下步怎么弄

眸上有伤痕

Dim swApp As Object

# i1 W% o! g* qDim Part As Object
! A1 d4 |9 M/ p6 K2 gDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
1 i+ c2 P# T. a! O2 l% XDim path As String
Dim fname As String
Dim m As Integer
! A: E: a2 z3 v- m4 hDim shname() As String


Sub Main()
0 B# K, d  A/ j% c4 }0 j8 C
Set swApp = _
Application.SldWorks
* I6 m* C* X( W* jpath = InputBox("D:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\chinese-simplified\Tutorial", "批量替换图框")
fname = Dir(path & "*.slddew")
8 E$ X% K6 P$ J2 N; r1 H0 ZDo Until fname = ""
, O( u' C. i+ {% uSet Part = swApp.OpenDoc(path + fname, 3)
9 ?$ A9 O% T) b, {8 v; wSet Part = swApp.ActiveDoc
shname = Part.GetSheeetNameS()
For m = 0 To Part.GetSheeetCount - 1
     If Part.ActivateSheet(shname(m)) Then
1 [5 n5 i8 ^- Z0 g4 n8 @4 D' F1 F3 m     boolstatus = Part.SetupSheet5(shname(m), 8, 12, 0, 0, True, _
     "C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2020\lang\Chinese-Simplified\sheetformat\a3 - gb.slddrt", _
     0.42, 0.297, "默认", True)
    End If
, I/ j4 K5 G  ]% T) z* @    Next
* o) W( I6 B9 i1 M8 K: H" OPart.Save
swApp.CloseDoc (Part.GetTitle)
Set Part = Nothing
fname = Dir
% d7 a& D0 i5 _2 x& G5 nLoop
  l1 ]8 w6 ~0 l$ M3 h4 Y
( p2 j( S+ x. L/ f7 xEnd Sub