solidworks 批量执行宏

醉生梦

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

7 l) |  I, b# E/ ~% i. TSub Test()
Set swApp = Application.SldWorks
PartPath = "D:\Project\" '设定目录
' n! w% W' e$ V) [# M7 gPartFileName = Dir(PartPath & "*.sldprt") '搜寻首个零件档案名称
Do Until PartFileName = "" '直至搜寻到空值
Set Part = swApp.OpenDoc(PartPath & PartFileName, 1) '开启零件
'加入所需语句
  W9 \* u) ?. M1 j7 P3 w9 F'.
'.
'.
'.
Part.Save '保存
swApp.CloseDoc (PartFileName) '关闭零件
PartFileName = Dir '搜寻下一个零件档案名称
3 m* B. D* n& n4 P- }6 g1 p1 OLoop '循环搜寻
End Sub
/ o1 _6 a5 x' ~& F0 g
可是却只能打开零件，装配体和工程图就不能打开了，哪位大大可以帮忙改一下，使其可以打开文件夹中的SW所有的三种文件，在此拜谢！！！

工人师_OgIOQ

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

魍者归来

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

未来第一站

论坛solidworks专家级两位楼上大侠到齐了

footleft

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

醉生梦

工人师_OgIOQ 发表于 2017-3-1 09:10
劝你到三维网和开思找，那里有几位研究宏的大神。
还有为什么要批量打开零件文件，屏幕能装的下吗

谢谢你
* |1 i8 i/ ^" X  批量打开的用处是加入其他录制的宏，可以执行批量操作，提高工作效率

醉生梦

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

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

醉生梦

footleft 发表于 2017-3-1 09:50
, T5 p4 P4 }* o6 u' z; U; @, k这个难道不是图中圈住的改为"slddrw"和"sldsam"吗？

& C4 s! |# ?+ S5 w  j8 O& d只是更改这个还不行的，要配合着更改下面的那 1    分别对应1  2  3
& r: n9 `" |1 R# d; ~  但是我想能不能将打开三种文件的代码整合到同一个宏中
( o: }2 N; E3 R" J' A; v' P4 t

ryouss

用 Select Case 做篩選循環,
# [8 _5 f8 E5 v" H( k, X5 h* {不過如下宏只是做零件,裝配件及工程圖的叫出再關閉,沒實質意義.

5 Q2 {6 n: G; D3 i8 w" z
; ]  o: H' s% ^5 }( |' W5 }

1. '
   ( S. g/ b* w8 P6 E5 `$ k+ h
2. ' 在某文件路徑下批量開零件,裝配件及工程圖
   8 ~( S4 |2 ^* a
3. ' sc liang 2017/3/4
   
4. ' 測試版 2012 sp4
   3 C- ?7 C  `" m1 x3 S- f/ D+ Q
5. '
   - ]' g$ D/ C4 V( j6 }
6. Dim nErrors          As Long
   4 X" q8 ?( I" D  g2 ^
7. Dim nWarnings        As Long
   
8. 
   
9. Sub Test()
   & s) o& g9 v5 R/ Y) }  N
10.     Set swApp = Application.SldWorks
    
11.     Set swModel = swApp.ActiveDoc
    4 p+ \+ O$ D; K5 c9 s( S
12.     path = "D:\Project"   '存檔路徑
    
13.     sFileName = Dir(path & "*.sld*") '取出SW文件
    
14. '循環開檔
    
15.      Do Until sFileName = ""
    ' y2 n: U. z  {
16.         Type_ = Right(sFileName, 3)    '取得SW文件擴展名後三位
    
17.         Select Case Type_ '判定SW文件型式
    
18. '開零件檔並存檔
    
19.             Case "PRT"
    3 V2 G: y+ C7 |; i
20.                Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    $ N: Y/ A; v4 W; Q
21.                Set Part = swApp.ActiveDoc
    
22.                Part.Save
    
23. '開組件檔
    
24.             Case "ASM"
    1 g! k1 D3 i/ x$ p/ v
25.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
26. '開工程圖              
    
27.             Case "DRW"
    5 |; P5 w) k: D6 n1 R; l; ~
28.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
29.                   
    7 \8 w3 Z: o, o) l' ^
30.         End Select
    
31.         Set swModel = Nothing
    - ?  P" Y* Z' g+ o/ u+ o3 E! _
32.         swApp.CloseDoc (sFileName)
    
33.         sFileName = Dir   '同路徑取出下個SW文件檔名
    
34.     Loop
    
35. End Sub

复制代码

魍者归来

杨猛0230 发表于 2017-3-3 10:45
那如何才能将打开三种文件的代码整合到一个宏里面？望大侠指教

- V; f# n, n1 W. h/ C方案1：If…Then…Else 语句
方案2：Select…Case 语句
+ l8 |' `6 K: I' L4 t方案3：Do…Loop 语句
方案4：For…Next 语句
方案5：While…Wend 语句
% e5 A; y4 L9 k. T/ b方案6：……
……

" j( @. ]  Q# \+ W