solidworks 批量执行宏

醉生梦

各位大大好，在网上找到一个可以批量打开SW零件的宏，代码如下：
- J5 i" t; g! y3 H0 Q' L
3 C! \& u& j3 s" Z. F2 gSub Test()
6 `* p" B& b& J' ^Set swApp = Application.SldWorks
PartPath = "D:\Project\" '设定目录
: A% }* l8 D& aPartFileName = Dir(PartPath & "*.sldprt") '搜寻首个零件档案名称
) h8 i( Y2 y: T" R9 f) R) q, H$ PDo Until PartFileName = "" '直至搜寻到空值
Set Part = swApp.OpenDoc(PartPath & PartFileName, 1) '开启零件
1 g2 O. k1 O, e' c2 N* u, `, p'加入所需语句
8 w2 g+ X5 Z3 Q5 F'.
+ L$ }& S( n9 q1 b6 z( H'.
8 y0 q3 u; [7 b'.
% o5 o5 `0 v, i1 E: ['.
Part.Save '保存
swApp.CloseDoc (PartFileName) '关闭零件
8 `, }% Z! H! sPartFileName = Dir '搜寻下一个零件档案名称
7 c9 |- u, R% s; d; y. b" B0 n" T4 \Loop '循环搜寻
5 z. M# g# a! ^, rEnd Sub

! E% u6 z) b/ @  y/ J0 \" E可是却只能打开零件，装配体和工程图就不能打开了，哪位大大可以帮忙改一下，使其可以打开文件夹中的SW所有的三种文件，在此拜谢！！！
9 ~- V8 I0 s* C5 H" I

工人师_OgIOQ

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

魍者归来

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

未来第一站

必威APP精装版下载solidworks专家级两位楼上大侠到齐了

footleft

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

醉生梦

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

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

醉生梦

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

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

醉生梦

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

只是更改这个还不行的，要配合着更改下面的那 1    分别对应1  2  3
  但是我想能不能将打开三种文件的代码整合到同一个宏中

ryouss

用 Select Case 做篩選循環,
1 U7 T: A$ V4 ]+ K. t不過如下宏只是做零件,裝配件及工程圖的叫出再關閉,沒實質意義.


. e- B4 X% W' H; @) V

1. '
   7 w3 D( f$ k1 ^: Z$ a# j( w
2. ' 在某文件路徑下批量開零件,裝配件及工程圖
   3 N4 {% L& S& W" `  U
3. ' sc liang 2017/3/4
   
4. ' 測試版 2012 sp4
   ! V+ j" T6 y6 H
5. '
   
6. Dim nErrors          As Long
   # o6 B+ a7 Q* b: f& Q( p
7. Dim nWarnings        As Long
   
8. 
   & Z1 R; |2 I0 C4 l  V  n% R
9. Sub Test()
   
10.     Set swApp = Application.SldWorks
    7 s7 h- I( s; `" N1 d
11.     Set swModel = swApp.ActiveDoc
    
12.     path = "D:\Project"   '存檔路徑
    / N- g  [9 f; \$ z) e
13.     sFileName = Dir(path & "*.sld*") '取出SW文件
    
14. '循環開檔
    8 q- q* Y# Q$ G, I- }
15.      Do Until sFileName = ""
    6 B% i, Z) j! g) w! d
16.         Type_ = Right(sFileName, 3)    '取得SW文件擴展名後三位
    / h, j5 `' j: a0 Y0 j
17.         Select Case Type_ '判定SW文件型式
    
18. '開零件檔並存檔
    & v* M! }2 }1 y' a& Y4 I/ p
19.             Case "PRT"
    
20.                Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    ) ~$ }9 L6 w; ]$ o
21.                Set Part = swApp.ActiveDoc
    ' X5 }) T$ O7 I' {" _( m
22.                Part.Save
    % \! K% y6 x) G; a% M7 e
23. '開組件檔
    + l/ t( q9 o* N+ x2 _+ J
24.             Case "ASM"
    
25.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
26. '開工程圖              
    
27.             Case "DRW"
    
28.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    ; D- u, m6 m# j6 a2 L
29.                   
    
30.         End Select
    2 R) {  L8 V3 y* y
31.         Set swModel = Nothing
    
32.         swApp.CloseDoc (sFileName)
    
33.         sFileName = Dir   '同路徑取出下個SW文件檔名
    
34.     Loop
    
35. End Sub

复制代码

魍者归来

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

; X) `" O9 W8 \( F$ F3 j* s方案1：If…Then…Else 语句
! G, h2 j: W2 h9 _/ b' ]方案2：Select…Case 语句
: K. z% H4 J  N$ c% ]方案3：Do…Loop 语句
; t+ w2 H0 t+ j+ P% y" J方案4：For…Next 语句
  Z- n0 H* x  V) f5 K方案5：While…Wend 语句
方案6：……
……
+ J- r- C2 l, {# j+ I' M9 e