solidworks 批量執(zhí)行宏

醉生夢

各位大大好,，在網(wǎng)上找到一個(gè)可以批量打開SW零件的宏,，代碼如下：
( l" u& D& I: U1 R( F# b5 N6 b
/ X0 H0 I( R. {( L6 j# O( c7 mSub Test()
Set swApp = Application.SldWorks
PartPath = "D:\Project\" '設(shè)定目錄
PartFileName = Dir(PartPath & "*.sldprt") '搜尋首個(gè)零件檔案名稱
Do Until PartFileName = "" '直至搜尋到空值
) A+ B# G1 B; {* c4 QSet Part = swApp.OpenDoc(PartPath & PartFileName, 1) '開啟零件
'加入所需語句
; F' E1 Y  U$ }6 N* V'.
'.
'.
& `" O7 B( p: Z: E8 S'.
0 J4 k" q" ~  V, X) W1 YPart.Save '保存
) i, u; u2 @  |swApp.CloseDoc (PartFileName) '關(guān)閉零件
+ D( I8 @* p3 J$ ?PartFileName = Dir '搜尋下一個(gè)零件檔案名稱
Loop '循環(huán)搜尋
  s$ }" W! Z8 C$ A* hEnd Sub
# n2 s1 Y! ]! Q+ p; {
可是卻只能打開零件,，裝配體和工程圖就不能打開了,，哪位大大可以幫忙改一下,，使其可以打開文件夾中的SW所有的三種文件,，在此拜謝�,。�,！

工人師_OgIOQ

勸你到三維網(wǎng)和開思找，那里有幾位研究宏的大神,。
* O3 E+ z9 j& {; c還有為什么要批量打開零件文件,，屏幕能裝的下嗎

魍者歸來

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

未來第一站

8 F3 |% W- _, s/ c: r) Z" I# B
論壇solidworks專家級兩位樓上大俠到齊了

footleft

這個(gè)難道不是圖中圈住的改為"slddrw"和"sldsam"嗎,？

醉生夢

工人師_OgIOQ 發(fā)表于 2017-3-1 09:10
; P; ^1 z8 m1 o8 p2 J勸你到三維網(wǎng)和開思找,，那里有幾位研究宏的大神,。
6 s4 B9 p5 }' J7 c% Q還有為什么要批量打開零件文件,，屏幕能裝的下嗎

謝謝你
  批量打開的用處是加入其他錄制的宏,，可以執(zhí)行批量操作,，提高工作效率
" e- ^# H2 R$ p2 M( {

醉生夢

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

$ ~/ i/ `  Z& l那如何才能將打開三種文件的代碼整合到一個(gè)宏里面,？望大俠指教

醉生夢

footleft 發(fā)表于 2017-3-1 09:50
  x9 `% K6 |# ^. g" ?# O2 D9 C這個(gè)難道不是圖中圈住的改為"slddrw"和"sldsam"嗎？

只是更改這個(gè)還不行的,，要配合著更改下面的那 1    分別對應(yīng)1  2  3
) s2 [( j9 P, G: N3 `9 t9 `+ S  但是我想能不能將打開三種文件的代碼整合到同一個(gè)宏中
& a$ f2 H6 V/ r( E5 a

ryouss

* ?2 p+ C/ n$ s# P( a
用 Select Case 做篩選循環(huán),
不過如下宏只是做零件,裝配件及工程圖的叫出再關(guān)閉,沒實(shí)質(zhì)意義.

6 k' h7 X9 E, m5 l4 s& V+ G' `
' G& W' n4 @8 z) _! n  p9 I4 Q$ f) y
7 G( P: c, T1 W7 D7 T

1. '
   
2. ' 在某文件路徑下批量開零件,裝配件及工程圖
   * ^7 b+ T. K) s% Q# A+ o1 p% {) c
3. ' sc liang 2017/3/4
   ( U) U( \5 J5 q$ Y, }8 p
4. ' 測試版 2012 sp4
   $ _  j9 I# B( S2 I: ~
5. '
   2 o4 k4 C0 ?2 c
6. Dim nErrors          As Long
   
7. Dim nWarnings        As Long
   
8. 
   4 _; |  A+ r! `8 ^/ P
9. Sub Test()
   
10.     Set swApp = Application.SldWorks
    4 V% E8 z: ?) V: f7 v
11.     Set swModel = swApp.ActiveDoc
    . y& a% w4 e! b2 A' x* P. i3 ]: E$ R
12.     path = "D:\Project"   '存檔路徑
    
13.     sFileName = Dir(path & "*.sld*") '取出SW文件
    9 ]7 T9 J; M9 G. x+ F
14. '循環(huán)開檔
    0 {, i) s  U7 j: V' p0 l
15.      Do Until sFileName = ""
    
16.         Type_ = Right(sFileName, 3)    '取得SW文件擴(kuò)展名後三位
    
17.         Select Case Type_ '判定SW文件型式
    
18. '開零件檔並存檔
    
19.             Case "PRT"
    
20.                Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    1 i* }- d/ z( Y! Y) Y0 l$ g
21.                Set Part = swApp.ActiveDoc
    8 {* l+ W- H+ z9 `2 B% }8 l
22.                Part.Save
    % a  T$ @5 J) O( c2 d9 O* x9 A  ^
23. '開組件檔
    
24.             Case "ASM"
    
25.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    ! |' a  W7 ~0 m- \+ [# V% N
26. '開工程圖              
    
27.             Case "DRW"
    
28.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
29.                   
    
30.         End Select
    
31.         Set swModel = Nothing
    
32.         swApp.CloseDoc (sFileName)
    
33.         sFileName = Dir   '同路徑取出下個(gè)SW文件檔名
    ( q4 |1 A; \# q2 N# `. N# r' p; G
34.     Loop
    
35. End Sub

復(fù)制代碼

魍者歸來

楊猛0230 發(fā)表于 2017-3-3 10:45
; Z1 X6 i$ v) |" e  j' W8 g那如何才能將打開三種文件的代碼整合到一個(gè)宏里面,？望大俠指教

方案1：If…Then…Else 語句
方案2：Select…Case 語句
方案3：Do…Loop 語句
& b2 T# W, R$ o5 Y; U6 L方案4：For…Next 語句
/ R* y' o7 T4 E3 c: L$ b# o方案5：While…Wend 語句
+ }/ g" R8 n: Z; ^3 B) u( O& \2 D方案6：……
6 T, x3 h" T3 j0 _, t: h……

& [. B2 q4 y5 ^# P