solidworks 批量执行宏

醉生梦

各位大大好，在网上找到一个可以批量打开SW零件的宏，代码如下：
/ H5 |$ F+ D, {- F2 H: I  O
Sub Test()
Set swApp = Application.SldWorks
PartPath = "D:\Project\" '设定目录
4 s, K4 Q; [+ X6 A7 X4 Y8 IPartFileName = Dir(PartPath & "*.sldprt") '搜寻首个零件档案名称
& f& P6 B2 w; m8 _, @Do Until PartFileName = "" '直至搜寻到空值
Set Part = swApp.OpenDoc(PartPath & PartFileName, 1) '开启零件
'加入所需语句
'.
  B" Y9 D1 _7 l1 s; }6 a. ?- E# V6 L'.
'.
'.
2 V: H& t7 ^( a* ?% f% XPart.Save '保存
swApp.CloseDoc (PartFileName) '关闭零件
, [, C# I9 {; hPartFileName = Dir '搜寻下一个零件档案名称
Loop '循环搜寻
End Sub
) v7 C9 u# s9 u( g) l
- ~/ }9 y( P. ^) m% [! h: p# C. t可是却只能打开零件，装配体和工程图就不能打开了，哪位大大可以帮忙改一下，使其可以打开文件夹中的SW所有的三种文件，在此拜谢！！！

工人师_OgIOQ

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

魍者归来

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

未来第一站

  l4 ?$ {; `' |, v$ o/ J0 }3 ?论坛solidworks专家级两位楼上大侠到齐了

footleft

这个难道不是图中圈住的改为"slddrw"和"sldsam"吗？
2 s! m9 t% K0 U1 a5 Q

醉生梦

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

( Z* K! X+ N, O# c$ J4 i) j谢谢你
  批量打开的用处是加入其他录制的宏，可以执行批量操作，提高工作效率
4 E- A" O3 y. Q- m

醉生梦

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

( H8 h7 p5 P1 @& W3 c+ m3 v那如何才能将打开三种文件的代码整合到一个宏里面？望大侠指教

醉生梦

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

. z2 n2 G1 Q7 \1 s0 N只是更改这个还不行的，要配合着更改下面的那 1    分别对应1  2  3
  但是我想能不能将打开三种文件的代码整合到同一个宏中
+ z4 [# {: F3 f( }8 w" f" B. s5 J

ryouss

! c4 S& X% f0 m5 Y; E1 A/ L! {9 [
用 Select Case 做篩選循環,
7 n6 q1 v4 I+ @1 s: L6 H7 M8 A不過如下宏只是做零件,裝配件及工程圖的叫出再關閉,沒實質意義.

! K& ]# b8 B5 Q( T' L! W
; Q( k# l  u- Y$ M/ s' M+ C. t1 S7 e- [6 v

1. '
   , e; i+ o; a$ j# J+ y
2. ' 在某文件路徑下批量開零件,裝配件及工程圖
   
3. ' sc liang 2017/3/4
   & W( U. K# M: ]7 ]6 b" a; W
4. ' 測試版 2012 sp4
   # [8 h: J/ z- D6 S' q
5. '
   
6. Dim nErrors          As Long
   ! E8 h8 s+ a0 y+ v$ s" k, R2 |" d
7. Dim nWarnings        As Long
   2 V2 r  m6 p- W1 l* L
8. 
   5 `# v6 p  l. H1 s2 I+ L
9. Sub Test()
   # P& e. E4 t7 q+ K# }
10.     Set swApp = Application.SldWorks
    ' v9 d/ y( J4 P; f
11.     Set swModel = swApp.ActiveDoc
    
12.     path = "D:\Project"   '存檔路徑
    : x# d5 ^2 n9 S4 f2 A; ^) l1 r
13.     sFileName = Dir(path & "*.sld*") '取出SW文件
    2 I' K. r! y, y) n
14. '循環開檔
    3 r' y2 D$ P0 }( `4 o( h" s) ?
15.      Do Until sFileName = ""
    
16.         Type_ = Right(sFileName, 3)    '取得SW文件擴展名後三位
    # X8 E' D: f8 b+ D' ]& @) P) ]
17.         Select Case Type_ '判定SW文件型式
    7 m5 q. k' Q: o/ M; q
18. '開零件檔並存檔
    
19.             Case "PRT"
    # ^3 k% ]( J" ~5 N" q
20.                Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
21.                Set Part = swApp.ActiveDoc
    & r& T/ A6 H! `5 w4 p$ ^7 j+ o8 ?
22.                Part.Save
    
23. '開組件檔
    8 _5 Q: s& a1 Q6 D2 \7 d
24.             Case "ASM"
    
25.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    / ~! q. ^" F/ O
26. '開工程圖              
    
27.             Case "DRW"
    
28.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
29.                   
    
30.         End Select
    * H+ W4 |$ A3 y4 x$ }
31.         Set swModel = Nothing
    - J* i! m" P9 |( G, B  u
32.         swApp.CloseDoc (sFileName)
    + ~) r5 C! z4 |# S" Z4 C, Q
33.         sFileName = Dir   '同路徑取出下個SW文件檔名
    
34.     Loop
    6 N4 G" c( O, @
35. End Sub

复制代码

魍者归来

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

( I  e2 c5 k, ~2 e) o方案1：If…Then…Else 语句
方案2：Select…Case 语句
方案3：Do…Loop 语句
$ O: m$ J- o) g+ @方案4：For…Next 语句
方案5：While…Wend 语句
方案6：……
( e% k3 r# G' ?. i: k' L……
/ q* |# z1 |) w& Q) Q4 K, M