|
|
本帖最后由 zqzwhj111 于 2020-4-12 11:38 编辑 / u7 Y" ]1 d* P
6 \, j7 O0 ]4 E. w- l. }
有大佬知道这个程序哪里出问题了吗，替换不了，用visual studio写的，VB语言，SolidWorks版本是2012的1 W3 r9 B+ K' T' ^- g' Y( F3 n- q0 {: h
) o D7 I* w' s' Q/ KPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click( k3 f& A% _7 I) T
Dim swapp As SldWorks.SldWorks
' `9 Y: P B1 E9 w) f/ k Dim modle As SldWorks.ModelDoc2
1 f8 F5 S% u& Z& d; e Dim sheet As SldWorks.Sheet
" t" D% H c5 u7 V9 [ Dim sheetpr() As Double
2 n$ `" S" B( t8 H' H0 q3 b swapp = CreateObject("Sldworks.application")( [- V3 {) T# O3 e
% u g+ R& r' Y& u( O
Dim pathname As String# E4 r9 S5 F! O
pathname = TextBox1.Text '获得文件夹路径 u1 t/ D+ D% r$ o
Dim swpath() As String5 l( R- l6 H1 j3 V f' k3 D s
swpath = IO.Directory.GetFiles(pathname, "*.SLDDRW") '筛选图纸文件名/ d. e, f& b2 m: y4 G
For Each strname As String In swpath '列出所有图纸文件名# ~0 s3 W6 g- W1 i
modle = swapp.OpenDoc(strname, 3) '打开模型 ^/ b3 n$ i; I4 X8 Y7 G* V
sheet = modle.GetCurrentSheet() '获得当前图纸
, c l( [. q4 }# U) c2 B sheetpr = sheet.GetProperties() '获得图纸属性3 c/ R$ m2 W" r
sheetpr(1) = 12
9 a( A. q: K* ?! K0 s+ z3 y sheetpr(1) = 12
6 T4 |1 q; P4 B+ z- j sheet.SetProperties(sheetpr(0), sheetpr(1), sheetpr(2), sheetpr(3), sheetpr(4), sheetpr(5), sheetpr(6)); T9 h+ j' `+ g+ Z0 j/ K1 v$ n# q
If sheetpr(5) = 210 / 1000 Then* Q" f+ x- q q- u3 B
sheet.SetTemplateName("E:\图纸格式文件替换工程图模板时使用\A4替换.slddrt")
8 _9 r* t# J p" @# I* \- O, o ElseIf sheetpr(5) = 420 / 1000 Then
4 i9 s- N; v* N% F sheet.SetTemplateName("E:\图纸格式文件替换工程图模板时使用\A3替换.slddrt")
% {: F( r/ I$ D! h( P0 Y End If `* I4 x5 M! ~" y" @& ~6 [
modle.Save3(1, swerrors, swwarings)
/ ~$ U% H" e) e3 d swapp.CloseDoc(strname.Substring(InStrRev(strname, "\"), Len(strname) - InStrRev(strname, "\")))/ G& o3 ?) g& D4 d
Next
+ _6 Z. x! W/ mEnd Sub
8 x J0 `2 a& A1 L5 B' q; @
& o8 ^! c) G) h: P& U |
|
发表于 2020-4-12 11:34:02
楼主
