solidworks 批量执行宏

醉生梦

各位大大好，在网上找到一个可以批量打开SW零件的宏，代码如下：
) F9 ^  u8 x1 s: b9 l1 v2 I
9 V# T8 i- o7 _) F( j5 f6 T* PSub Test()
Set swApp = Application.SldWorks
PartPath = "D:\Project\" '设定目录
PartFileName = Dir(PartPath & "*.sldprt") '搜寻首个零件档案名称
Do Until PartFileName = "" '直至搜寻到空值
Set Part = swApp.OpenDoc(PartPath & PartFileName, 1) '开启零件
* L; N" g. L0 N6 s4 T! _# P'加入所需语句
0 T6 P+ H8 {4 [1 s1 e- W: G'.
  x4 W, k- b7 X) A'.
'.
'.
Part.Save '保存
swApp.CloseDoc (PartFileName) '关闭零件
' \( Z9 r% d8 r$ D6 fPartFileName = Dir '搜寻下一个零件档案名称
Loop '循环搜寻
End Sub

可是却只能打开零件，装配体和工程图就不能打开了，哪位大大可以帮忙改一下，使其可以打开文件夹中的SW所有的三种文件，在此拜谢！！！

工人师_OgIOQ

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

魍者归来

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

未来第一站

6 O& S( P0 Z) ?( u  ?必威APP精装版下载solidworks专家级两位楼上大侠到齐了

footleft

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

醉生梦

工人师_OgIOQ 发表于 2017-3-1 09:10
2 g# u" p) A, e9 I& ~+ V: \( o劝你到三维网和开思找，那里有几位研究宏的大神。
还有为什么要批量打开零件文件，屏幕能装的下吗

+ x+ ]; r* }7 d9 y9 y2 @. t谢谢你
0 g( Y4 `- P' u8 L" l7 V1 ?8 Q  批量打开的用处是加入其他录制的宏，可以执行批量操作，提高工作效率

醉生梦

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

那如何才能将打开三种文件的代码整合到一个宏里面？望大侠指教

醉生梦

footleft 发表于 2017-3-1 09:50
1 X4 G) D, ^  h7 E+ R$ \这个难道不是图中圈住的改为"slddrw"和"sldsam"吗？

* v0 M0 j) k- I' z3 H只是更改这个还不行的，要配合着更改下面的那 1    分别对应1  2  3
  但是我想能不能将打开三种文件的代码整合到同一个宏中
* l7 [, j6 ]0 K' C" b& H% @

ryouss

! l' _) S% G4 j7 H( e& T
用 Select Case 做篩選循環,
不過如下宏只是做零件,裝配件及工程圖的叫出再關閉,沒實質意義.
2 q9 n1 ^: `& n+ k

" {, G  `- A6 X( E& P% W- W' x/ ^" F6 A

1. '
   $ O5 H7 B- W4 m: b
2. ' 在某文件路徑下批量開零件,裝配件及工程圖
   9 u& S: b/ B0 j9 c. J
3. ' sc liang 2017/3/4
   ' N1 w2 @! U3 }$ G5 f9 R5 t0 W
4. ' 測試版 2012 sp4
   
5. '
   / W/ a3 k$ j$ o+ Z) V/ M3 @% L6 ]! C
6. Dim nErrors          As Long
   
7. Dim nWarnings        As Long
   
8. 
   . _1 y9 G& w  Q+ M  U: ^
9. Sub Test()
   
10.     Set swApp = Application.SldWorks
    7 T( p) S1 b& j
11.     Set swModel = swApp.ActiveDoc
    
12.     path = "D:\Project"   '存檔路徑
    
13.     sFileName = Dir(path & "*.sld*") '取出SW文件
    : i; j6 X6 b: W5 B  Z
14. '循環開檔
    # Z' F3 ?2 p( b9 {
15.      Do Until sFileName = ""
    
16.         Type_ = Right(sFileName, 3)    '取得SW文件擴展名後三位
    
17.         Select Case Type_ '判定SW文件型式
    
18. '開零件檔並存檔
    
19.             Case "PRT"
    
20.                Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
21.                Set Part = swApp.ActiveDoc
    # ?4 W( G) l1 C, W/ t8 s
22.                Part.Save
    
23. '開組件檔
    
24.             Case "ASM"
    
25.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    $ o8 I1 F1 o/ C* R: o
26. '開工程圖              
    / V+ m+ ~0 F4 R' T# D9 y$ o; J) y0 Y
27.             Case "DRW"
    
28.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    1 G4 _$ _7 U8 a* z& [% K7 |
29.                   
    
30.         End Select
    
31.         Set swModel = Nothing
    
32.         swApp.CloseDoc (sFileName)
    ' z$ T% j6 \8 n/ K  a
33.         sFileName = Dir   '同路徑取出下個SW文件檔名
    # ^. W" I3 X& r; }8 Y% u1 U
34.     Loop
    
35. End Sub

复制代码

魍者归来

杨猛0230 发表于 2017-3-3 10:45
) f, n/ z. ~9 X) l8 }那如何才能将打开三种文件的代码整合到一个宏里面？望大侠指教

方案1：If…Then…Else 语句
方案2：Select…Case 语句
方案3：Do…Loop 语句
方案4：For…Next 语句
方案5：While…Wend 语句
6 E9 i1 t0 A6 v5 X) {方案6：……
  a3 N, y  h# ?" X+ o. a! c& W  U……