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

steve_suich

余存 發表于 2015-12-31 16:30
) \0 k* r9 c2 W' L$ y: \$ h額。。。看不懂啊，大俠，這是啥？

新建一個宏。
! }4 V# Y' H9 a5 d6 l
2 t0 f/ I- L- i" L1 X  r5 Y6 }運行
3 E# N9 }* ^. a# a

哈哈大校

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

/ w* `* a. r) a. {您好！


這個我試著輸入過但是不行，您能否發個SWP格式的來呢？
2 y( q5 [( i# i6 h7 L
萬分感謝！！

楊楊_cpmUG

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

3 T5 U' O0 A3 y2 N1 J# c3 W, x看著這回復，總覺得自己要學的很多

ziliangmo

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

ziliangmo

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

kytool.cn

我們之前有一款插件可以實現批量替換圖紙模板，肯定有這方面的工具，你可以問一下度娘：SolidWorks批量替換工程圖圖框，保證有收獲。
# t+ \; {+ j' x9 y

眸上有傷痕

  到這里了下步怎么弄

眸上有傷痕

Dim swApp As Object
' H) J" f9 \  J
Dim Part As Object
6 j/ s/ J& _' F: I" N" u* HDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
- @  ^8 o* s; b0 G# ~7 mDim path As String
& f; k9 s( b: @8 [0 }% M; _Dim fname As String
6 g. T. r; i2 v5 S5 \, `Dim m As Integer
Dim shname() As String
) v  X0 o$ ~3 `
; z1 Q- O, o# N8 s5 b/ U' u8 ]+ |
( G( _( o+ v0 Z  x. j  y* }3 Y/ RSub Main()
9 R/ O) A2 d, D6 Q
, P# i' C6 ~( G0 s! f7 QSet swApp = _
Application.SldWorks
path = InputBox("D:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\chinese-simplified\Tutorial", "批量替換圖框")
fname = Dir(path & "*.slddew")
" |3 _  V% v$ I) ?3 [* P/ c% ODo Until fname = ""
! E8 ?$ v- ]8 J0 dSet Part = swApp.OpenDoc(path + fname, 3)
Set Part = swApp.ActiveDoc
' S9 K8 v! y: H$ g4 k6 m1 G  Hshname = Part.GetSheeetNameS()
For m = 0 To Part.GetSheeetCount - 1
& G4 H2 |8 m. ~( M$ F% G     If Part.ActivateSheet(shname(m)) Then
     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)
3 m! c1 _8 H5 R, }. W    End If
    Next
# @- N( Q$ ]( E4 {Part.Save
swApp.CloseDoc (Part.GetTitle)
" _/ @' |) r' I8 WSet Part = Nothing
fname = Dir
, J% Q$ g" i# xLoop
  E5 J4 f, [; U. U; e! _, D
End Sub