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

zqzwhj111

9 \5 I# J0 c: m6 L
有大佬知道這個程序哪里出問題了嗎，替換不了，用visual studio寫的，VB語言，SolidWorks版本是2012的
0 k3 Y& x) Z: e0 o3 x: L
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
' \: |4 e" h. t& f8 ^* s. @6 O        Dim sheetpr() As Double
- B9 T0 n7 s7 n6 I% v- J4 d        swapp = CreateObject("Sldworks.application")

: t! \  s( |$ }6 E        Dim pathname As String
        pathname = TextBox1.Text         '獲得文件夾路徑
3 l/ U' _; ?5 M! l  q        Dim swpath() As String
7 p6 T7 A8 f3 g' n        swpath = IO.Directory.GetFiles(pathname, "*.SLDDRW")        '篩選圖紙文件名
        For Each strname As String In swpath       '列出所有圖紙文件名
8 _+ ]# e  r; F7 P            modle = swapp.OpenDoc(strname, 3)      '打開模型
            sheet = modle.GetCurrentSheet()         '獲得當前圖紙
+ N$ _- J' X3 h4 ]9 q            sheetpr = sheet.GetProperties()        '獲得圖紙屬性
8 f. q. q3 P: e  O: [) Q5 K  W            sheetpr(1) = 12
1 w3 d* K4 |2 Q/ ?# P& s. p& d; X            sheetpr(1) = 12
            sheet.SetProperties(sheetpr(0), sheetpr(1), sheetpr(2), sheetpr(3), sheetpr(4), sheetpr(5), sheetpr(6))
" M% t4 t6 R% u7 b/ S$ o4 m8 W            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)
! B0 w) c1 @% h            swapp.CloseDoc(strname.Substring(InStrRev(strname, "\"), Len(strname) - InStrRev(strname, "\")))
  p' C" T  g2 e        Next
End Sub

gaxisjtu

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

zqzwhj111

gaxisjtu 發表于 2020-4-12 11:38
5 v# f7 G5 ?4 U  {* ~" `有試過把程序里面的路徑和模板改為英文的嗎

; \+ d! L3 i  B  B我試試

zqzwhj111

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

# d# N9 x! u0 a還是不行
' p( p  u0 v7 C% a# Z

Zhou20202020

057762768008
9 I4 J! b# q) l$ L6 ^  K

小豆芽爸爸

頂一下，等待高手