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

steve_suich

余存 發(fā)表于 2015-12-31 16:30
2 f( a4 m- S+ u% Y4 g; e% B額。。�？床欢�啊，大俠，這是啥？

; ]& `; D! x( s新建一個(gè)宏。

# H- V6 v5 T  [, j' L運(yùn)行

哈哈大校

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

! f- Z& E7 t$ @! w- R9 M- g7 k您好！


$ I. f, T. z8 \# ^8 D這個(gè)我試著輸入過但是不行，您能否發(fā)個(gè)SWP格式的來呢？

萬分感謝��！
8 U; q, G- h7 Y6 i, W6 f, F

楊楊_cpmUG

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

. u( m: ~0 D0 R( Y看著這回復(fù)，總覺得自己要學(xué)的很多
+ `) H7 [/ V" r% M

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
) c$ O  W& e9 W6 A0 {# H
5 k8 L0 K3 s3 @. b8 x  C, jDim Part As Object
( }9 h& e* @- Q' L% q/ P  B" a' ~Dim boolstatus As Boolean
/ a" o4 F. {4 ~& X3 YDim longstatus As Long, longwarnings As Long
Dim path As String
Dim fname As String
Dim m As Integer
Dim shname() As String


Sub Main()

3 G+ ^' Z8 N$ t2 z, w1 I. nSet swApp = _
5 I. p" p/ H. @7 a' F2 uApplication.SldWorks
& @) f, s& g3 r, J/ q, Fpath = InputBox("D:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\chinese-simplified\Tutorial", "批量替換圖框")
fname = Dir(path & "*.slddew")
Do Until fname = ""
Set Part = swApp.OpenDoc(path + fname, 3)
) @  k( s& U! S7 N/ sSet Part = swApp.ActiveDoc
6 y- w  W* V" o6 K2 `shname = Part.GetSheeetNameS()
For m = 0 To Part.GetSheeetCount - 1
1 d+ Q+ l) j9 g0 A8 J$ d     If Part.ActivateSheet(shname(m)) Then
' Q4 A, W3 b- H! h# W     boolstatus = Part.SetupSheet5(shname(m), 8, 12, 0, 0, True, _
0 t' Z0 `5 K  {# D9 D- t7 Z     "C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2020\lang\Chinese-Simplified\sheetformat\a3 - gb.slddrt", _
     0.42, 0.297, "默認(rèn)", True)
- T& `9 }: M: v* @    End If
    Next
0 k3 d# H. c& a7 v2 ^5 IPart.Save
, ^& K( |; r9 M  Q7 W. VswApp.CloseDoc (Part.GetTitle)
% l  ?1 c/ f# XSet Part = Nothing
fname = Dir
Loop

$ D9 {, n4 A) d# W5 w8 Q4 Y" MEnd Sub