solidworks 批量执行宏

醉生梦

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

Sub Test()
Set swApp = Application.SldWorks
PartPath = "D:\Project\" '设定目录
PartFileName = Dir(PartPath & "*.sldprt") '搜寻首个零件档案名称
Do Until PartFileName = "" '直至搜寻到空值
2 N: T0 e3 h* l" t. P- LSet Part = swApp.OpenDoc(PartPath & PartFileName, 1) '开启零件
8 K) ]& l% D8 h' [3 w7 Q) E, B'加入所需语句
+ G; i# T4 e2 j'.
'.
'.
" r2 D4 D: q  Y+ e: I/ H'.
Part.Save '保存
swApp.CloseDoc (PartFileName) '关闭零件
PartFileName = Dir '搜寻下一个零件档案名称
Loop '循环搜寻
7 Z7 c5 l8 v# G# T4 j0 \  ]/ v# @End Sub

/ f% U& f! {2 U& ]/ r# y可是却只能打开零件，装配体和工程图就不能打开了，哪位大大可以帮忙改一下，使其可以打开文件夹中的SW所有的三种文件，在此拜谢！！！

工人师_OgIOQ

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

魍者归来

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

未来第一站

; h6 X: S8 R0 k; y
0 B* t. \# [0 p论坛solidworks专家级两位楼上大侠到齐了

footleft

这个难道不是图中圈住的改为"slddrw"和"sldsam"吗？
4 d' ?$ y# J6 S$ b0 E( T9 f

醉生梦

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

谢谢你
  批量打开的用处是加入其他录制的宏，可以执行批量操作，提高工作效率
  \( P' w  x8 P& d7 w  ~

醉生梦

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

# `6 ^# |6 z2 H+ m, C$ J0 G那如何才能将打开三种文件的代码整合到一个宏里面？望大侠指教

醉生梦

footleft 发表于 2017-3-1 09:50
2 ?) ~. |5 D% j* t& O这个难道不是图中圈住的改为"slddrw"和"sldsam"吗？

只是更改这个还不行的，要配合着更改下面的那 1    分别对应1  2  3
  但是我想能不能将打开三种文件的代码整合到同一个宏中
( w" C7 X0 f: j( \0 y! t& \

ryouss

. E. @% e& y& `' _
- W, _: y9 t' r' Q用 Select Case 做篩選循環,
1 l% z% h7 F0 e不過如下宏只是做零件,裝配件及工程圖的叫出再關閉,沒實質意義.
6 h6 m+ s, {( j- G0 L, O


' H5 p$ r; |3 t8 j" ^/ s  ~& S  u( W$ b

1. '
   ; r: J0 A! S0 S# _0 ^
2. ' 在某文件路徑下批量開零件,裝配件及工程圖
   7 t5 `0 }( j$ l/ r2 @
3. ' sc liang 2017/3/4
   # b" C1 J# ?  d( Q; @6 y8 x/ n* i
4. ' 測試版 2012 sp4
   
5. '
   
6. Dim nErrors          As Long
   * f, A$ ^( @( ?1 S( ~( P" o2 R
7. Dim nWarnings        As Long
   - e- ^! S. U6 M/ K/ ]$ e% Q: @- W
8. 
   
9. Sub Test()
   
10.     Set swApp = Application.SldWorks
    
11.     Set swModel = swApp.ActiveDoc
    % ~2 Y7 m1 a9 `. P7 W
12.     path = "D:\Project"   '存檔路徑
    
13.     sFileName = Dir(path & "*.sld*") '取出SW文件
    
14. '循環開檔
    2 I3 v7 |, I: I2 u! w: r
15.      Do Until sFileName = ""
    . X# F2 l4 d; y% ~$ m2 C! ?' N  W
16.         Type_ = Right(sFileName, 3)    '取得SW文件擴展名後三位
    : @7 T6 G& {& Q  K  r
17.         Select Case Type_ '判定SW文件型式
    1 @  c# x5 I1 @5 O2 X, `' |" w. Q
18. '開零件檔並存檔
    
19.             Case "PRT"
    + r  T, b8 T/ V5 e3 E7 Y6 |
20.                Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    : K: X: `- Y4 E1 T) x& g
21.                Set Part = swApp.ActiveDoc
    
22.                Part.Save
    
23. '開組件檔
    
24.             Case "ASM"
    
25.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
26. '開工程圖              
    ' [. b$ O; |! G2 |, q
27.             Case "DRW"
    ) l, T7 E. Z3 ]+ o* n- U
28.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    5 B/ A5 I3 R9 R, T
29.                   
    
30.         End Select
    3 x! k  `& E3 c* H
31.         Set swModel = Nothing
    
32.         swApp.CloseDoc (sFileName)
    , W, @/ m6 W& Q2 ~( G: U% @
33.         sFileName = Dir   '同路徑取出下個SW文件檔名
    
34.     Loop
    , A( ~% g& o: H& }% W8 \. c
35. End Sub

复制代码

魍者归来

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

: `  I0 P# W# A* p5 H6 }( R方案1：If…Then…Else 语句
7 W* x- J  Y. [3 Y- D2 M方案2：Select…Case 语句
方案3：Do…Loop 语句
方案4：For…Next 语句
方案5：While…Wend 语句
方案6：……
: v3 U5 _! q5 X% y. y/ r* F……
* p: B+ ~, M6 m" P( x1 ]