solidworks 批量执行宏

醉生梦

各位大大好，在网上找到一个可以批量打开SW零件的宏，代码如下：
6 W+ L, s3 f6 j* ^
& B" y$ R0 ?" H* v1 s- `' J' JSub Test()
Set swApp = Application.SldWorks
5 ^, F! a6 z6 ~PartPath = "D:\Project\" '设定目录
PartFileName = Dir(PartPath & "*.sldprt") '搜寻首个零件档案名称
, K1 B+ j5 S. FDo Until PartFileName = "" '直至搜寻到空值
$ [3 ?8 l9 e- c+ c- {: H& K% W1 KSet Part = swApp.OpenDoc(PartPath & PartFileName, 1) '开启零件
3 e- @: L+ |; g'加入所需语句
'.
$ X5 n3 _6 t8 q8 a'.
'.
'.
4 X0 Z% ]3 `1 h9 V, R$ iPart.Save '保存
swApp.CloseDoc (PartFileName) '关闭零件
- K( |# c5 g) f+ L; I8 c7 JPartFileName = Dir '搜寻下一个零件档案名称
& B6 s! @! ?' B# @, p, ?. DLoop '循环搜寻
4 w1 `2 ~4 y- y: aEnd Sub

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

工人师_OgIOQ

劝你到三维网和开思找，那里有几位研究宏的大神。
$ P5 V; M& z# R  y, H$ b还有为什么要批量打开零件文件，屏幕能装的下吗

魍者归来

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

未来第一站

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

footleft

这个难道不是图中圈住的改为"slddrw"和"sldsam"吗？
% e* j9 O6 D$ p5 Z* E, i

醉生梦

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

4 I+ J5 G* j! v8 F谢谢你
  批量打开的用处是加入其他录制的宏，可以执行批量操作，提高工作效率

醉生梦

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

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

醉生梦

footleft 发表于 2017-3-1 09:50
. ?" Z3 r3 S6 U! k! U/ o( j1 n这个难道不是图中圈住的改为"slddrw"和"sldsam"吗？

) W6 e! M+ k1 Y8 N2 r只是更改这个还不行的，要配合着更改下面的那 1    分别对应1  2  3
; C; |0 ^2 S/ h% {  但是我想能不能将打开三种文件的代码整合到同一个宏中

ryouss

0 j8 y& k0 i# s7 k! s用 Select Case 做篩選循環,
不過如下宏只是做零件,裝配件及工程圖的叫出再關閉,沒實質意義.
8 _/ A/ g; g3 y7 S  d/ U
: {9 W' ^$ d) E6 Y

1. '
   4 w, X) B1 z9 Z& f
2. ' 在某文件路徑下批量開零件,裝配件及工程圖
   
3. ' sc liang 2017/3/4
   7 ?2 [" Q7 p8 |$ y
4. ' 測試版 2012 sp4
   / m: Z: }$ |# Z' C
5. '
   
6. Dim nErrors          As Long
   
7. Dim nWarnings        As Long
   
8. 
   4 z) @* U  n2 {$ U( V1 b
9. Sub Test()
   $ I% P/ u. K* y
10.     Set swApp = Application.SldWorks
    / S/ c: h4 Q( d4 q. z$ q# b
11.     Set swModel = swApp.ActiveDoc
    
12.     path = "D:\Project"   '存檔路徑
    ' [3 q% g5 H5 m% m
13.     sFileName = Dir(path & "*.sld*") '取出SW文件
    ( T) l# D6 A0 b" _$ |/ P, X
14. '循環開檔
    # {1 F- @$ v0 W2 J3 ^4 x6 p
15.      Do Until sFileName = ""
    ! Y: l: e, n/ g$ b7 ^' b8 i* E7 z
16.         Type_ = Right(sFileName, 3)    '取得SW文件擴展名後三位
    
17.         Select Case Type_ '判定SW文件型式
    
18. '開零件檔並存檔
    
19.             Case "PRT"
    
20.                Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
21.                Set Part = swApp.ActiveDoc
    " F: ^" u' w6 A* T( F
22.                Part.Save
    
23. '開組件檔
    
24.             Case "ASM"
    % d( b# E6 D" T( l6 V
25.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
26. '開工程圖              
    * t$ z, I8 _: Z' r/ s4 Q3 ~
27.             Case "DRW"
    
28.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
29.                   
    
30.         End Select
    
31.         Set swModel = Nothing
    + y8 i4 w: b, P" k1 N
32.         swApp.CloseDoc (sFileName)
    " G6 ~' Q- F) |+ @
33.         sFileName = Dir   '同路徑取出下個SW文件檔名
    9 e, S  o# l' I
34.     Loop
    : C- e2 q8 g( L. Z( j' T. H
35. End Sub

复制代码

魍者归来

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

方案1：If…Then…Else 语句
方案2：Select…Case 语句
方案3：Do…Loop 语句
: ?/ z; ^! N. L3 @" H3 _* F3 q方案4：For…Next 语句
9 s8 ^9 [! z$ S) s方案5：While…Wend 语句
方案6：……
……

, {# x* F  `; Q