solidworks 批量執(zhí)行宏

醉生夢

各位大大好，在網(wǎng)上找到一個可以批量打開SW零件的宏，代碼如下：

) p8 ]9 p' c. Y  lSub Test()
% i( S/ K8 Z6 o) Z' l& @" oSet swApp = Application.SldWorks
3 V6 j" {1 G7 oPartPath = "D:\Project\" '設定目錄
PartFileName = Dir(PartPath & "*.sldprt") '搜尋首個零件檔案名稱
( ]6 t+ W4 m) ]- x2 SDo Until PartFileName = "" '直至搜尋到空值
Set Part = swApp.OpenDoc(PartPath & PartFileName, 1) '開啟零件
3 P0 X# ^5 y0 k'加入所需語句
'.
$ C8 A# |1 ~/ q7 _% P0 B$ m( j'.
9 d8 a; g; m) Q* n" P'.
& M! c9 H' U7 _, k$ B& C- d0 q+ C'.
. d, T2 M( ]8 {- A' {! mPart.Save '保存
0 [9 ~. @9 A8 U4 M1 e3 {2 sswApp.CloseDoc (PartFileName) '關閉零件
, X* l* O; e. q3 N( z1 `PartFileName = Dir '搜尋下一個零件檔案名稱
3 a. Y8 t2 F+ Y8 v" h% P( YLoop '循環(huán)搜尋
4 `/ B& O9 e6 P* \7 M6 i. W0 AEnd Sub
& H5 F3 c  u+ e6 Q5 u+ r; {9 Y
可是卻只能打開零件，裝配體和工程圖就不能打開了，哪位大大可以幫忙改一下，使其可以打開文件夾中的SW所有的三種文件，在此拜謝！！！
2 ]8 e2 r2 V" e5 ]6 y) k8 m

工人師_OgIOQ

勸你到三維網(wǎng)和開思找，那里有幾位研究宏的大神。
/ n7 s; I0 Y2 Y2 }* L  @. m! ]2 P還有為什么要批量打開零件文件，屏幕能裝的下嗎

魍者歸來

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

未來第一站

9 O! }# k% K2 q5 E8 N+ v
論壇solidworks專家級兩位樓上大俠到齊了

footleft

這個難道不是圖中圈住的改為"slddrw"和"sldsam"嗎？

醉生夢

工人師_OgIOQ 發(fā)表于 2017-3-1 09:10
勸你到三維網(wǎng)和開思找，那里有幾位研究宏的大神。
" j& T8 z& k/ g還有為什么要批量打開零件文件，屏幕能裝的下嗎

謝謝你
: R1 r8 q3 c9 M: K  批量打開的用處是加入其他錄制的宏，可以執(zhí)行批量操作，提高工作效率
; ]6 I* Q3 B8 w, l

醉生夢

魍者歸來 發(fā)表于 2017-3-1 09:37
) a0 Q/ C8 Q3 q! _7 m% M$ j( P從第三行開始，每行的part樓主沒看到么？替換成工程圖和裝配體就好。不知道怎么敲代碼就自己錄制宏，看一下 ...

那如何才能將打開三種文件的代碼整合到一個宏里面？望大俠指教

醉生夢

footleft 發(fā)表于 2017-3-1 09:50
- E% |( B! J5 Q! l5 u  O這個難道不是圖中圈住的改為"slddrw"和"sldsam"嗎？

( S+ p9 Z$ q  l$ ?. F8 @只是更改這個還不行的，要配合著更改下面的那 1    分別對應1  2  3
, i, U6 o0 W. @" z- j  但是我想能不能將打開三種文件的代碼整合到同一個宏中
, O  X: I; U( e: V

ryouss

* S8 ?! R& R( h! a& t" [& I用 Select Case 做篩選循環(huán),
不過如下宏只是做零件,裝配件及工程圖的叫出再關閉,沒實質(zhì)意義.
' n0 f: @& E& p

0 x) ~, G" i4 N" A
6 F# x5 m; T1 T  B# ]- m

1. '
   8 r; N& Q+ E/ X# T" `8 F7 a# v
2. ' 在某文件路徑下批量開零件,裝配件及工程圖
   % a0 e2 M  L9 _% b+ ], s
3. ' sc liang 2017/3/4
   1 _" @4 `# J* o) y. v5 f4 d
4. ' 測試版 2012 sp4
   " l2 ]  r5 p/ K( z$ i* G( i$ m7 f
5. '
   
6. Dim nErrors          As Long
   
7. Dim nWarnings        As Long
   % w5 Y+ l1 R. t6 ]
8. 
   
9. Sub Test()
   / O6 Y2 i9 y0 Q( {0 {
10.     Set swApp = Application.SldWorks
    * }% O: C) _! M+ T7 I6 n
11.     Set swModel = swApp.ActiveDoc
    
12.     path = "D:\Project"   '存檔路徑
    
13.     sFileName = Dir(path & "*.sld*") '取出SW文件
    ! M( k; w! E8 q: q7 G9 R, ?
14. '循環(huán)開檔
    , L3 O. ~; y- e' S- b
15.      Do Until sFileName = ""
    6 w& x# m* [# i6 U$ i
16.         Type_ = Right(sFileName, 3)    '取得SW文件擴展名後三位
    2 g0 o. n* J: T# h
17.         Select Case Type_ '判定SW文件型式
    3 q2 i' [% {: D
18. '開零件檔並存檔
      @/ _7 M5 U" Q8 ?6 A3 F
19.             Case "PRT"
    
20.                Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
21.                Set Part = swApp.ActiveDoc
    3 o; a0 F0 d+ |2 f; [
22.                Part.Save
    + G9 w7 Q4 C, c7 n' l! J
23. '開組件檔
    
24.             Case "ASM"
    + R/ B1 k5 h* |
25.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    % S& c2 s7 H- w# N2 L) n  Y2 s
26. '開工程圖              
    1 g' P9 w4 ~7 Y# B8 g5 X
27.             Case "DRW"
    5 I3 q: {6 G& p! y
28.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
29.                   
    7 H3 R* o! ]$ P9 s: W
30.         End Select
    
31.         Set swModel = Nothing
    5 L/ e8 D9 P# _1 N5 G
32.         swApp.CloseDoc (sFileName)
    
33.         sFileName = Dir   '同路徑取出下個SW文件檔名
    : Y) j6 \" ]" o* u3 `
34.     Loop
    : O. e! Z$ U0 F4 |4 [  I
35. End Sub

復制代碼

魍者歸來

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

0 J0 L# B0 b& S9 V/ P6 |方案1：If…Then…Else 語句
5 i) Q7 T0 L! d! `# X方案2：Select…Case 語句
方案3：Do…Loop 語句
方案4：For…Next 語句
方案5：While…Wend 語句
方案6：……
……

& D" H% D. d. ?+ Z7 Q9 o1 [6 Y2 A$ m