solidworks 批量执行宏

醉生梦

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

Sub Test()
Set swApp = Application.SldWorks
PartPath = "D:\Project\" '设定目录
PartFileName = Dir(PartPath & "*.sldprt") '搜寻首个零件档案名称
' d& c1 Z+ w1 FDo Until PartFileName = "" '直至搜寻到空值
Set Part = swApp.OpenDoc(PartPath & PartFileName, 1) '开启零件
'加入所需语句
'.
'.
2 {( {3 P; s- Q' {6 g% ^+ o'.
'.
Part.Save '保存
swApp.CloseDoc (PartFileName) '关闭零件
# G- d1 @. \; cPartFileName = Dir '搜寻下一个零件档案名称
) |5 [8 S; ?2 G, FLoop '循环搜寻
$ ]2 n/ U- m0 _. l2 I- gEnd Sub

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

工人师_OgIOQ

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

魍者归来

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

未来第一站

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

footleft

这个难道不是图中圈住的改为"slddrw"和"sldsam"吗？
" {+ S- w5 d( E0 E

醉生梦

工人师_OgIOQ 发表于 2017-3-1 09:10
劝你到三维网和开思找，那里有几位研究宏的大神。
, r/ G2 i/ T* i- {. V) n  i4 s5 z还有为什么要批量打开零件文件，屏幕能装的下吗

! k3 B/ x. v2 k/ T( Q& ^0 y谢谢你
3 d$ R& y: U  y) X1 j' X8 s7 B' W8 y  批量打开的用处是加入其他录制的宏，可以执行批量操作，提高工作效率

醉生梦

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

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

醉生梦

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

) m8 g5 b0 q9 W! U! y. c只是更改这个还不行的，要配合着更改下面的那 1    分别对应1  2  3
  但是我想能不能将打开三种文件的代码整合到同一个宏中
6 N/ w# m. o$ y7 m8 P" \

ryouss

$ C6 E, Q9 @# T8 \' u1 Q
2 K' ~9 e  x. {; v# j用 Select Case 做篩選循環,
9 a0 A4 {1 v8 ?9 c9 l不過如下宏只是做零件,裝配件及工程圖的叫出再關閉,沒實質意義.

; A9 O1 y2 M# @1 `; v8 _8 P

/ C/ x: U) s3 N3 ~# S1 m( ?

1. '
   
2. ' 在某文件路徑下批量開零件,裝配件及工程圖
   8 c9 b6 O/ G7 W1 a
3. ' sc liang 2017/3/4
   
4. ' 測試版 2012 sp4
   
5. '
   
6. Dim nErrors          As Long
   
7. Dim nWarnings        As Long
   
8. 
   , i5 F  `' \  ~
9. Sub Test()
   
10.     Set swApp = Application.SldWorks
    
11.     Set swModel = swApp.ActiveDoc
    
12.     path = "D:\Project"   '存檔路徑
    
13.     sFileName = Dir(path & "*.sld*") '取出SW文件
    6 c2 o+ U8 W' g7 ]
14. '循環開檔
    1 q+ o1 y' z% i3 V* l9 w& x0 S/ c; I
15.      Do Until sFileName = ""
    
16.         Type_ = Right(sFileName, 3)    '取得SW文件擴展名後三位
    % G& V# C& y  S( ~
17.         Select Case Type_ '判定SW文件型式
    9 s. R: Q, P1 R) H0 }  P8 ^
18. '開零件檔並存檔
    
19.             Case "PRT"
    / p* R; P* |, i+ S, h: F
20.                Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
21.                Set Part = swApp.ActiveDoc
    
22.                Part.Save
    
23. '開組件檔
    9 A: \1 b) O7 T& w3 u/ N, q* x
24.             Case "ASM"
    0 R- W, M+ f' n# a2 b5 A
25.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    ! t5 j$ X0 l3 q8 e9 K5 ]* Y- a8 T+ C
26. '開工程圖              
    7 m/ i" [* ]" w# P! C  F! G8 k% L
27.             Case "DRW"
    
28.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
29.                   
    2 }/ H8 ?9 c- u9 l; W* i, f5 D
30.         End Select
    
31.         Set swModel = Nothing
    
32.         swApp.CloseDoc (sFileName)
    
33.         sFileName = Dir   '同路徑取出下個SW文件檔名
    2 k1 L1 f8 W2 D
34.     Loop
    
35. End Sub

复制代码

魍者归来

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

6 ^& B& Q) U, l# _+ }+ \方案1：If…Then…Else 语句
方案2：Select…Case 语句
方案3：Do…Loop 语句
4 |/ W, n& @. r6 |/ \! G方案4：For…Next 语句
. t& D& r. g& W( y& N方案5：While…Wend 语句
方案6：……
2 H# y+ R7 A! Q6 C7 v1 m……

+ E1 u: K/ n0 V+ w# c8 r  o& }