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

steve_suich

% u! G+ C% o! K( |1 E' V

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

  l" |7 g' i* N  t( E& C3 t$ m新建一個宏。
( x$ T- ^) x& O2 _* q" @2 F$ J
運行
( K$ a; Q- B/ r( X' o& ]) y

哈哈大校

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

您好！


這個我試著輸入過但是不行，您能否發個SWP格式的來呢？
$ i5 z1 ]- j3 k- H! z2 S$ |" u
, B5 W& v' r( k( f/ ^, E  Q; Z萬分感謝！！

楊楊_cpmUG

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

看著這回復，總覺得自己要學的很多

ziliangmo

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

ziliangmo

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

kytool.cn

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

眸上有傷痕

  到這里了下步怎么弄

眸上有傷痕

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
4 v# J$ |! w4 o$ U6 U  [Dim longstatus As Long, longwarnings As Long
1 n5 }! a* k# WDim path As String
* }9 V/ a3 ^( E; S1 ADim fname As String
Dim m As Integer
Dim shname() As String
1 d; b; N" O; n% c; K
1 b$ A2 z, k, D7 J
Sub Main()

Set swApp = _
. q+ a  R' S1 mApplication.SldWorks
5 X! e% \+ a" V$ tpath = InputBox("D:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\chinese-simplified\Tutorial", "批量替換圖框")
fname = Dir(path & "*.slddew")
Do Until fname = ""
" U6 W% P; @7 ~. k$ l7 D3 L4 ySet Part = swApp.OpenDoc(path + fname, 3)
  F! }$ m, ^% T# s& BSet Part = swApp.ActiveDoc
shname = Part.GetSheeetNameS()
For m = 0 To Part.GetSheeetCount - 1
) a" ]/ k8 |. ?, c" x     If Part.ActivateSheet(shname(m)) Then
2 h* t0 S" q& O; G5 O9 a6 p     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)
    End If
0 q# _( @. e3 S9 C4 I2 u    Next
Part.Save
/ U" N) Y7 [! s/ s; `swApp.CloseDoc (Part.GetTitle)
4 }# \5 C, x3 M& k) M. f0 t5 RSet Part = Nothing
fname = Dir
  b5 x! n/ Q# [( M$ ]3 fLoop
- P/ G' Y3 b3 q) q! o! |
End Sub