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

zqzwhj111

4 R7 H* H! O" y. A8 e; b5 V' @+ i
有大佬知道這個程序哪里出問題了嗎，替換不了，用visual studio寫的，VB語言，SolidWorks版本是2012的

  i8 j- Y; q& e  \/ g0 `Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim swapp As SldWorks.SldWorks
        Dim modle As SldWorks.ModelDoc2
        Dim sheet As SldWorks.Sheet
        Dim sheetpr() As Double
! n2 S6 l3 T8 w0 h$ M! b        swapp = CreateObject("Sldworks.application")

        Dim pathname As String
        pathname = TextBox1.Text         '獲得文件夾路徑
1 f/ t/ }& P" a: }        Dim swpath() As String
        swpath = IO.Directory.GetFiles(pathname, "*.SLDDRW")        '篩選圖紙文件名
        For Each strname As String In swpath       '列出所有圖紙文件名
0 l! A# ?% p* F2 v# L! o7 I            modle = swapp.OpenDoc(strname, 3)      '打開模型
1 A0 Z" r2 e: q- s, s+ n- Z            sheet = modle.GetCurrentSheet()         '獲得當前圖紙
            sheetpr = sheet.GetProperties()        '獲得圖紙屬性
            sheetpr(1) = 12
$ }* r4 u+ p: r, w5 S/ H5 ?9 y            sheetpr(1) = 12
0 O( q! B3 s7 K9 }) a            sheet.SetProperties(sheetpr(0), sheetpr(1), sheetpr(2), sheetpr(3), sheetpr(4), sheetpr(5), sheetpr(6))
            If sheetpr(5) = 210 / 1000 Then
                sheet.SetTemplateName("E:\圖紙格式文件替換工程圖模板時使用\A4替換.slddrt")
8 e' a% `* P+ y, o0 i            ElseIf sheetpr(5) = 420 / 1000 Then
                sheet.SetTemplateName("E:\圖紙格式文件替換工程圖模板時使用\A3替換.slddrt")
            End If
4 k% v0 F) h! x. X6 V: j8 S( B            modle.Save3(1, swerrors, swwarings)
2 o* H2 K7 c6 v, I            swapp.CloseDoc(strname.Substring(InStrRev(strname, "\"), Len(strname) - InStrRev(strname, "\")))
  C/ r  L' ~% K: `. ~2 ?+ ~! `( Q5 B        Next
; |0 @$ _* L$ R0 u2 f& X! hEnd Sub
1 [6 {6 @0 Z& n8 e+ Z$ N
+ q& ?( A" q5 _6 d; A2 m

gaxisjtu

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

zqzwhj111

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

我試試
9 C4 E8 A' L6 i- F' J

zqzwhj111

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

- Z3 l. o7 D/ l  d8 R還是不行
- i) }5 `' S* Q3 @4 V' w

Zhou20202020

057762768008

小豆芽爸爸

頂一下，等待高手