solidworks 批量执行宏

醉生梦

各位大大好，在网上找到一个可以批量打开SW零件的宏，代码如下：
1 w1 w% r1 N  u0 p# W" t
6 n6 u1 g( I6 qSub Test()
Set swApp = Application.SldWorks
9 C9 w! C/ J' j, h2 {* TPartPath = "D:\Project\" '设定目录
" v6 k% {" D/ d# s4 IPartFileName = Dir(PartPath & "*.sldprt") '搜寻首个零件档案名称
Do Until PartFileName = "" '直至搜寻到空值
0 Z1 I+ ^% s) N4 h6 p" F, ?* {Set Part = swApp.OpenDoc(PartPath & PartFileName, 1) '开启零件
'加入所需语句
'.
'.
'.
+ L, }7 P8 g) j7 y9 U% P: g1 b'.
Part.Save '保存
swApp.CloseDoc (PartFileName) '关闭零件
# [( r( n% B1 d2 J; WPartFileName = Dir '搜寻下一个零件档案名称
Loop '循环搜寻
End Sub
0 u2 R" d. n% |# ?' U
4 [$ z2 _4 X" ?: ]* ~( f( g可是却只能打开零件，装配体和工程图就不能打开了，哪位大大可以帮忙改一下，使其可以打开文件夹中的SW所有的三种文件，在此拜谢！！！
6 y. o; ?3 K1 s

工人师_OgIOQ

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

魍者归来

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

未来第一站

2 Z$ l1 `7 r, n
- E, y  J: a0 p3 H; w# r4 m必威APP精装版下载solidworks专家级两位楼上大侠到齐了

footleft

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

醉生梦

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

谢谢你
  批量打开的用处是加入其他录制的宏，可以执行批量操作，提高工作效率

醉生梦

魍者归来 发表于 2017-3-1 09:37
4 w' b% m& p$ O+ A2 M( v8 m从第三行开始，每行的part楼主没看到么？替换成工程图和装配体就好。不知道怎么敲代码就自己录制宏，看一下 ...

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

醉生梦

footleft 发表于 2017-3-1 09:50
) l- Q* X3 ^: ~" k; k. g+ }这个难道不是图中圈住的改为"slddrw"和"sldsam"吗？

只是更改这个还不行的，要配合着更改下面的那 1    分别对应1  2  3
( c( m) o6 b! |; _- \  但是我想能不能将打开三种文件的代码整合到同一个宏中

ryouss

) @* g1 N! z* f5 Z0 Q6 H用 Select Case 做篩選循環,
* V* |" Y( S5 [4 k- i不過如下宏只是做零件,裝配件及工程圖的叫出再關閉,沒實質意義.

+ u2 W& f+ `' Y) G# \6 U  I
# A8 I# ?2 z; M$ ~' I
9 R( l4 [/ T( ^# Q7 t# {! R! z

1. '
     q) B6 I) _9 i1 g4 f5 ?
2. ' 在某文件路徑下批量開零件,裝配件及工程圖
   
3. ' sc liang 2017/3/4
   
4. ' 測試版 2012 sp4
   * B4 Q* a% s& v, k% z
5. '
   2 z0 F$ N$ O# H5 D' i; p9 C0 a; R, [
6. Dim nErrors          As Long
   * p" T& w" l" t2 x3 e4 B# q
7. Dim nWarnings        As Long
   
8. 
   / z# Y. r# e* S) K: Q# |: q
9. Sub Test()
   ! `/ w+ w& `: K: D
10.     Set swApp = Application.SldWorks
    
11.     Set swModel = swApp.ActiveDoc
    ! v( r* `; r, G7 O
12.     path = "D:\Project"   '存檔路徑
    
13.     sFileName = Dir(path & "*.sld*") '取出SW文件
    + S4 d' m6 S$ T0 A% C& N9 r2 j
14. '循環開檔
    
15.      Do Until sFileName = ""
    3 [1 ?3 `, w- e" [" ~
16.         Type_ = Right(sFileName, 3)    '取得SW文件擴展名後三位
    
17.         Select Case Type_ '判定SW文件型式
    
18. '開零件檔並存檔
    * ]" \" t# y- f8 x
19.             Case "PRT"
    $ M" m+ ]" v! h1 h
20.                Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
21.                Set Part = swApp.ActiveDoc
    9 T9 v. n" B# G7 L
22.                Part.Save
    0 f& f* o1 R; l2 e# r: f
23. '開組件檔
    ! B& R% A) I3 \' ]' i( D: b
24.             Case "ASM"
    " w5 Y2 X& l  v! ^( P
25.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
26. '開工程圖              
    2 J8 A3 h8 }3 g: x$ `  t& ^$ z
27.             Case "DRW"
    
28.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    - F) w$ s/ J" A7 @* E
29.                   
    $ O9 m+ _0 _) g: @% K
30.         End Select
    1 q* q( ~& k8 h( Z! w; w
31.         Set swModel = Nothing
    
32.         swApp.CloseDoc (sFileName)
    
33.         sFileName = Dir   '同路徑取出下個SW文件檔名
    
34.     Loop
    ' u2 _* ^$ p! w: q  i7 z
35. End Sub

复制代码

魍者归来

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

方案1：If…Then…Else 语句
9 ~, r( f  H  L: m; ~( W& q5 H方案2：Select…Case 语句
5 Z4 Y; ~& w2 h  o方案3：Do…Loop 语句
方案4：For…Next 语句
方案5：While…Wend 语句
+ a0 e' v) K/ a6 W, s1 g方案6：……
! p2 G  u: b. {/ U……