批量替換工程圖模板程序問題

zqzwhj111

$ z& Y: q7 }  [6 W* P
有大佬知道這個程序哪里出問題了嗎,，替換不了，用visual studio寫的,，VB語言,，SolidWorks版本是2012的
: a# x, M( n0 W& a; ^: ~
5 k4 q+ P- W. z3 {# BPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim swapp As SldWorks.SldWorks
        Dim modle As SldWorks.ModelDoc2
! ]6 b7 o) h5 B/ k* M) p) e        Dim sheet As SldWorks.Sheet
' N+ @! q+ D3 N; ?+ ?6 W        Dim sheetpr() As Double
- |1 [* [1 J( ~9 Z. o        swapp = CreateObject("Sldworks.application")

        Dim pathname As String
4 o! t2 C9 m- i- o0 {1 t& o/ j9 ~. v        pathname = TextBox1.Text         '獲得文件夾路徑
        Dim swpath() As String
5 O) Q/ v- P* ?, N& M( M        swpath = IO.Directory.GetFiles(pathname, "*.SLDDRW")        '篩選圖紙文件名
        For Each strname As String In swpath       '列出所有圖紙文件名
            modle = swapp.OpenDoc(strname, 3)      '打開模型
            sheet = modle.GetCurrentSheet()         '獲得當(dāng)前圖紙
, _+ J$ H3 \4 e7 J- J            sheetpr = sheet.GetProperties()        '獲得圖紙屬性
            sheetpr(1) = 12
            sheetpr(1) = 12
( b! M4 N8 _# m, M: O2 R            sheet.SetProperties(sheetpr(0), sheetpr(1), sheetpr(2), sheetpr(3), sheetpr(4), sheetpr(5), sheetpr(6))
            If sheetpr(5) = 210 / 1000 Then
) @  h6 Y3 X+ K- h                sheet.SetTemplateName("E:\圖紙格式文件替換工程圖模板時使用\A4替換.slddrt")
            ElseIf sheetpr(5) = 420 / 1000 Then
# s  J) a9 v& W, ?& J8 p5 ~                sheet.SetTemplateName("E:\圖紙格式文件替換工程圖模板時使用\A3替換.slddrt")
1 Z  C% k- _) M4 o: _; W            End If
) N; f% H& y( S1 s6 d5 j* X            modle.Save3(1, swerrors, swwarings)
6 y4 [$ ^6 C. M2 ~9 e6 t3 B            swapp.CloseDoc(strname.Substring(InStrRev(strname, "\"), Len(strname) - InStrRev(strname, "\")))
, }% q1 \1 ]% u. p        Next
0 c$ g+ ?; t; U/ r1 n4 f- Z$ z: cEnd Sub
& X) z! [" T' e9 O5 z, \4 M- x

gaxisjtu

有試過把程序里面的路徑和模板改為英文的嗎

zqzwhj111

gaxisjtu 發(fā)表于 2020-4-12 11:38
有試過把程序里面的路徑和模板改為英文的嗎

我試試

zqzwhj111

gaxisjtu 發(fā)表于 2020-4-12 11:38
5 f, G/ E" |( R% ]: l9 ~( J7 }有試過把程序里面的路徑和模板改為英文的嗎

還是不行
+ s/ \9 \3 ^, A" i3 \- t

Zhou20202020

057762768008
; X$ A& ~+ X# H' [3 ^; E; d% E

小豆芽爸爸

頂一下,，等待高手