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

steve_suich

余存 發(fā)表于 2015-12-31 16:30
3 Q. P4 w5 N: U, ?) k額。。。看不懂啊，大俠，這是啥？

新建一個(gè)宏。

運(yùn)行

0 {5 ?" v) i9 R' x) M

哈哈大校

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

您好！
) X( n( }7 p8 ^

這個(gè)我試著輸入過(guò)但是不行，您能否發(fā)個(gè)SWP格式的來(lái)呢？
3 J" ?! ]1 U( [
; d$ v3 L  ^& _" k, T$ A2 ^( ?萬(wàn)分感謝?。?br /> 8 R% @$ G3 W' b  h" X

楊楊_cpmUG

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

3 |) q" k# Z4 {7 w& |看著這回復(fù)，總覺(jué)得自己要學(xué)的很多

ziliangmo

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

ziliangmo

至于模板是改不了的，你可以在選項(xiàng)里設(shè)置好你的樣式，然后保存好繪圖標(biāo)準(zhǔn)，打開(kāi)每張圖紙加載該樣式就可以了，反正每張圖紙你都要檢查修改公差等，順便更改一下圖紙格式和加載繪圖標(biāo)準(zhǔn)，就相當(dāng)于換了模板和格式了

kytool.cn

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

眸上有傷痕

  到這里了下步怎么弄

眸上有傷痕

Dim swApp As Object

7 c9 l+ g/ ~) G) d1 LDim Part As Object
Dim boolstatus As Boolean
# o$ M& j# _+ ]1 hDim longstatus As Long, longwarnings As Long
Dim path As String
- y5 W% a' b; g/ F# H8 h& I& e( QDim fname As String
2 J$ r6 C& H# @Dim m As Integer
0 |. k& D/ z- C) fDim shname() As String


Sub Main()

Set swApp = _
Application.SldWorks
# o8 l% N, ?1 g9 {! Spath = InputBox("D:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\chinese-simplified\Tutorial", "批量替換圖框")
fname = Dir(path & "*.slddew")
Do Until fname = ""
; h; {, f- Z) c5 A3 jSet Part = swApp.OpenDoc(path + fname, 3)
Set Part = swApp.ActiveDoc
# _! L0 m0 @, Z! j4 n$ ?' S/ n! }2 Rshname = Part.GetSheeetNameS()
' I! b" O. X& JFor m = 0 To Part.GetSheeetCount - 1
     If Part.ActivateSheet(shname(m)) Then
/ Q: R3 t# e. @% S4 A     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, "默認(rèn)", True)
1 N, }" k5 \. Z8 ]$ I3 V    End If
    Next
Part.Save
/ v5 ~$ ^+ O8 }; r  j. ~# d4 MswApp.CloseDoc (Part.GetTitle)
! b" X2 w+ i9 Q  L: ASet Part = Nothing
fname = Dir
Loop
, N% X, z$ G1 E+ |6 H, [. ?
End Sub