|
|
本帖最后由 zqzwhj111 于 2020-4-12 11:38 編輯
2 l2 P! \ `& S4 \
* k% G: l5 v5 r1 ]3 k9 u% i 有大佬知道這個程序哪里出問題了嗎，替換不了，用visual studio寫的，VB語言，SolidWorks版本是2012的
- S* ]0 N: Q4 ]' N* F3 \. P3 R( |$ M% e) A( E$ G8 u/ F) ?7 B
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click& W: L2 T. I$ m" ]
Dim swapp As SldWorks.SldWorks, L- I) d8 V) D+ i8 G8 P
Dim modle As SldWorks.ModelDoc2. y- q1 ?, `; Y1 B$ G: q2 M2 \1 X
Dim sheet As SldWorks.Sheet
# M. G/ M- {' B Dim sheetpr() As Double7 q+ o4 f/ m' W |; Y8 x
swapp = CreateObject("Sldworks.application")
0 n' R# m0 ]8 B5 _) V9 Z# ^/ Q1 ]8 T/ r5 i, l. P4 w2 l
Dim pathname As String! @' R) c8 i2 l j8 s5 I
pathname = TextBox1.Text '獲得文件夾路徑
* l/ k: j% m/ ?' m8 j9 y' F Dim swpath() As String+ M& D6 T1 x! E5 T+ d% ^
swpath = IO.Directory.GetFiles(pathname, "*.SLDDRW") '篩選圖紙文件名5 L4 @# x. v# d6 c0 F
For Each strname As String In swpath '列出所有圖紙文件名
, W t, ?) Q# I0 Y. K5 b2 I. Z4 V, E modle = swapp.OpenDoc(strname, 3) '打開模型
0 q+ J+ i8 F Q a8 K( u8 e sheet = modle.GetCurrentSheet() '獲得當前圖紙
( M# [ f6 Z/ p sheetpr = sheet.GetProperties() '獲得圖紙屬性9 G$ X' G3 Y; k1 L2 U
sheetpr(1) = 129 u2 r( b2 _0 r9 z) I/ Q
sheetpr(1) = 126 k, L, D: J/ C# \% v- @& ~
sheet.SetProperties(sheetpr(0), sheetpr(1), sheetpr(2), sheetpr(3), sheetpr(4), sheetpr(5), sheetpr(6))
' e1 u* `6 |/ i9 f0 M( m# x3 f If sheetpr(5) = 210 / 1000 Then
5 R) m. T" `) d7 {3 a sheet.SetTemplateName("E:\圖紙格式文件替換工程圖模板時使用\A4替換.slddrt")
8 l1 a6 y% w- j- @0 K% \ ElseIf sheetpr(5) = 420 / 1000 Then
8 [& d5 L' [0 K2 T1 q+ x/ b. J; i0 N5 s sheet.SetTemplateName("E:\圖紙格式文件替換工程圖模板時使用\A3替換.slddrt")
) t4 a, c/ G- C7 |+ k1 T5 N1 X5 m End If
) N- l6 r+ g7 C0 g: _, W, Y& v modle.Save3(1, swerrors, swwarings)
4 x/ V; N4 {/ p. w6 W% }: H1 e swapp.CloseDoc(strname.Substring(InStrRev(strname, "\"), Len(strname) - InStrRev(strname, "\")))% o O+ v9 d: Y1 k; J* U0 S
Next- X0 x" y* _3 [! c* E- m
End Sub: w2 s5 D3 s9 z
3 z7 Y8 R& Z* | C4 e+ a
|
|
發表于 2020-4-12 11:34:02
QQ好友和群
QQ空間
