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

steve_suich

余存 發(fā)表于 2015-12-31 16:30
% B8 z% G& ]; U: ^6 C/ d額。。。看不懂啊，大俠，這是啥？

新建一個(gè)宏。

運(yùn)行

2 @* {8 s& [# q1 H1 H

哈哈大校

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

您好！

, t( j. |  n2 h4 ~2 l7 ?& d% N
這個(gè)我試著輸入過但是不行，您能否發(fā)個(gè)SWP格式的來呢？
) E% Y; n) L5 r5 D3 j+ l8 p
# R9 ^. X# f- b) Q, G萬分感謝！！

楊楊_cpmUG

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

+ ?( G. t% j/ U9 R. a( a+ Q' q6 \看著這回復(fù)，總覺得自己要學(xué)的很多
6 S* [: a" H+ Y! n$ Y7 T: v- p' R

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批量替換工程圖圖框，保證有收獲。

眸上有傷痕

  到這里了下步怎么弄

眸上有傷痕

Dim swApp As Object
- p( Z; L& B  z  }( B2 M% }; G
% ?6 D0 W) c( p! |# r0 I" qDim Part As Object
* r, c" }& G0 @1 a7 ~4 M2 A( b/ i) sDim boolstatus As Boolean
+ S, l% E. W9 L( Q3 wDim longstatus As Long, longwarnings As Long
Dim path As String
, M( @% R2 ^9 `5 v- \3 \Dim fname As String
) q& Z! {* V. j6 Q+ |$ bDim m As Integer
* R# z+ i% L( m3 I! D: VDim shname() As String
6 f+ I$ S2 R4 ]! v. ~
/ l7 K9 _! P  t& V% {9 ?# J
Sub Main()

Set swApp = _
Application.SldWorks
path = InputBox("D:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\chinese-simplified\Tutorial", "批量替換圖框")
# h( R3 Y" k/ l/ E: y. r% `fname = Dir(path & "*.slddew")
! w, c- v0 [! O7 I, RDo Until fname = ""
0 [% A8 N" ~" S  {* c4 \1 LSet Part = swApp.OpenDoc(path + fname, 3)
Set Part = swApp.ActiveDoc
shname = Part.GetSheeetNameS()
For m = 0 To Part.GetSheeetCount - 1
+ s) Z6 q5 w4 V/ |2 p) s4 R7 T     If Part.ActivateSheet(shname(m)) Then
8 |% [$ c% A: _     boolstatus = Part.SetupSheet5(shname(m), 8, 12, 0, 0, True, _
     "C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2020\lang\Chinese-Simplified\sheetformat\a3 - gb.slddrt", _
/ I1 ^/ f  \& z% Q) K: F& W     0.42, 0.297, "默認(rèn)", True)
( M( b. }3 U8 v2 o    End If
$ L8 B- L- C  y' m' X! r    Next
; n4 Z9 ?" o" \6 kPart.Save
0 f5 F, g) q( \* B2 K1 v# w! aswApp.CloseDoc (Part.GetTitle)
Set Part = Nothing
$ s% Z" @- A' ?- ^, gfname = Dir
Loop
  y. P1 F1 z7 l
0 a' s9 G0 i  Q& Z  REnd Sub