solidworks 批量执行宏

醉生梦

各位大大好，在网上找到一个可以批量打开SW零件的宏，代码如下：
( \- A" E; n5 r+ l
6 Z" R8 u7 I3 lSub Test()
/ M0 j# W' w  Y3 g# TSet swApp = Application.SldWorks
. S! p( X) ?7 W8 P) R0 H* n5 C5 P& KPartPath = "D:\Project\" '设定目录
PartFileName = Dir(PartPath & "*.sldprt") '搜寻首个零件档案名称
Do Until PartFileName = "" '直至搜寻到空值
Set Part = swApp.OpenDoc(PartPath & PartFileName, 1) '开启零件
7 L* w8 ?1 V3 j3 k'加入所需语句
# C+ n  E$ c* `" T'.
'.
1 Y4 [$ [* c: T# C8 X'.
' s. H9 G' h' F8 d, Y( x/ k'.
Part.Save '保存
6 ?, ?( [7 d4 y; V2 Z+ S) GswApp.CloseDoc (PartFileName) '关闭零件
2 a, y9 n8 f/ }& p0 bPartFileName = Dir '搜寻下一个零件档案名称
% J: w, z4 j: g( n: ^Loop '循环搜寻
End Sub

可是却只能打开零件，装配体和工程图就不能打开了，哪位大大可以帮忙改一下，使其可以打开文件夹中的SW所有的三种文件，在此拜谢！！！
# V8 c' i  v6 k4 }. t3 {6 h7 V$ [

工人师_OgIOQ

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

魍者归来

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

未来第一站

) x: ?( Q5 q5 S. h" F
8 A; B6 q% f. S必威APP精装版下载solidworks专家级两位楼上大侠到齐了

footleft

这个难道不是图中圈住的改为"slddrw"和"sldsam"吗？
4 x9 B% M! @' ^- F, q: T

醉生梦

工人师_OgIOQ 发表于 2017-3-1 09:10
劝你到三维网和开思找，那里有几位研究宏的大神。
/ l" ~" ], [. O# X+ d还有为什么要批量打开零件文件，屏幕能装的下吗

9 T4 b( U) r$ ^: w$ b6 Q4 E谢谢你
  ?8 s* M9 R7 e- K9 R' ~* @  批量打开的用处是加入其他录制的宏，可以执行批量操作，提高工作效率

醉生梦

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

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

醉生梦

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

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

ryouss

用 Select Case 做篩選循環,
" b6 v6 p7 z! ~6 p) u不過如下宏只是做零件,裝配件及工程圖的叫出再關閉,沒實質意義.
' ^9 S- P& `( c7 a' O( v
3 |4 r9 n% T8 \+ B! X

1. '
   
2. ' 在某文件路徑下批量開零件,裝配件及工程圖
   . _! L/ a/ D+ H% X* g  j
3. ' sc liang 2017/3/4
   . O# W& Y. I; t- Q1 b$ C+ ]
4. ' 測試版 2012 sp4
   
5. '
   
6. Dim nErrors          As Long
   
7. Dim nWarnings        As Long
   
8. 
   
9. Sub Test()
   : c+ o# j5 _5 S3 T* [: k
10.     Set swApp = Application.SldWorks
    : K5 f5 B( N/ S. E. T8 _" N
11.     Set swModel = swApp.ActiveDoc
    4 J9 s% M8 B4 h1 m; B
12.     path = "D:\Project"   '存檔路徑
    # e" r7 |/ S- E" C( ~. u
13.     sFileName = Dir(path & "*.sld*") '取出SW文件
    , P  B) ~# d' u( F/ N8 _5 x. f
14. '循環開檔
    
15.      Do Until sFileName = ""
    7 R! j, S* k. E" `7 z2 w8 `
16.         Type_ = Right(sFileName, 3)    '取得SW文件擴展名後三位
    4 X9 A' |, B. x
17.         Select Case Type_ '判定SW文件型式
    
18. '開零件檔並存檔
    ! ~* ^$ K* J# ?2 S
19.             Case "PRT"
    
20.                Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
21.                Set Part = swApp.ActiveDoc
    # u2 ?' v9 H% V4 d9 \0 r
22.                Part.Save
    " Q1 I5 j) C, L0 e4 [# V4 T# c
23. '開組件檔
    
24.             Case "ASM"
    
25.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    2 ?7 Z: Z; ^- e4 B+ ?( G
26. '開工程圖              
    
27.             Case "DRW"
    
28.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
29.                   
    / i; ~" x+ k- t2 t) g
30.         End Select
    # S- O  f" E9 y
31.         Set swModel = Nothing
    
32.         swApp.CloseDoc (sFileName)
    
33.         sFileName = Dir   '同路徑取出下個SW文件檔名
    
34.     Loop
    + p$ c' D, i1 p, ^
35. End Sub

复制代码

魍者归来

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

8 o* c: |, x" S8 ^  o8 M3 G方案1：If…Then…Else 语句
方案2：Select…Case 语句
4 {, P8 a; L; d+ w' y方案3：Do…Loop 语句
8 |0 X& n0 N& X+ x9 o9 w方案4：For…Next 语句
/ }: k+ S( A: W: ?) u方案5：While…Wend 语句
1 n! Z5 w9 r( z! k/ D6 {方案6：……
5 {8 }) F, t# v" q8 x3 _……
: O. ?; Z. d- z/ K
# ]% t/ w2 ^% g2 p$ C