solidworks 批量执行宏

醉生梦

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

$ B4 F3 o6 b. `) [" QSub Test()
Set swApp = Application.SldWorks
PartPath = "D:\Project\" '设定目录
/ X+ K) _  r1 S3 ]2 d2 MPartFileName = Dir(PartPath & "*.sldprt") '搜寻首个零件档案名称
Do Until PartFileName = "" '直至搜寻到空值
Set Part = swApp.OpenDoc(PartPath & PartFileName, 1) '开启零件
/ [% Y# K6 o1 `5 q, Z7 X" U! L'加入所需语句
'.
'.
3 X  V: B; L  v4 ]# N2 M4 ]'.
' j! @; e1 k) M: l" a4 E6 A# {'.
Part.Save '保存
swApp.CloseDoc (PartFileName) '关闭零件
PartFileName = Dir '搜寻下一个零件档案名称
Loop '循环搜寻
9 ?' z1 q& ]$ w# l; S" D( {5 ~End Sub
3 T$ J9 b7 n6 B  U! g: @7 Y1 d" ^
可是却只能打开零件，装配体和工程图就不能打开了，哪位大大可以帮忙改一下，使其可以打开文件夹中的SW所有的三种文件，在此拜谢！！！
3 v4 C# u( \* i) U* \% L0 a% B1 Y2 _

工人师_OgIOQ

劝你到三维网和开思找，那里有几位研究宏的大神。
! v8 x3 b' M" D) j( b还有为什么要批量打开零件文件，屏幕能装的下吗

魍者归来

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

未来第一站

  G) I" A, F& R* y0 a3 d必威APP精装版下载solidworks专家级两位楼上大侠到齐了

footleft

这个难道不是图中圈住的改为"slddrw"和"sldsam"吗？
7 k' _9 K3 i1 T) \7 A3 Z; G) ~

醉生梦

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

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

醉生梦

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

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

醉生梦

footleft 发表于 2017-3-1 09:50
: }0 p+ v1 r6 j" [这个难道不是图中圈住的改为"slddrw"和"sldsam"吗？

) n2 Z- X6 M5 M, T: }, o  ?: ^只是更改这个还不行的，要配合着更改下面的那 1    分别对应1  2  3
- t* `; X: o* K3 ^" u  但是我想能不能将打开三种文件的代码整合到同一个宏中
1 r* s( ]9 Y$ o% l% W5 I" N1 R

ryouss

: R4 f7 R( L! b  K
用 Select Case 做篩選循環,
" M3 f5 J7 T& N- r2 \不過如下宏只是做零件,裝配件及工程圖的叫出再關閉,沒實質意義.

9 r" J( A6 k3 U4 A

1. '
   2 Z$ D! Y  z3 ~$ M- h/ R
2. ' 在某文件路徑下批量開零件,裝配件及工程圖
   
3. ' sc liang 2017/3/4
   
4. ' 測試版 2012 sp4
   
5. '
   8 k0 G8 \, {0 B# d0 ~* y! m
6. Dim nErrors          As Long
   , X1 g. F+ |* `4 B
7. Dim nWarnings        As Long
   7 j, _; b9 r% t( E6 c
8. 
   
9. Sub Test()
   
10.     Set swApp = Application.SldWorks
    
11.     Set swModel = swApp.ActiveDoc
    , j* @' X! r3 g/ r
12.     path = "D:\Project"   '存檔路徑
    
13.     sFileName = Dir(path & "*.sld*") '取出SW文件
    - u- I, U* {- n  h# R. ~; @* @
14. '循環開檔
    
15.      Do Until sFileName = ""
    
16.         Type_ = Right(sFileName, 3)    '取得SW文件擴展名後三位
    
17.         Select Case Type_ '判定SW文件型式
    9 @+ Z& z( ?+ p4 y: W" Z- R" u/ \
18. '開零件檔並存檔
    5 `6 p7 y( B. G- `3 f
19.             Case "PRT"
    
20.                Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    : X9 f! Q! I9 q' k5 }* l0 ~
21.                Set Part = swApp.ActiveDoc
    ) }, s% I: T+ {! h& M9 M, l
22.                Part.Save
    + p, l9 k8 m6 c$ E+ f$ B9 C; c0 X% v
23. '開組件檔
    
24.             Case "ASM"
    
25.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    , i2 R0 {& P0 t1 j: g/ i) ?
26. '開工程圖              
    * w7 s" @  Q* I& Z
27.             Case "DRW"
    # ]# {# z5 k% V" S. @- }
28.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
29.                   
    - U! ]/ M" S2 M% I& a7 U; K
30.         End Select
    ! w; `7 ~5 ]0 y
31.         Set swModel = Nothing
    
32.         swApp.CloseDoc (sFileName)
    ' S( ?: G1 H1 ?6 ^' A, U
33.         sFileName = Dir   '同路徑取出下個SW文件檔名
    
34.     Loop
    
35. End Sub

复制代码

魍者归来

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

$ [0 K  Z  i  A: v9 O0 F方案1：If…Then…Else 语句
# Y# ~$ \, v  m+ C  R6 Y. G方案2：Select…Case 语句
方案3：Do…Loop 语句
( M( X9 h9 P0 p方案4：For…Next 语句
方案5：While…Wend 语句
: h1 C) P7 t9 J4 s方案6：……
……
: p8 w+ A7 T( s6 O$ |6 {$ E+ ]