, Q& v6 U& K4 n z5 ~' DPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ; ], V( H( p; O# @* Q# g+ \! m Dim swapp As SldWorks.SldWorks Z4 c/ m, t( k. G5 z9 c8 A
Dim modle As SldWorks.ModelDoc2 W O& F+ t$ K
Dim sheet As SldWorks.Sheet6 B8 w: V' V/ d( C
Dim sheetpr() As Double2 F! {6 G9 ^ s; Z' p+ d+ o X
swapp = CreateObject("Sldworks.application") a" B1 E2 p* ?: X0 g5 F% k. M3 D( l/ [- _
Dim pathname As String' E+ O* w1 \( g0 A) a/ [4 Y
pathname = TextBox1.Text '獲得文件夾路徑 7 N: L. q, |# m+ @, `& s6 i$ B' w, E Dim swpath() As String! w6 T2 l! L9 Y8 V4 h5 q5 r* x
swpath = IO.Directory.GetFiles(pathname, "*.SLDDRW") '篩選圖紙文件名 6 J2 }/ p3 f& g. ?3 g s For Each strname As String In swpath '列出所有圖紙文件名8 j3 [5 P3 S, ~8 z- T
modle = swapp.OpenDoc(strname, 3) '打開模型 3 @+ {0 a7 J7 L ] sheet = modle.GetCurrentSheet() '獲得當前圖紙; @( b' E; W% O1 P0 }& l; X1 i
sheetpr = sheet.GetProperties() '獲得圖紙屬性. N8 H8 ~& c& Q& v$ [
sheetpr(1) = 125 [( o7 T; t; O6 U) P
sheetpr(1) = 12) g" u4 }2 e9 F7 H
sheet.SetProperties(sheetpr(0), sheetpr(1), sheetpr(2), sheetpr(3), sheetpr(4), sheetpr(5), sheetpr(6)) 6 t! `2 u& t$ D; u" B w If sheetpr(5) = 210 / 1000 Then 2 B. J" v, r B4 Q$ ?5 M, q sheet.SetTemplateName("E:\圖紙格式文件替換工程圖模板時使用\A4替換.slddrt") ' B- W1 Y& H2 A2 `' a ElseIf sheetpr(5) = 420 / 1000 Then ) ^( Q% w" c( `. ^6 a, ~2 e# E sheet.SetTemplateName("E:\圖紙格式文件替換工程圖模板時使用\A3替換.slddrt")9 H+ a5 v, t+ N* F R
End If x- E+ _( C/ A5 L( M9 A( u
modle.Save3(1, swerrors, swwarings) # B' B4 C3 W. U: P0 z' z4 }6 d0 y swapp.CloseDoc(strname.Substring(InStrRev(strname, "\"), Len(strname) - InStrRev(strname, "\"))). S) [# w: v% O
Next / U7 F( _' s2 K' | A$ wEnd Sub T. R3 F( t; }3 l