solidworks 批量執(zhí)行宏

醉生夢

各位大大好，在網(wǎng)上找到一個可以批量打開SW零件的宏，代碼如下：
3 m4 S6 g6 ]/ m- `! }( k  J
; j' y( Z' B* C  Z4 XSub Test()
$ H  U/ ]6 s9 ~. J$ Z6 [  ySet swApp = Application.SldWorks
+ I, x( W# W% O8 }  e+ _PartPath = "D:\Project\" '設(shè)定目錄
! l( Y5 g& y, APartFileName = Dir(PartPath & "*.sldprt") '搜尋首個零件檔案名稱
Do Until PartFileName = "" '直至搜尋到空值
Set Part = swApp.OpenDoc(PartPath & PartFileName, 1) '開啟零件
. }: _1 E# U5 v5 F4 V/ @'加入所需語句
'.
'.
( h. r. G( _( O+ Y9 s6 a'.
3 j; U# K) j: M* H4 z  {* t'.
$ p" V. g8 G  E( H  r( i; }! dPart.Save '保存
4 f6 h+ a* X: D6 G5 UswApp.CloseDoc (PartFileName) '關(guān)閉零件
, a2 G  r( r7 F3 m7 D% \PartFileName = Dir '搜尋下一個零件檔案名稱
Loop '循環(huán)搜尋
End Sub
1 M5 f( S" K9 m4 l
( M2 z: Y* `# ?4 S可是卻只能打開零件，裝配體和工程圖就不能打開了，哪位大大可以幫忙改一下，使其可以打開文件夾中的SW所有的三種文件，在此拜謝�。�！

工人師_OgIOQ

勸你到三維網(wǎng)和開思找，那里有幾位研究宏的大神。
, F0 `; O' m# ^4 j) e還有為什么要批量打開零件文件，屏幕能裝的下嗎

魍者歸來

從第三行開始，每行的part樓主沒看到么？替換成工程圖和裝配體就好。不知道怎么敲代碼就自己錄制宏，看一下就明白了，VBA很簡單的

未來第一站

論壇solidworks專家級兩位樓上大俠到齊了

footleft

這個難道不是圖中圈住的改為"slddrw"和"sldsam"嗎？
3 c. A; `& t) Y" X4 I0 U

醉生夢

工人師_OgIOQ 發(fā)表于 2017-3-1 09:10
勸你到三維網(wǎng)和開思找，那里有幾位研究宏的大神。
( j+ X# ~; O4 T4 ^1 B& C還有為什么要批量打開零件文件，屏幕能裝的下嗎

謝謝你
  批量打開的用處是加入其他錄制的宏，可以執(zhí)行批量操作，提高工作效率
8 ^3 x$ F1 \+ P8 D: k8 k

醉生夢

魍者歸來 發(fā)表于 2017-3-1 09:37
$ _! G1 O: Q4 W從第三行開始，每行的part樓主沒看到么？替換成工程圖和裝配體就好。不知道怎么敲代碼就自己錄制宏，看一下 ...

& B- B0 w. {$ ?: e. k3 l/ B/ `那如何才能將打開三種文件的代碼整合到一個宏里面？望大俠指教

醉生夢

footleft 發(fā)表于 2017-3-1 09:50
- C0 f" I7 I) h6 L! x0 H5 f這個難道不是圖中圈住的改為"slddrw"和"sldsam"嗎？

  P2 r! {% @/ ]6 @0 H' a只是更改這個還不行的，要配合著更改下面的那 1    分別對應(yīng)1  2  3
  但是我想能不能將打開三種文件的代碼整合到同一個宏中

ryouss

用 Select Case 做篩選循環(huán),
) Q" s) Q7 U$ e& V/ w不過如下宏只是做零件,裝配件及工程圖的叫出再關(guān)閉,沒實質(zhì)意義.
1 f6 i1 o6 j- x% k! t
$ `3 X$ c( Q. ?( V, i4 m
* l) q& Z/ m0 g. ^9 q! x6 S

1. '
   : V6 v2 V3 g3 ^1 N# R( I4 q" X
2. ' 在某文件路徑下批量開零件,裝配件及工程圖
   # k+ b; x' D! `2 t  C7 g
3. ' sc liang 2017/3/4
   ' d' z) z0 A% q; u' a6 O8 d7 `) N
4. ' 測試版 2012 sp4
   % k$ a; H* h( I8 X( e0 E+ q
5. '
   $ x) |7 h  Q9 A3 N' M/ d, b
6. Dim nErrors          As Long
   
7. Dim nWarnings        As Long
   
8. 
   
9. Sub Test()
   3 Y; `  }: w6 r- A) r7 }2 u8 w
10.     Set swApp = Application.SldWorks
    
11.     Set swModel = swApp.ActiveDoc
    2 a2 Q* A) j% c7 {% z" s
12.     path = "D:\Project"   '存檔路徑
    " x$ _; P& v9 j( N% f2 m
13.     sFileName = Dir(path & "*.sld*") '取出SW文件
    , g2 y( q/ N" w7 J5 c
14. '循環(huán)開檔
    " Q7 m- K. O. ^% N2 N/ V4 \
15.      Do Until sFileName = ""
    ; O# y( \0 P: e" r/ n3 ^
16.         Type_ = Right(sFileName, 3)    '取得SW文件擴展名後三位
    ; L' ?. E+ V# p3 n
17.         Select Case Type_ '判定SW文件型式
    4 l9 m4 t7 b5 b3 i0 b
18. '開零件檔並存檔
    
19.             Case "PRT"
    
20.                Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    + u2 k# V( ~+ x+ y, Q& Q0 O1 q
21.                Set Part = swApp.ActiveDoc
    
22.                Part.Save
    9 y& q1 f2 I- E- N: q
23. '開組件檔
    
24.             Case "ASM"
    # o/ w% R" r6 j# a
25.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
26. '開工程圖              
    7 A$ j6 ]* e8 A& F7 A9 a; @
27.             Case "DRW"
    $ r6 f) G  |1 V! j6 G
28.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    + b' _* n; q5 f: X1 D: n9 }% I
29.                   
    
30.         End Select
    # W+ H4 E6 p# ^
31.         Set swModel = Nothing
    
32.         swApp.CloseDoc (sFileName)
    ) c# \' d+ G8 E8 x2 d& n/ y; E
33.         sFileName = Dir   '同路徑取出下個SW文件檔名
    
34.     Loop
    
35. End Sub

復(fù)制代碼

魍者歸來

楊猛0230 發(fā)表于 2017-3-3 10:45
那如何才能將打開三種文件的代碼整合到一個宏里面？望大俠指教

- ~, o9 D  H- H/ x! H方案1：If…Then…Else 語句
方案2：Select…Case 語句
方案3：Do…Loop 語句
方案4：For…Next 語句
' ?9 E0 x7 H% L/ u1 @, o1 A7 a方案5：While…Wend 語句
* x8 P; O8 I6 @" b) N# F( b) @  \方案6：……
( I8 g, }8 g% S, l! k……
. d  x0 R) c3 h