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

zqzwhj111 · 发表于 2020-4-12 11:34:02

本帖最后由 zqzwhj111 于 2020-4-12 11:38 编辑

有大佬知道这个程序哪里出问题了吗，替换不了，用visual studio写的，VB语言，SolidWorks版本是2012的

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
      swapp = CreateObject("Sldworks.application")

      Dim pathname As String
      pathname = TextBox1.Text       '获得文件夹路径
      Dim swpath() As String
      swpath = IO.Directory.GetFiles(pathname, "*.SLDDRW")       '筛选图纸文件名
      For Each strname As String In swpath    '列出所有图纸文件名
         modle = swapp.OpenDoc(strname, 3)    '打开模型
         sheet = modle.GetCurrentSheet()       '获得当前图纸
         sheetpr = sheet.GetProperties()       '获得图纸属性
         sheetpr(1) = 12
         sheetpr(1) = 12
         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")
         ElseIf sheetpr(5) = 420 / 1000 Then
            sheet.SetTemplateName("E:\图纸格式文件替换工程图模板时使用\A3替换.slddrt")
         End If
         modle.Save3(1, swerrors, swwarings)
         swapp.CloseDoc(strname.Substring(InStrRev(strname, "\"), Len(strname) - InStrRev(strname, "\")))
      Next
End Sub

gaxisjtu · 发表于 2020-4-12 11:38:36

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

zqzwhj111 · 发表于 2020-4-12 11:39:11

gaxisjtu 发表于 2020-4-12 11:38
1 B0 @5 a$ c) @1 y3 y8 i3 T4 b有试过把程序里面的路径和模板改为英文的吗

我试试

zqzwhj111 · 发表于 2020-4-12 11:41:56

gaxisjtu 发表于 2020-4-12 11:382 e" Z& x3 O; V
有试过把程序里面的路径和模板改为英文的吗

还是不行

Zhou20202020 · 发表于 2020-7-13 11:11:14

057762768008

小豆芽爸爸 · 发表于 2021-6-24 13:43:54

顶一下，等待高手

		自动登录	找回密码
密码			注册会员