solidworks的VBA問題

dajian1984

我打的程序無法運行,，有沒有懂的人幫我看看,！謝謝,。
1 \1 j& P' j4 {7 x, P- _
Dim swapp As Object
3 S) D8 Y9 P8 q* d% FDim part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
: J: r* o- k6 f% Z' ]Dim pathstr As String
Dim fname(500) As String, fnum As Long
( S  w' F. `$ A2 d% t2 zSub main()
Dim i As Long
* x3 b1 F( k( pDim pathstr0 As String, pathstr1 As String
1 _: ~: `+ e4 V6 N% ~5 ~' _Dim pathstr2 As String, pathstr3 As String, pathstr4 As String, pathstr5 As String
: Q. H8 ]# z0 V3 p9 i( ODim L As Long, L1 As Long
pathstr = InputBox("請輸入需要轉(zhuǎn)的工程圖所在位置")
Call Showfilelist(pathstr)
# @1 j4 Z. K! GSet swapp = Application.SldWorks

# r' w( a2 i+ PFor i = 0 To fnum - 1
; i# h9 ~' E' G5 f3 ppathstr0 = pathstr & "\" & fname(i)

Set part = swapp.OpenDoc6(pathstr0, 3, 0, "", longstatus, longwarnings)

& @  C+ B+ S# g9 |- l1 G  T: `0 h& bL = Len(pathstr0)
& q# u; t' i& o+ D
: H& L3 G- ~1 m3 Apathstr1 = Left(pathstr0, L - 7) & ".DWG"

pathstr2 = Left(pathstr0, L - 7) & ".PDF"
0 Q( p% c& g2 }, |
longstatus = part.SaveAs3(pathstr1, 0, 0)

8 S5 c5 z& U4 B5 Vlongstatus = part.SaveAs3(pathstr2, 0, 0)
6 o7 }" C! X7 l2 P; p3 m! }
Set part = Nothing
+ B8 k, F# A0 K5 @( E* @
: F- m1 i# j; E- H/ ]9 r. vL1 = Len(fname(i))
; [2 I3 g- p0 j2 G
pathstr3 = Left(fname(i), L1 - 7) & "- 圖紙1"
8 e. A( W4 z! G0 X& r6 h! r7 `
( O: `& B" w0 L: C& `' {& L/ npathstr4 = Left(fname(i), L1 - 7) & "- 圖紙2"

pathstr5 = Left(fname(i), L1 - 7) & "- 圖紙3"

swapp.colsedoc pathstr3
1 N* D; c  w' X( s. M; ~
+ Y- ~3 S8 R4 E: }: f: Tswapp.colsedoc pathstr4
/ ^% @; ]( y/ c) D8 e
8 q9 E$ I; T* T: `0 a8 w: T1 Pswapp.colsedoc pathstr5
9 O; [" E& M, b+ R
& _7 ]: l: r' C7 s+ O  V( y* z  DNext i

( F6 K; F9 `0 z' D% b
' e1 e/ K. s+ `1 ]1 `4 sEnd Sub


Private Sub Showfilelist(folderspec As String)


# k) S8 B, N9 [2 @' a& |Dim fs, f, f1, fc, s

" f  l+ a4 K$ `Set fs = CreateObject("scripting,filesystemobject")
# n+ v$ j8 N8 Y' U5 g' \" Z0 A; q
+ M* D+ D7 z" L! V8 mSet f = fs.getfolder(folderspec)

Set fc = f.files
) r5 P$ s' J+ M! t  r8 Y: ~
fnum = 0

For Each fi In fc

7 o7 X6 P: u0 X% [2 [If InStr(f1.Name, "slddrw") > 0 Then

fname(fnum) = f1.Name

fnum = fnum + 1

End If
; c6 q( ~: _0 {; U( V
- h* ^! N+ u3 r1 D% I# j0 T6 I; TNext

7 G  o5 F2 M: V6 k3 rEnd Sub

steve_suich

1. Dim swapp As Object
   
2. Dim part As Object
   5 f3 o- m( k$ j2 w
3. Dim boolstatus As Boolean
   : K# N& O# P; D3 O- m+ B
4. Dim longstatus As Long, longwarnings As Long
   " B0 d$ B9 g! r
5. Dim pathstr As String
   3 ^  p9 S) I: O
6. Dim fname(500) As String, fnum As Long
   ! t8 Q  f4 g( l. m% O3 F  r
7. Sub main()
   
8. Dim i As Long
   
9. Dim pathstr0 As String, pathstr1 As String
   
10. Dim pathstr2 As String, pathstr3 As String, pathstr4 As String, pathstr5 As String
    
11. Dim L As Long, L1 As Long
    1 P4 n. `9 i! b6 [
12. pathstr = InputBox("請輸入需要轉(zhuǎn)換的工程圖所在位置")
    
13. Call Showfilelist(pathstr)
    ) x/ [$ u* w+ G0 y1 `6 [
14. Set swapp = Application.SldWorks
    ! n3 @' m/ T, y; j5 z
15. 
    4 b" r8 ~7 w6 k! g) ^
16. For i = 0 To fnum - 1
    % [* b, P) C6 q& _+ s2 k: C
17. pathstr0 = pathstr & "" & fname(i)
    ; \9 }7 \) L# l5 P+ n/ L
18. 
    
19. Set part = swapp.OpenDoc6(pathstr0, 3, 0, "", longstatus, longwarnings)
    
20. L = Len(pathstr0)
    5 L5 C* Z" y7 S! k1 V. P6 ?" M
21. 
    
22. pathstr1 = Left(pathstr0, L - 7) & ".DWG"
    
23. 
    
24. pathstr2 = Left(pathstr0, L - 7) & ".PDF"
    7 N1 H* {3 E$ M! |; }$ |  z, m
25. 
    
26. longstatus = part.SaveAs3(pathstr1, 0, 0)
    
27. longstatus = part.SaveAs3(pathstr2, 0, 0)
    
28. 
    
29. swapp.CloseDoc pathstr0
    " w: c: B6 _: f1 K! J% e
30. 
    0 W* N5 C2 s: N5 f
31. Next i
    
32. 
    
33. End Sub
    
34. 
    
35. Private Sub Showfilelist(folderspec As String)
    
36. Dim fs, f, f1, fc, s
      W, a5 @' U/ j8 ~5 R
37. 
    
38. Set fs = CreateObject("Scripting.filesystemobject")
    $ w" {4 X' \3 }+ r2 Z
39. 
    
40. Set f = fs.getfolder(folderspec)
    " l' H+ d- \# f
41. 
    
42. Set fc = f.files
    , o* }6 i6 x$ i' O6 Z2 L
43. 
    $ F# U* l( M- @" O
44. fnum = 0
    
45. 
    
46. For Each f1 In fc
    
47. If InStr(UCase(f1.Name), "SLDDRW") > 0 Then
    . j4 k, m) Z5 g# [
48. fname(fnum) = f1.Name
    
49. fnum = fnum + 1
    - P- P# ]) U: I8 |" a1 c# A4 v* p" H  P
50. 
    
51. End If
    6 R! Q5 k  B5 ?
52. 
    
53. Next
    
54. 
    
55. End Sub
    

復(fù)制代碼

  |2 N$ D) E+ s" D$ p1 G

steve_suich

5 ]" w% L! k# l9 l0 o
swapp.colsedoc 應(yīng)為swapp.closedoc
( U2 n) Z8 C# J( F5 t6 X/ i1 uScripting,filesystemobject應(yīng)為Scripting.filesystemobject
$ Z$ n8 J) }' S- \* r( P判斷slddrw時,，應(yīng)先全部轉(zhuǎn)換為大寫,，再進(jìn)行判斷。
9 k7 d$ x, K8 |& J

dajian1984

steve_suich 發(fā)表于 2023-4-25 09:07
6 [9 ^0 N4 r) T. s! sswapp.colsedoc 應(yīng)為swapp.closedoc
+ u* u! t1 t4 WScripting,filesystemobject應(yīng)為Scripting.filesystemobject
) P. G8 W% [) K' G7 e8 Q) ?判斷sld ...

* ]& F- b5 p1 e$ s  |9 n8 y謝謝,。
  A5 O, p( J( N5 a& A: m