批量替换工程图模板程序问题

zqzwhj111

7 C5 A( H; h! _* F 有大佬知道这个程序哪里出问题了吗，替换不了，用visual studio写的，VB语言，SolidWorks版本是2012的
5 @* e2 l% N; K+ M% C, W
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim swapp As SldWorks.SldWorks
# C! E& a0 i" Q( a9 o        Dim modle As SldWorks.ModelDoc2
        Dim sheet As SldWorks.Sheet
        Dim sheetpr() As Double
        swapp = CreateObject("Sldworks.application")

/ I/ g$ O1 t6 r2 ^; [        Dim pathname As String
        pathname = TextBox1.Text         '获得文件夹路径
        Dim swpath() As String
        swpath = IO.Directory.GetFiles(pathname, "*.SLDDRW")        '筛选图纸文件名
$ w: q- S) E! Y" k/ N. h        For Each strname As String In swpath       '列出所有图纸文件名
* p* A& Z7 ]7 r' e4 l* C3 d* G            modle = swapp.OpenDoc(strname, 3)      '打开模型
            sheet = modle.GetCurrentSheet()         '获得当前图纸
            sheetpr = sheet.GetProperties()        '获得图纸属性
            sheetpr(1) = 12
, T& ?; g6 M7 Y) t: L5 b! O            sheetpr(1) = 12
5 N: E. f3 B. y: ]            sheet.SetProperties(sheetpr(0), sheetpr(1), sheetpr(2), sheetpr(3), sheetpr(4), sheetpr(5), sheetpr(6))
' b7 ]* s! e$ L/ o: {            If sheetpr(5) = 210 / 1000 Then
                sheet.SetTemplateName("E:\图纸格式文件替换工程图模板时使用\A4替换.slddrt")
            ElseIf sheetpr(5) = 420 / 1000 Then
                sheet.SetTemplateName("E:\图纸格式文件替换工程图模板时使用\A3替换.slddrt")
            End If
) P3 U) D5 V4 ~            modle.Save3(1, swerrors, swwarings)
            swapp.CloseDoc(strname.Substring(InStrRev(strname, "\"), Len(strname) - InStrRev(strname, "\")))
2 Q1 U, _, L* \        Next
, [/ g) O+ Q" x! R; z% `% ~End Sub

: P# Z4 p7 z# t, ^& ?

gaxisjtu

有试过把程序里面的路径和模板改为英文的吗

zqzwhj111

gaxisjtu 发表于 2020-4-12 11:38
有试过把程序里面的路径和模板改为英文的吗

8 e) @7 M* h# z我试试

zqzwhj111

gaxisjtu 发表于 2020-4-12 11:38
( R9 y; g: P2 K, @4 w9 {# w2 Z( B有试过把程序里面的路径和模板改为英文的吗

还是不行
9 t0 N6 k3 j" ?) ^0 W

Zhou20202020

057762768008
6 X* \5 Q$ F- T5 m' d) r2 d

小豆芽爸爸

顶一下，等待高手