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

zqzwhj111

4 v+ s; N/ b# F% p3 O- Z% j5 j7 X
有大佬知道這個程序哪里出問題了嗎,，替換不了,，用visual studio寫的,，VB語言,，SolidWorks版本是2012的

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
5 P; V% D. G/ t) F4 g$ |        Dim swapp As SldWorks.SldWorks
% m% d2 N! H2 \        Dim modle As SldWorks.ModelDoc2
# e: D: l2 t/ i( a( Q5 P# c5 V' G        Dim sheet As SldWorks.Sheet
! V6 s! s  }% K& K2 p        Dim sheetpr() As Double
1 Q6 Z  l/ x; _4 Z2 X5 g: S        swapp = CreateObject("Sldworks.application")

        Dim pathname As String
' ~/ @  J' [/ R% X8 D5 E        pathname = TextBox1.Text         '獲得文件夾路徑
        Dim swpath() As String
$ b" @7 f5 F  n/ f        swpath = IO.Directory.GetFiles(pathname, "*.SLDDRW")        '篩選圖紙文件名
5 {1 {' f# {: G: }5 @! P) V# O- _4 g        For Each strname As String In swpath       '列出所有圖紙文件名
, k$ H  v, s2 V+ d, N- E& O& c            modle = swapp.OpenDoc(strname, 3)      '打開模型
            sheet = modle.GetCurrentSheet()         '獲得當前圖紙
            sheetpr = sheet.GetProperties()        '獲得圖紙屬性
            sheetpr(1) = 12
            sheetpr(1) = 12
1 I: O1 R3 H; |            sheet.SetProperties(sheetpr(0), sheetpr(1), sheetpr(2), sheetpr(3), sheetpr(4), sheetpr(5), sheetpr(6))
            If sheetpr(5) = 210 / 1000 Then
" ?: ?+ f# C. T                sheet.SetTemplateName("E:\圖紙格式文件替換工程圖模板時使用\A4替換.slddrt")
/ x6 x' ^" L* G4 C4 k5 j7 l6 Y            ElseIf sheetpr(5) = 420 / 1000 Then
, ~. f; W# |4 B, H+ w* V7 F  X                sheet.SetTemplateName("E:\圖紙格式文件替換工程圖模板時使用\A3替換.slddrt")
: U: c/ t5 B& \            End If
            modle.Save3(1, swerrors, swwarings)
            swapp.CloseDoc(strname.Substring(InStrRev(strname, "\"), Len(strname) - InStrRev(strname, "\")))
: [5 l9 g1 I* M3 Z        Next
$ N' n' g5 S# W9 s! FEnd Sub

" [! Q# a5 u" s! m

gaxisjtu

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

zqzwhj111

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

4 P- }' j3 U+ j9 p1 {6 q- X) Q我試試
( b6 `" D+ y" [& i* z0 b

zqzwhj111

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

還是不行

Zhou20202020

057762768008

小豆芽爸爸

頂一下,，等待高手