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

steve_suich

: E* A1 H* V, q

余存 發表于 2015-12-31 16:30
+ k5 a+ {. A+ g- w/ r8 O+ I額。。?？床欢?，大俠，這是啥？

新建一個宏。

運行
) S; o' L# G% o  i) L( X

3 N! ]3 E5 V) Y9 C7 D: ~' E

哈哈大校

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

您好！

5 e2 f8 x0 E+ D. m
這個我試著輸入過但是不行，您能否發個SWP格式的來呢？

萬分感謝?。?br /> ; J$ O5 W& M8 e

楊楊_cpmUG

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

6 j+ P6 x5 B0 C1 ?看著這回復，總覺得自己要學的很多

ziliangmo

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

ziliangmo

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

kytool.cn

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

眸上有傷痕

  到這里了下步怎么弄

眸上有傷痕

Dim swApp As Object

( w# @$ ?+ n) m* p- ^2 P7 q+ nDim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
% F. X0 D- P4 ~9 g( T: a% |: B* wDim path As String
. r' Q# f7 y- _: }: p; T& t. h, a; FDim fname As String
/ V9 T1 p) @# u2 B& cDim m As Integer
Dim shname() As String
/ b4 P; G1 t8 ~# m
7 ~/ ]& q$ W2 K' ?( g" f1 y
0 o0 x2 e( D9 E# @& v! mSub Main()

Set swApp = _
4 d) j5 a5 }- B3 i( y4 L9 R, R7 L' vApplication.SldWorks
path = InputBox("D:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\chinese-simplified\Tutorial", "批量替換圖框")
fname = Dir(path & "*.slddew")
6 @9 ~& ]- R$ I- Z( Q5 K/ e/ KDo Until fname = ""
+ e9 x% C- e) w, L7 @4 }9 iSet Part = swApp.OpenDoc(path + fname, 3)
Set Part = swApp.ActiveDoc
7 q3 c! ~/ N0 e  D7 Kshname = Part.GetSheeetNameS()
; N* N" u2 j1 R9 m4 C) ~For m = 0 To Part.GetSheeetCount - 1
     If Part.ActivateSheet(shname(m)) Then
1 w& @3 j, h2 z/ ~- D& x     boolstatus = Part.SetupSheet5(shname(m), 8, 12, 0, 0, True, _
9 W$ l" I' \1 |     "C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2020\lang\Chinese-Simplified\sheetformat\a3 - gb.slddrt", _
     0.42, 0.297, "默認", True)
" Y. t1 O8 C) {8 c" f7 Q8 s    End If
7 P6 c$ F" O7 ^& W. I/ Q; W7 r    Next
" n8 T# S1 k1 V- a7 ]4 r' l, MPart.Save
swApp.CloseDoc (Part.GetTitle)
Set Part = Nothing
fname = Dir
7 K( S$ R8 C7 m5 e) U' X9 E0 p0 M  S$ BLoop

  ~* j8 c# R% Z" M' |) M/ X$ kEnd Sub