solidworks的VBA問(wèn)題

dajian1984

我打的程序無(wú)法運(yùn)行，有沒(méi)有懂的人幫我看看！謝謝。
9 ]$ v; A/ P' X  d! @! ^8 X. x
Dim swapp As Object
Dim part As Object
) z9 O% q# l* t+ DDim boolstatus As Boolean
# Q, F' K0 p' L  t; t: b( BDim longstatus As Long, longwarnings As Long
/ T& C: g7 N8 gDim pathstr As String
Dim fname(500) As String, fnum As Long
Sub main()
Dim i As Long
Dim pathstr0 As String, pathstr1 As String
9 ^! z; `$ g1 m! |Dim pathstr2 As String, pathstr3 As String, pathstr4 As String, pathstr5 As String
Dim L As Long, L1 As Long
pathstr = InputBox("請(qǐng)輸入需要轉(zhuǎn)的工程圖所在位置")
# s( E. [( u, e/ I* L- PCall Showfilelist(pathstr)
Set swapp = Application.SldWorks

For i = 0 To fnum - 1
9 Z* G  Q2 ?+ I. f  _3 Dpathstr0 = pathstr & "\" & fname(i)

4 ?$ _- N) Y! J4 c. s. rSet part = swapp.OpenDoc6(pathstr0, 3, 0, "", longstatus, longwarnings)
7 v, ~) Y2 M5 ^
5 h! x9 T) }& {$ w7 K7 [" y$ u! FL = Len(pathstr0)

8 f+ C8 Z. S+ V/ P2 R' W# U# Z, Upathstr1 = Left(pathstr0, L - 7) & ".DWG"
. j5 y0 K' ]3 b' ]
; ^  V- G* x, epathstr2 = Left(pathstr0, L - 7) & ".PDF"

longstatus = part.SaveAs3(pathstr1, 0, 0)
0 ^2 H: S( j7 h9 o7 v9 T/ A" f
longstatus = part.SaveAs3(pathstr2, 0, 0)
( M  }5 s3 t/ a8 I$ p( d  r
) @+ ?" L& P! Y* J7 uSet part = Nothing

8 \7 D- d, l. a, F; vL1 = Len(fname(i))

pathstr3 = Left(fname(i), L1 - 7) & "- 圖紙1"
) E2 f! K7 U" d" x) ~
pathstr4 = Left(fname(i), L1 - 7) & "- 圖紙2"

  }4 C& P+ a5 Q8 `4 Qpathstr5 = Left(fname(i), L1 - 7) & "- 圖紙3"

# Q  |$ O. v1 d7 m8 X8 eswapp.colsedoc pathstr3
5 }& E% e3 S# ]. d1 d
$ `+ I; k2 o0 y- t  [5 R4 z* Yswapp.colsedoc pathstr4

swapp.colsedoc pathstr5

- n! _& p5 [6 X6 A$ pNext i

$ c& W7 {5 g/ P( @3 ]( c
End Sub

# J# E; A; l0 E8 c; B6 H
/ k9 A# G, w- o5 J" Y7 |Private Sub Showfilelist(folderspec As String)

" F" Q4 a8 [+ u. M- |. d
* e5 g  e' ~1 QDim fs, f, f1, fc, s
8 R  [9 s* R/ i' K% B$ \
- |, w' y; h3 mSet fs = CreateObject("scripting,filesystemobject")
( j. X5 h- l+ ?" [' ?( u8 h
% _3 i- H% p2 c* dSet f = fs.getfolder(folderspec)
3 c6 [2 u' Q6 v( u5 ^. k; W
Set fc = f.files
. E1 J3 F+ E5 i0 Y( x; j# d
1 ~" y3 E& k; P* U& c% G- ~fnum = 0

, u$ t  P- {/ d' O7 c4 H1 SFor Each fi In fc

If InStr(f1.Name, "slddrw") > 0 Then
) Q; f1 c8 l7 `% s
% ~! V2 `8 B' j: Y) jfname(fnum) = f1.Name
0 I% _* w1 j4 W1 G
fnum = fnum + 1

% C& H# @0 Z. I$ A6 u# i# jEnd If

Next

End Sub

steve_suich

1. Dim swapp As Object
   
2. Dim part As Object
   ) Y. U* P+ V& ?0 F+ X
3. Dim boolstatus As Boolean
   
4. Dim longstatus As Long, longwarnings As Long
   ' X0 \1 w8 p* j6 p
5. Dim pathstr As String
   
6. Dim fname(500) As String, fnum As Long
   
7. Sub main()
   
8. Dim i As Long
   
9. Dim pathstr0 As String, pathstr1 As String
   2 s4 Z3 r) v8 @' U" F7 T
10. Dim pathstr2 As String, pathstr3 As String, pathstr4 As String, pathstr5 As String
    
11. Dim L As Long, L1 As Long
    
12. pathstr = InputBox("請(qǐng)輸入需要轉(zhuǎn)換的工程圖所在位置")
    
13. Call Showfilelist(pathstr)
    
14. Set swapp = Application.SldWorks
    6 Z5 l& e( q7 ~3 `+ A+ T5 A
15. 
    
16. For i = 0 To fnum - 1
    
17. pathstr0 = pathstr & "" & fname(i)
    
18. 
    , L4 A5 g+ V- X6 k) H0 {
19. Set part = swapp.OpenDoc6(pathstr0, 3, 0, "", longstatus, longwarnings)
    ( f+ Z  c8 @7 U/ T
20. L = Len(pathstr0)
    ) c  z0 I0 z" J* Q  s
21. 
    
22. pathstr1 = Left(pathstr0, L - 7) & ".DWG"
    ; [9 u0 L; X0 |+ s0 D6 v( {
23. 
    
24. pathstr2 = Left(pathstr0, L - 7) & ".PDF"
    
25. 
    9 H+ I& d7 r2 o+ }
26. longstatus = part.SaveAs3(pathstr1, 0, 0)
    
27. longstatus = part.SaveAs3(pathstr2, 0, 0)
    
28. 
    - B+ o. H6 w9 J+ F) d+ ~, p6 x+ z( ]
29. swapp.CloseDoc pathstr0
    
30. 
    
31. Next i
    
32. 
    ) P- ^. y/ x0 b. E, j
33. End Sub
    8 A% M/ k' y9 F9 C) i
34. 
    
35. Private Sub Showfilelist(folderspec As String)
    / E, o! W' ]8 ?3 D+ |
36. Dim fs, f, f1, fc, s
    - R, _* j8 g/ f7 R6 y4 Q
37. 
    
38. Set fs = CreateObject("Scripting.filesystemobject")
    3 b# ]7 n6 N4 i% w' t
39. 
    
40. Set f = fs.getfolder(folderspec)
    ' h# l8 Q: r/ E5 @: n
41. 
    
42. Set fc = f.files
    4 s& l# q  _. K3 ~9 I" ~8 q+ |' l
43. 
    . Y% t+ I4 Q. i; J4 \9 h
44. fnum = 0
    5 r6 T$ i. K$ N3 r0 y
45. 
    
46. For Each f1 In fc
    1 I+ S* Q5 Y8 j1 L5 ~: U1 \
47. If InStr(UCase(f1.Name), "SLDDRW") > 0 Then
    ! c' W! r8 i; @2 V/ o6 O0 T
48. fname(fnum) = f1.Name
    ( X: |1 V' c9 G, ^3 J: q
49. fnum = fnum + 1
    
50. 
    % t9 @1 r( V/ {0 {; w; U/ S/ M! j. e) s
51. End If
    
52. 
    3 B5 ]( H; v) s8 G+ Z9 [
53. Next
    ( w/ _4 a2 L" v+ G$ m& S
54. 
    
55. End Sub
    

復(fù)制代碼

) f3 P" y1 a7 Q6 j0 ~+ @

steve_suich

swapp.colsedoc 應(yīng)為swapp.closedoc
& a% Z6 c& ]0 P0 W; t: h* {9 h$ |Scripting,filesystemobject應(yīng)為Scripting.filesystemobject
判斷slddrw時(shí)，應(yīng)先全部轉(zhuǎn)換為大寫(xiě)，再進(jìn)行判斷。

dajian1984

steve_suich 發(fā)表于 2023-4-25 09:07
swapp.colsedoc 應(yīng)為swapp.closedoc
Scripting,filesystemobject應(yīng)為Scripting.filesystemobject
判斷sld ...

. f- {& c" l: k8 y& g- _3 N# u! c4 X: v謝謝。