|
|
本帖最后由 zqzwhj111 于 2020-4-12 11:38 編輯
1 l2 d' @0 v P: D& @6 F: F7 ^) y5 D4 D3 h1 n
有大佬知道這個程序哪里出問題了嗎，替換不了，用visual studio寫的，VB語言，SolidWorks版本是2012的, J0 u3 Q# |. O( u+ d; p# d U
" F* x2 H1 y9 d/ RPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
% {. E- F! |6 d. P9 [" ?; H2 C4 c Dim swapp As SldWorks.SldWorks
2 d) B4 |0 a1 E+ ?6 X% W Dim modle As SldWorks.ModelDoc2
# M3 O0 n1 a3 L4 Z, R6 O: e Dim sheet As SldWorks.Sheet% G% ~: N& {0 X- H7 B
Dim sheetpr() As Double+ K+ E0 L4 }$ I) I
swapp = CreateObject("Sldworks.application")" [ `8 z8 Y9 P, V
: N- R6 |0 }, |+ e Y$ d
Dim pathname As String
! b/ a' r( i: b; O2 d pathname = TextBox1.Text '獲得文件夾路徑7 X) _6 `6 L5 z2 |4 k. |
Dim swpath() As String2 h4 z; R. O6 f) d! H1 m% Z
swpath = IO.Directory.GetFiles(pathname, "*.SLDDRW") '篩選圖紙文件名
. D! P$ D' G1 S6 P7 C For Each strname As String In swpath '列出所有圖紙文件名7 n8 J- X! V% F- ]
modle = swapp.OpenDoc(strname, 3) '打開模型$ a5 x1 y' M* Y# b6 U
sheet = modle.GetCurrentSheet() '獲得當前圖紙
- l5 f' c4 V- f. X sheetpr = sheet.GetProperties() '獲得圖紙屬性
- Q" m X' \' o$ d& w sheetpr(1) = 123 c! _2 r4 I4 J0 H* k; A2 m. L
sheetpr(1) = 12
' f4 A, h; D- a) u: A7 [! Q sheet.SetProperties(sheetpr(0), sheetpr(1), sheetpr(2), sheetpr(3), sheetpr(4), sheetpr(5), sheetpr(6))
7 @5 G0 Y) F1 `/ R n. K; B1 n. m If sheetpr(5) = 210 / 1000 Then
* r2 ^/ g2 j: N2 H$ v sheet.SetTemplateName("E:\圖紙格式文件替換工程圖模板時使用\A4替換.slddrt")
0 b9 E& v" }4 t# Y: p' Y ElseIf sheetpr(5) = 420 / 1000 Then, `% j& N n1 K N' K% S; w
sheet.SetTemplateName("E:\圖紙格式文件替換工程圖模板時使用\A3替換.slddrt")
. Y& ?2 o. t- J9 T* j End If5 n' `; \ f9 T' U5 _# D: L6 I
modle.Save3(1, swerrors, swwarings)
: ?0 a# F. S+ N& a3 d! s) D swapp.CloseDoc(strname.Substring(InStrRev(strname, "\"), Len(strname) - InStrRev(strname, "\")))
$ T2 ]# E' ]. @6 T Next
7 o {. A% M0 ^5 u- ?# KEnd Sub( V Q& g k% K2 `( Z* I
) m+ |' M+ ?* B5 O6 q, h
|
|
發表于 2020-4-12 11:34:02
QQ好友和群
QQ空間
