|
|
本帖最后由 zqzwhj111 于 2020-4-12 11:38 編輯
' R ?; s' l0 Y. d" e7 Y X5 n6 j- `2 @9 \+ U
有大佬知道這個(gè)程序哪里出問(wèn)題了嗎，替換不了，用visual studio寫(xiě)的，VB語(yǔ)言，SolidWorks版本是2012的 j" w0 n O3 Y! b
+ W) o( j# `5 O, `
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
4 Y) m& M# K* F Dim swapp As SldWorks.SldWorks! A/ X* B4 k1 W
Dim modle As SldWorks.ModelDoc23 J. G' A7 F; ?# [% A
Dim sheet As SldWorks.Sheet
/ n" j1 Q! v9 C# M' S$ r Dim sheetpr() As Double
4 z- f: P: a5 q1 p: C1 a3 D swapp = CreateObject("Sldworks.application")% I3 t5 f8 @4 k0 s* x
1 H+ X7 N! b! ~. A W Dim pathname As String3 E) i* ]" _1 k' b* G
pathname = TextBox1.Text '獲得文件夾路徑/ d7 }, o2 Z( i$ E
Dim swpath() As String* ~8 c0 |9 j9 K3 E
swpath = IO.Directory.GetFiles(pathname, "*.SLDDRW") '篩選圖紙文件名
) y9 c' r" n2 t9 B9 Z For Each strname As String In swpath '列出所有圖紙文件名: L! o/ _) _- Y- E
modle = swapp.OpenDoc(strname, 3) '打開(kāi)模型: s# g( N- L% `7 ]
sheet = modle.GetCurrentSheet() '獲得當(dāng)前圖紙
- `7 I0 S: D- h sheetpr = sheet.GetProperties() '獲得圖紙屬性
1 n6 G( y7 X% k4 C4 @ sheetpr(1) = 12* W9 L" Q5 R# C5 F
sheetpr(1) = 12+ p8 F5 C4 k c3 N# P' j3 {+ U0 p
sheet.SetProperties(sheetpr(0), sheetpr(1), sheetpr(2), sheetpr(3), sheetpr(4), sheetpr(5), sheetpr(6))
. J# K, B8 e$ Z. r+ U8 F, x If sheetpr(5) = 210 / 1000 Then
# ^% W* X* T7 e: C sheet.SetTemplateName("E:\圖紙格式文件替換工程圖模板時(shí)使用\A4替換.slddrt")
' o6 A3 F# E% S2 ]% i1 ^3 n ElseIf sheetpr(5) = 420 / 1000 Then
" o; t, J3 _6 p3 p7 m sheet.SetTemplateName("E:\圖紙格式文件替換工程圖模板時(shí)使用\A3替換.slddrt"), u) E. `3 ?/ D
End If; m# z0 S3 c$ Q' d2 w2 H
modle.Save3(1, swerrors, swwarings)
3 \8 G- g- u, ?# P j swapp.CloseDoc(strname.Substring(InStrRev(strname, "\"), Len(strname) - InStrRev(strname, "\")))! q. ]* g, C0 X ]& U1 [
Next
6 `* }. K2 F5 \" vEnd Sub/ T' s' V. u* p! R
% f/ T' @( Y0 k7 s3 `) ]+ ?6 |
|
|
發(fā)表于 2020-4-12 11:34:02
QQ好友和群
QQ空間
