solidworks 批量執行宏

醉生夢

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

Sub Test()
; }# O# ~) l# I" N4 h" KSet swApp = Application.SldWorks
PartPath = "D:\Project\" '設定目錄
5 u& U! H9 H0 }0 e% N5 {  pPartFileName = Dir(PartPath & "*.sldprt") '搜尋首個零件檔案名稱
3 [$ c$ \2 L" `% @; mDo Until PartFileName = "" '直至搜尋到空值
Set Part = swApp.OpenDoc(PartPath & PartFileName, 1) '開啟零件
'加入所需語句
3 y1 x: V1 X+ {5 B  j% e0 K( b) S* A'.
'.
0 z+ Z1 t) N4 B7 u% _. F! g& G'.
+ U1 o+ t8 P6 P) r1 V2 ^2 {'.
Part.Save '保存
swApp.CloseDoc (PartFileName) '關閉零件
( n! N0 h* r) T, @! [2 uPartFileName = Dir '搜尋下一個零件檔案名稱
Loop '循環搜尋
" h$ |/ H0 D5 P/ h, _7 Q5 _) CEnd Sub
. L" r3 I; K( N0 T& P( O
可是卻只能打開零件，裝配體和工程圖就不能打開了，哪位大大可以幫忙改一下，使其可以打開文件夾中的SW所有的三種文件，在此拜謝?。。?/font>

工人師_OgIOQ

勸你到三維網和開思找，那里有幾位研究宏的大神。
- f- N  l! k2 p, b& ?還有為什么要批量打開零件文件，屏幕能裝的下嗎

魍者歸來

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

未來第一站

論壇solidworks專家級兩位樓上大俠到齊了

footleft

這個難道不是圖中圈住的改為"slddrw"和"sldsam"嗎？
  n9 G# n6 H2 }/ P/ k- I# r

醉生夢

工人師_OgIOQ 發表于 2017-3-1 09:10
  z+ C9 ^6 l" n+ S/ M8 ^勸你到三維網和開思找，那里有幾位研究宏的大神。
還有為什么要批量打開零件文件，屏幕能裝的下嗎

謝謝你
  批量打開的用處是加入其他錄制的宏，可以執行批量操作，提高工作效率

醉生夢

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

' q9 P+ H1 A! f; ]那如何才能將打開三種文件的代碼整合到一個宏里面？望大俠指教

醉生夢

footleft 發表于 2017-3-1 09:50
* G# n" o7 S# u7 g8 M6 u這個難道不是圖中圈住的改為"slddrw"和"sldsam"嗎？

2 T; [9 W+ t# ]1 _! w6 \只是更改這個還不行的，要配合著更改下面的那 1    分別對應1  2  3
  但是我想能不能將打開三種文件的代碼整合到同一個宏中

ryouss

( a$ t; c: m9 y* m
用 Select Case 做篩選循環,
不過如下宏只是做零件,裝配件及工程圖的叫出再關閉,沒實質意義.

5 d3 a2 {+ F7 c' i* v& |3 c* o; R2 Q
- |" w4 v1 V, p0 X3 u" r/ j
; a+ [1 G/ M9 I4 O3 t! w2 L) U

1. '
   0 f+ U/ M+ i) Z  _$ B' k9 Q
2. ' 在某文件路徑下批量開零件,裝配件及工程圖
   
3. ' sc liang 2017/3/4
   3 q$ c+ d7 |/ b
4. ' 測試版 2012 sp4
   
5. '
   / J- t1 y/ x: B" l9 H
6. Dim nErrors          As Long
     t+ l, J( t8 ]8 n; F0 K% m6 K
7. Dim nWarnings        As Long
   
8. 
   % F: J! M5 A( }" P, U
9. Sub Test()
   
10.     Set swApp = Application.SldWorks
    
11.     Set swModel = swApp.ActiveDoc
      C* e2 w0 h& r4 r
12.     path = "D:\Project"   '存檔路徑
    
13.     sFileName = Dir(path & "*.sld*") '取出SW文件
    ! b5 ?) Q: t( h
14. '循環開檔
    
15.      Do Until sFileName = ""
    
16.         Type_ = Right(sFileName, 3)    '取得SW文件擴展名後三位
    
17.         Select Case Type_ '判定SW文件型式
    3 p9 k- S4 i# n
18. '開零件檔並存檔
    , g; P. A+ q( E: P0 q: S0 {5 i
19.             Case "PRT"
    
20.                Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
21.                Set Part = swApp.ActiveDoc
      @  L7 G) K+ @6 m& D$ i3 H- l
22.                Part.Save
    
23. '開組件檔
    0 h9 c- l- y* z6 F7 {
24.             Case "ASM"
    
25.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    5 O$ O! \$ m$ T$ `$ Y, |" X
26. '開工程圖              
    
27.             Case "DRW"
    6 l4 }( @6 u* e
28.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
29.                   
    # t, r9 w) A$ i+ U
30.         End Select
    
31.         Set swModel = Nothing
    
32.         swApp.CloseDoc (sFileName)
    4 w7 p, a# A7 T
33.         sFileName = Dir   '同路徑取出下個SW文件檔名
    / ~$ q: k9 }. i% v1 r3 i
34.     Loop
    - A3 Q) u+ v2 h5 }( ^1 v
35. End Sub

復制代碼

魍者歸來

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

方案1：If…Then…Else 語句
方案2：Select…Case 語句
方案3：Do…Loop 語句
方案4：For…Next 語句
方案5：While…Wend 語句
$ l" R! N/ p4 N方案6：……
……
: W6 s1 H7 F) L