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

steve_suich

# K$ ^0 d7 C1 N! A

余存 發表于 2015-12-31 16:30
額。。。看不懂啊，大俠，這是啥？

5 Z+ l0 `( f; p* ~( v: p: X, F新建一個宏。
* a8 [$ V/ a4 ^- j! z
運行
2 F: E. E3 H/ _2 ?. K9 O1 |

哈哈大校

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

2 v) j- y# D, p2 N% n' F* {7 G您好！


這個我試著輸入過但是不行，您能否發個SWP格式的來呢？
9 L5 C: Q% O+ G5 V
0 |! R# l2 j1 X' S% k( P9 x' N+ J2 W萬分感謝！！
* l. C3 F: E: }

楊楊_cpmUG

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

$ h2 J* f, F" X9 [/ b; V% Q看著這回復，總覺得自己要學的很多

ziliangmo

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

ziliangmo

至于模板是改不了的，你可以在選項里設置好你的樣式，然后保存好繪圖標準，打開每張圖紙加載該樣式就可以了，反正每張圖紙你都要檢查修改公差等，順便更改一下圖紙格式和加載繪圖標準，就相當于換了模板和格式了

kytool.cn

我們之前有一款插件可以實現批量替換圖紙模板，肯定有這方面的工具，你可以問一下度娘：SolidWorks批量替換工程圖圖框，保證有收獲。
% j3 Z& P/ q& K! R0 Z

眸上有傷痕

  到這里了下步怎么弄

眸上有傷痕

Dim swApp As Object

) P% B2 {0 i3 H( }% j0 IDim Part As Object
( M( _+ R! k8 i. w' pDim boolstatus As Boolean
7 K' ^$ O  a' e5 e2 D. ]3 u4 aDim longstatus As Long, longwarnings As Long
Dim path As String
3 K9 [5 D* w4 WDim fname As String
Dim m As Integer
Dim shname() As String
5 C2 T1 v; ^( W2 F
' }) Z2 b5 |: ]! d5 X
; Z# b  P: Q, r0 wSub Main()
$ Z8 `" D$ O& o0 J, i0 h
) R5 w+ ^* a0 S9 x  t+ W  Z2 eSet swApp = _
; a. c& e# h# }+ ^  QApplication.SldWorks
path = InputBox("D:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\chinese-simplified\Tutorial", "批量替換圖框")
8 r/ p% S0 a, E( r  L8 gfname = Dir(path & "*.slddew")
Do Until fname = ""
3 U& s3 J( ]4 J0 H  j+ {$ C; cSet Part = swApp.OpenDoc(path + fname, 3)
) [. K0 m/ d/ T' bSet Part = swApp.ActiveDoc
1 h, r4 I3 i5 I) U1 Lshname = Part.GetSheeetNameS()
For m = 0 To Part.GetSheeetCount - 1
     If Part.ActivateSheet(shname(m)) Then
5 X9 v# S+ L) T     boolstatus = Part.SetupSheet5(shname(m), 8, 12, 0, 0, True, _
$ u; o# u* ~% [$ n9 |     "C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2020\lang\Chinese-Simplified\sheetformat\a3 - gb.slddrt", _
" f! B8 c. m- Z3 M7 \" E     0.42, 0.297, "默認", True)
4 N. X& R' d. b3 U1 V    End If
    Next
Part.Save
2 [2 O( O' }, V9 P7 LswApp.CloseDoc (Part.GetTitle)
Set Part = Nothing
fname = Dir
Loop

End Sub