论坛 › SOLIDWORKS › 批量替换工程图模板程序问题

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
有试过把程序里面的路径和模板改为英文的吗

我试试

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

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

还是不行

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

057762768008

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

顶一下，等待高手

查看完整版本: 批量替换工程图模板程序问题