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

zqzwhj111

8 {6 l5 ^2 i& v* J: ~# m5 ] 有大佬知道這個程序哪里出問題了嗎,，替換不了,，用visual studio寫的，VB語言,，SolidWorks版本是2012的
/ D! C- l2 `$ Y4 q
4 W% y; h" H3 lPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
! K- {* n% @2 \8 s        Dim swapp As SldWorks.SldWorks
% I4 ?9 ~: I- |$ p1 f* O        Dim modle As SldWorks.ModelDoc2
        Dim sheet As SldWorks.Sheet
2 U" W1 d9 F4 ]6 o        Dim sheetpr() As Double
        swapp = CreateObject("Sldworks.application")
* F, G9 K' {; ?' R
        Dim pathname As String
4 D$ F" _1 j9 g5 ~: N# J        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)      '打開模型
# I. P- n( U1 [5 _( p- Q            sheet = modle.GetCurrentSheet()         '獲得當(dāng)前圖紙
            sheetpr = sheet.GetProperties()        '獲得圖紙屬性
0 l% z* `" R0 c& T: h            sheetpr(1) = 12
            sheetpr(1) = 12
! o3 I0 ?1 {# X- h9 T2 V4 [            sheet.SetProperties(sheetpr(0), sheetpr(1), sheetpr(2), sheetpr(3), sheetpr(4), sheetpr(5), sheetpr(6))
            If sheetpr(5) = 210 / 1000 Then
5 U/ Y4 h2 q$ ^6 o  `( V                sheet.SetTemplateName("E:\圖紙格式文件替換工程圖模板時使用\A4替換.slddrt")
            ElseIf sheetpr(5) = 420 / 1000 Then
" K, {6 L8 B" m                sheet.SetTemplateName("E:\圖紙格式文件替換工程圖模板時使用\A3替換.slddrt")
            End If
+ ?5 P  P1 j- c, [            modle.Save3(1, swerrors, swwarings)
/ c4 h$ n7 J0 W            swapp.CloseDoc(strname.Substring(InStrRev(strname, "\"), Len(strname) - InStrRev(strname, "\")))
' K! M3 E! M# C  |9 U1 O        Next
End Sub

+ O: b; \2 [$ b" z& U5 t

gaxisjtu

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

zqzwhj111

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

我試試
5 Y  M! S# P2 @1 `' X9 n& B

zqzwhj111

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

還是不行

Zhou20202020

057762768008

小豆芽爸爸

頂一下,，等待高手