求助，如何批量替換工程圖圖紙模板

steve_suich

! t  t" [7 F+ f5 A* i5 t% q7 L

余存 發(fā)表于 2015-12-31 16:30
4 r8 q3 H7 L5 }6 V+ C" I, Q+ l額,。,。�,？床欢���,，大俠，這是啥,？

新建一個(gè)宏,。

運(yùn)行
* w6 M% c) y- @4 l( g0 Y

哈哈大校

steve_suich 發(fā)表于 2015-12-31 16:00

您好,！
- _9 O4 |7 C, z3 b7 Z4 @/ h( v
* A/ J# A' }  _6 j7 e
2 \' }' k: X3 _! s這個(gè)我試著輸入過但是不行,，您能否發(fā)個(gè)SWP格式的來呢？

萬分感謝�,�,！

楊楊_cpmUG

steve_suich 發(fā)表于 2015-12-31 16:02

看著這回復(fù),，總覺得自己要學(xué)的很多
; n' u+ m& J8 ~! V# L# [8 `8 ]

ziliangmo

l樓主可以把修改好的標(biāo)題欄（可以做鏈接）的圖紙保存好圖紙格式，A4-A1分別做一個(gè),，然后打開你要修改的圖紙,，右鍵屬性，選擇相應(yīng)大小的圖紙格式替換掉就ok了

ziliangmo

至于模板是改不了的,，你可以在選項(xiàng)里設(shè)置好你的樣式,，然后保存好繪圖標(biāo)準(zhǔn)，打開每張圖紙加載該樣式就可以了,，反正每張圖紙你都要檢查修改公差等,，順便更改一下圖紙格式和加載繪圖標(biāo)準(zhǔn)，就相當(dāng)于換了模板和格式了

kytool.cn

我們之前有一款插件可以實(shí)現(xiàn)批量替換圖紙模板,，肯定有這方面的工具,，你可以問一下度娘：SolidWorks批量替換工程圖圖框，保證有收獲,。
  {" q/ t$ s. O( t

眸上有傷痕

  到這里了下步怎么弄

眸上有傷痕

Dim swApp As Object

% ~3 m6 b& |8 jDim Part As Object
0 j+ h( O; f, e, DDim boolstatus As Boolean
* i5 W8 W) `; h% BDim longstatus As Long, longwarnings As Long
Dim path As String
; s$ M$ m# ]: G6 {+ |* I& A8 I! kDim fname As String
Dim m As Integer
Dim shname() As String
( ?# e* ?& \) V/ B: U. O+ J. D
# p4 x8 b. I  r
, X, h1 a& V" s4 I' c# e1 lSub Main()

8 r" R, U" m8 O& G; ?Set swApp = _
5 d; W* v7 p5 W7 p; ~! |8 JApplication.SldWorks
path = InputBox("D:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\chinese-simplified\Tutorial", "批量替換圖框")
7 c9 g0 D; U9 R: bfname = Dir(path & "*.slddew")
Do Until fname = ""
2 d; g' p4 A4 MSet Part = swApp.OpenDoc(path + fname, 3)
; a# l4 L+ N  X2 I8 b% YSet Part = swApp.ActiveDoc
shname = Part.GetSheeetNameS()
3 n) E/ J# r5 R. N7 r2 @For m = 0 To Part.GetSheeetCount - 1
  q* a6 _' Y8 ~. x2 p  ]' L     If Part.ActivateSheet(shname(m)) Then
* U# p6 F9 Y& ], O7 k- s     boolstatus = Part.SetupSheet5(shname(m), 8, 12, 0, 0, True, _
; V0 D# M& I: |2 u. W/ z/ ~     "C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2020\lang\Chinese-Simplified\sheetformat\a3 - gb.slddrt", _
     0.42, 0.297, "默認(rèn)", True)
: j2 h0 {/ E* P5 n% c4 d+ Y    End If
  k, J5 W: A8 ^    Next
Part.Save
! R; Q0 ^# r7 m( H4 A; k( FswApp.CloseDoc (Part.GetTitle)
Set Part = Nothing
fname = Dir
' x2 j* }1 G+ ]  }% F2 d* |Loop

End Sub