solidworks 批量執(zhí)行宏

醉生夢

各位大大好,，在網上找到一個可以批量打開SW零件的宏，代碼如下：

Sub Test()
4 t$ h  k( E% U% N, dSet swApp = Application.SldWorks
/ w/ q" P# e, b: C1 B8 MPartPath = "D:\Project\" '設定目錄
2 d" Q+ l0 _% V4 R* c2 \PartFileName = Dir(PartPath & "*.sldprt") '搜尋首個零件檔案名稱
Do Until PartFileName = "" '直至搜尋到空值
5 k( f  Y' G. |8 Y2 y3 kSet Part = swApp.OpenDoc(PartPath & PartFileName, 1) '開啟零件
5 P5 n3 c7 R% d5 x. A'加入所需語句
'.
$ @; r( A+ k* j; [- x' [  T'.
'.
'.
Part.Save '保存
3 g+ A' M. e3 O1 @, a+ @swApp.CloseDoc (PartFileName) '關閉零件
PartFileName = Dir '搜尋下一個零件檔案名稱
' K: W! [- q3 m1 h3 p& ]% s8 KLoop '循環(huán)搜尋
7 ]: q0 n8 k/ IEnd Sub

; f2 c: [- a  F7 D4 Z4 m2 G可是卻只能打開零件,，裝配體和工程圖就不能打開了,，哪位大大可以幫忙改一下,，使其可以打開文件夾中的SW所有的三種文件,，在此拜謝�,。�,！

工人師_OgIOQ

勸你到三維網和開思找，那里有幾位研究宏的大神。
" @# _) x0 u# _  Z% ]" Z還有為什么要批量打開零件文件,，屏幕能裝的下嗎

魍者歸來

從第三行開始,，每行的part樓主沒看到么？替換成工程圖和裝配體就好,。不知道怎么敲代碼就自己錄制宏,，看一下就明白了，VBA很簡單的

未來第一站

7 b7 J* n- o0 q8 i( x
3 [# w+ U! R& ~% X: [( Y論壇solidworks專家級兩位樓上大俠到齊了

footleft

這個難道不是圖中圈住的改為"slddrw"和"sldsam"嗎,？
; U* p% {. |+ P7 Z6 X  @# [& Q

醉生夢

工人師_OgIOQ 發(fā)表于 2017-3-1 09:10
6 R2 ^3 y; R. z) `. Y勸你到三維網和開思找,，那里有幾位研究宏的大神,。
還有為什么要批量打開零件文件，屏幕能裝的下嗎

謝謝你
% s) z* A) H  m! ?0 g5 }2 x" j1 S3 v0 y  批量打開的用處是加入其他錄制的宏,，可以執(zhí)行批量操作,，提高工作效率
; O# [& T' C% s5 P6 P9 ]

醉生夢

魍者歸來 發(fā)表于 2017-3-1 09:37
從第三行開始，每行的part樓主沒看到么,？替換成工程圖和裝配體就好,。不知道怎么敲代碼就自己錄制宏，看一下 ...

那如何才能將打開三種文件的代碼整合到一個宏里面,？望大俠指教

醉生夢

footleft 發(fā)表于 2017-3-1 09:50
這個難道不是圖中圈住的改為"slddrw"和"sldsam"嗎,？

只是更改這個還不行的，要配合著更改下面的那 1    分別對應1  2  3
  但是我想能不能將打開三種文件的代碼整合到同一個宏中

ryouss

; o; t4 m( f& n5 {* s- c
( [  f% o$ k1 H* }2 J用 Select Case 做篩選循環(huán),
& a# ^: ]% K" N! w, I不過如下宏只是做零件,裝配件及工程圖的叫出再關閉,沒實質意義.



/ R# P5 O2 p' a) C! o) O7 Q

1. '
   : J% Z8 M9 B7 U# ^& C% L
2. ' 在某文件路徑下批量開零件,裝配件及工程圖
   ! O9 R% x1 a1 P) _
3. ' sc liang 2017/3/4
   
4. ' 測試版 2012 sp4
   
5. '
   3 d6 s% G$ Q4 _0 P
6. Dim nErrors          As Long
   
7. Dim nWarnings        As Long
   6 f4 n! ?# q: l3 x; m4 y
8. 
   . h' x- b/ Z9 C$ _7 A9 g  Q
9. Sub Test()
   ; N+ f# N" ]$ }
10.     Set swApp = Application.SldWorks
    3 f4 ~2 e0 T7 m( P  X$ R6 O, }
11.     Set swModel = swApp.ActiveDoc
    4 s9 f' H) e1 T5 j& u4 p* E
12.     path = "D:\Project"   '存檔路徑
    
13.     sFileName = Dir(path & "*.sld*") '取出SW文件
    
14. '循環(huán)開檔
    1 D' g( x! F1 r- D/ f" F5 a* \
15.      Do Until sFileName = ""
    
16.         Type_ = Right(sFileName, 3)    '取得SW文件擴展名後三位
    
17.         Select Case Type_ '判定SW文件型式
    2 u, R/ ]+ Y4 `- _- U& N; X
18. '開零件檔並存檔
    # n$ H! ], N* y0 }* ]3 V8 Z; b6 a
19.             Case "PRT"
    
20.                Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    ' R7 U  D* M/ k0 r4 I
21.                Set Part = swApp.ActiveDoc
    
22.                Part.Save
    
23. '開組件檔
    
24.             Case "ASM"
    
25.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    $ C$ x8 Y4 o8 |! V3 ^; A( V
26. '開工程圖              
    
27.             Case "DRW"
    6 Z% d6 ~: V0 h# ]! \% ^
28.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    ( k1 H* d9 N! x! t! ]9 C, `
29.                   
    - y! Z" ?% f% u+ w" {
30.         End Select
    0 i7 n/ e& R( y0 ?) ?% Q- ~
31.         Set swModel = Nothing
    
32.         swApp.CloseDoc (sFileName)
    
33.         sFileName = Dir   '同路徑取出下個SW文件檔名
    
34.     Loop
    7 G  F5 Q0 d# u9 U
35. End Sub

復制代碼

魍者歸來

楊猛0230 發(fā)表于 2017-3-3 10:45
那如何才能將打開三種文件的代碼整合到一個宏里面,？望大俠指教

& Q5 I4 q$ T0 d% F- M) d方案1：If…Then…Else 語句
方案2：Select…Case 語句
. Q# t! F7 C7 v* d+ j* h/ C7 d方案3：Do…Loop 語句
* s1 h$ F; w1 U: Q; f方案4：For…Next 語句
5 i" J; i& R- A6 ]+ A+ I方案5：While…Wend 語句
5 A: t2 B$ }; }5 \, v9 t方案6：……
……
/ V. N( ~9 L/ a8 Y