solidworks 批量执行宏

醉生梦

各位大大好，在网上找到一个可以批量打开SW零件的宏，代码如下：

* _7 Y- ?  O- B, }Sub Test()
, X# s4 |, X( q2 |9 I% XSet swApp = Application.SldWorks
PartPath = "D:\Project\" '设定目录
6 p* p( ^" `; {/ QPartFileName = Dir(PartPath & "*.sldprt") '搜寻首个零件档案名称
6 o* p! l3 `& X0 i# f3 h+ B9 CDo Until PartFileName = "" '直至搜寻到空值
9 s0 ]4 {1 j3 O' b. @* w; ?  a% lSet Part = swApp.OpenDoc(PartPath & PartFileName, 1) '开启零件
. `4 t, ?" ?$ V5 @'加入所需语句
'.
+ W$ M! J# ?: o- g( n1 _6 F'.
9 A) M* u0 k0 S  A2 v$ s; f+ }3 E'.
'.
Part.Save '保存
: R) w. L% f& d% LswApp.CloseDoc (PartFileName) '关闭零件
& g, ]4 Z# B# ?) G8 BPartFileName = Dir '搜寻下一个零件档案名称
Loop '循环搜寻
End Sub
# n; |; y, `$ O, q4 ]4 [: G
可是却只能打开零件，装配体和工程图就不能打开了，哪位大大可以帮忙改一下，使其可以打开文件夹中的SW所有的三种文件，在此拜谢！！！
9 D; X) B7 `( o2 @

工人师_OgIOQ

劝你到三维网和开思找，那里有几位研究宏的大神。
还有为什么要批量打开零件文件，屏幕能装的下吗

魍者归来

从第三行开始，每行的part楼主没看到么？替换成工程图和装配体就好。不知道怎么敲代码就自己录制宏，看一下就明白了，VBA很简单的

未来第一站

0 E0 D; [/ K9 p论坛solidworks专家级两位楼上大侠到齐了

footleft

这个难道不是图中圈住的改为"slddrw"和"sldsam"吗？

醉生梦

工人师_OgIOQ 发表于 2017-3-1 09:10
. d! I1 P& d! {" a劝你到三维网和开思找，那里有几位研究宏的大神。
8 W; w7 |& O3 B6 g+ a还有为什么要批量打开零件文件，屏幕能装的下吗

8 p0 I- R% l' K6 E. \谢谢你
. q4 \6 j/ ]4 b. V9 g  批量打开的用处是加入其他录制的宏，可以执行批量操作，提高工作效率
3 R9 e9 B  A: @

醉生梦

魍者归来 发表于 2017-3-1 09:37
从第三行开始，每行的part楼主没看到么？替换成工程图和装配体就好。不知道怎么敲代码就自己录制宏，看一下 ...

: I) r" h5 h! r那如何才能将打开三种文件的代码整合到一个宏里面？望大侠指教

醉生梦

footleft 发表于 2017-3-1 09:50
这个难道不是图中圈住的改为"slddrw"和"sldsam"吗？

只是更改这个还不行的，要配合着更改下面的那 1    分别对应1  2  3
  但是我想能不能将打开三种文件的代码整合到同一个宏中

ryouss

- T" R, _5 G  h, z- J
用 Select Case 做篩選循環,
不過如下宏只是做零件,裝配件及工程圖的叫出再關閉,沒實質意義.


8 |: u& x$ Y) K2 F# S

1. '
   
2. ' 在某文件路徑下批量開零件,裝配件及工程圖
   
3. ' sc liang 2017/3/4
   
4. ' 測試版 2012 sp4
   , r& n% G& l1 g% |. b
5. '
   / W7 u% K" W5 o% L* \2 ^
6. Dim nErrors          As Long
   : R, M; I$ p8 w9 C5 x
7. Dim nWarnings        As Long
   
8. 
   $ ~. S. H) o  C- V- Q
9. Sub Test()
   
10.     Set swApp = Application.SldWorks
    
11.     Set swModel = swApp.ActiveDoc
    
12.     path = "D:\Project"   '存檔路徑
    
13.     sFileName = Dir(path & "*.sld*") '取出SW文件
    
14. '循環開檔
    " _+ a5 Y4 C! p: w. d: X$ N' v
15.      Do Until sFileName = ""
    
16.         Type_ = Right(sFileName, 3)    '取得SW文件擴展名後三位
    2 G0 Z* B8 D( \* ~8 j( C
17.         Select Case Type_ '判定SW文件型式
    ' E. Y& m. I' U
18. '開零件檔並存檔
    
19.             Case "PRT"
    
20.                Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    ; K9 I) t5 U; {# f
21.                Set Part = swApp.ActiveDoc
    / t4 p9 }* y( X; U1 x% I$ @
22.                Part.Save
    - ~# ]# D% b9 E+ I" A' i. Y
23. '開組件檔
    
24.             Case "ASM"
    
25.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    % Q. V6 Z4 Z4 H/ i
26. '開工程圖              
    " c; j' Q- W# P4 Y6 s5 F
27.             Case "DRW"
    
28.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
29.                   
    : K7 E3 d) k4 f* u& f. ]& _) G% ~
30.         End Select
    
31.         Set swModel = Nothing
    
32.         swApp.CloseDoc (sFileName)
    
33.         sFileName = Dir   '同路徑取出下個SW文件檔名
    + T7 s: P4 V* \4 r! e6 c' `& x0 w* R
34.     Loop
    
35. End Sub

复制代码

魍者归来

杨猛0230 发表于 2017-3-3 10:45
6 ~* U  ?( H) S4 ]9 B- J那如何才能将打开三种文件的代码整合到一个宏里面？望大侠指教

方案1：If…Then…Else 语句
( g7 t8 L2 t0 w方案2：Select…Case 语句
方案3：Do…Loop 语句
7 u) d' I, [: p0 n, A$ m8 X& S方案4：For…Next 语句
& K" `9 p9 N# |* @( L0 x! |' I方案5：While…Wend 语句
: }& u8 b4 y* @方案6：……
7 E- S1 x/ r3 P5 ^……
0 k4 V4 H" V! c& {2 l
# x# S0 R- {  i