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

zqzwhj111

9 o& P0 d$ A0 [2 ^8 c5 F
有大佬知道这个程序哪里出问题了吗，替换不了，用visual studio写的，VB语言，SolidWorks版本是2012的
8 f# `5 U( y9 O! A2 j9 v
" _4 ~$ I) v; i% V2 W* d1 ?9 f* e  nPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim swapp As SldWorks.SldWorks
. F3 N7 D# e: W        Dim modle As SldWorks.ModelDoc2
        Dim sheet As SldWorks.Sheet
        Dim sheetpr() As Double
        swapp = CreateObject("Sldworks.application")
9 P) w9 @( Q* p3 a4 Z. L
        Dim pathname As String
        pathname = TextBox1.Text         '获得文件夹路径
        Dim swpath() As String
        swpath = IO.Directory.GetFiles(pathname, "*.SLDDRW")        '筛选图纸文件名
1 n. P3 B( C+ e7 \$ ^- |0 t        For Each strname As String In swpath       '列出所有图纸文件名
            modle = swapp.OpenDoc(strname, 3)      '打开模型
* w! i8 J1 s8 I( t            sheet = modle.GetCurrentSheet()         '获得当前图纸
            sheetpr = sheet.GetProperties()        '获得图纸属性
  Z, t  ]; q" k0 P) ]            sheetpr(1) = 12
            sheetpr(1) = 12
' I3 K& d& t5 M; Y            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")
9 Q7 o" |' B1 }            ElseIf sheetpr(5) = 420 / 1000 Then
5 X0 I/ \: Z6 y: A- b                sheet.SetTemplateName("E:\图纸格式文件替换工程图模板时使用\A3替换.slddrt")
            End If
6 ^0 S- w3 C- e, e$ h/ V            modle.Save3(1, swerrors, swwarings)
            swapp.CloseDoc(strname.Substring(InStrRev(strname, "\"), Len(strname) - InStrRev(strname, "\")))
        Next
, C4 \: F& I: |End Sub

gaxisjtu

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

zqzwhj111

gaxisjtu 发表于 2020-4-12 11:38
7 H* k6 ^' ~6 g5 G* ]' m有试过把程序里面的路径和模板改为英文的吗

2 w- z) D5 ~% }' _我试试
- W4 B" a/ S- L' m% h# v6 F* s9 \

zqzwhj111

gaxisjtu 发表于 2020-4-12 11:38
# a+ t1 u5 [7 V8 j有试过把程序里面的路径和模板改为英文的吗

( Q" E! N1 Y0 h  g还是不行

Zhou20202020

057762768008
* H* G2 e) ~: J# O4 v! V/ X& j

小豆芽爸爸

顶一下，等待高手