solidworks 批量執(zhí)行宏

醉生夢(mèng)

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

" P- K; b' p2 FSub Test()
1 ^# s/ }6 G& p* q1 q+ R5 `; ^: ?4 ^Set swApp = Application.SldWorks
PartPath = "D:\Project\" '設(shè)定目錄
PartFileName = Dir(PartPath & "*.sldprt") '搜尋首個(gè)零件檔案名稱
Do Until PartFileName = "" '直至搜尋到空值
Set Part = swApp.OpenDoc(PartPath & PartFileName, 1) '開啟零件
! c1 `7 _4 f, ^+ a, T'加入所需語(yǔ)句
'.
- V1 Y5 c) U7 J( ]2 k; d# `'.
; [- u' S* e4 R; A% U% l5 B'.
'.
Part.Save '保存
swApp.CloseDoc (PartFileName) '關(guān)閉零件
PartFileName = Dir '搜尋下一個(gè)零件檔案名稱
Loop '循環(huán)搜尋
End Sub

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

工人師_OgIOQ

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

魍者歸來

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

未來第一站

$ l2 [0 G2 u5 d- D
" f6 o4 {0 K1 \. X( p7 D8 _論壇solidworks專家級(jí)兩位樓上大俠到齊了

footleft

這個(gè)難道不是圖中圈住的改為"slddrw"和"sldsam"嗎,？
( [+ ]$ n/ Y+ g; R: _- x5 V/ D% A6 K2 p

醉生夢(mèng)

工人師_OgIOQ 發(fā)表于 2017-3-1 09:10
勸你到三維網(wǎng)和開思找,，那里有幾位研究宏的大神。
' a+ {' [5 G/ C$ D# _' L還有為什么要批量打開零件文件,，屏幕能裝的下嗎

. L5 Q! R# L0 \: r3 L* O7 b: A% ?謝謝你
0 N' }& q) ]3 {+ C) b& _( V" q  批量打開的用處是加入其他錄制的宏,，可以執(zhí)行批量操作，提高工作效率
. B: z2 E9 ^6 w0 j6 f# \4 T2 w

醉生夢(mèng)

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

6 Z2 N* x& O; H% \% P那如何才能將打開三種文件的代碼整合到一個(gè)宏里面,？望大俠指教

醉生夢(mèng)

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

6 E, N8 j* x$ x" z# @6 ?/ ?只是更改這個(gè)還不行的,，要配合著更改下面的那 1    分別對(duì)應(yīng)1  2  3
  N. q  k3 a' N/ g8 X  但是我想能不能將打開三種文件的代碼整合到同一個(gè)宏中
, p/ `- H# A& L, `( k: ^( T$ r

ryouss

! ^- `  \3 f2 M3 u! @
# e. H; ]: o/ C1 s用 Select Case 做篩選循環(huán),
4 D; i3 Y( X* `. ~' `! T9 x+ @不過如下宏只是做零件,裝配件及工程圖的叫出再關(guān)閉,沒實(shí)質(zhì)意義.

: K$ @) a7 @: E/ @: d$ f
6 ~' W& j* W7 m

1. '
   ' e% O3 Q+ Z: a; O: z
2. ' 在某文件路徑下批量開零件,裝配件及工程圖
   
3. ' sc liang 2017/3/4
   % p. ~# s# t: q1 M; v7 U7 j4 |
4. ' 測(cè)試版 2012 sp4
   
5. '
   # i) f' c% i1 [' l' f
6. Dim nErrors          As Long
   ; E6 U- ~  M- p
7. Dim nWarnings        As Long
   
8. 
   8 J- i) Q0 v3 l" y3 C' e
9. Sub Test()
   
10.     Set swApp = Application.SldWorks
    
11.     Set swModel = swApp.ActiveDoc
    
12.     path = "D:\Project"   '存檔路徑
    ! D: t: }  @# W
13.     sFileName = Dir(path & "*.sld*") '取出SW文件
    ( j, _8 R3 ?. u& f
14. '循環(huán)開檔
    5 T0 R$ Y. r. H/ P4 f, b2 V9 g
15.      Do Until sFileName = ""
    ; y% ~. C. b/ K; d6 y# H
16.         Type_ = Right(sFileName, 3)    '取得SW文件擴(kuò)展名後三位
    
17.         Select Case Type_ '判定SW文件型式
    0 y! @  o* Q$ w" n2 k. ~
18. '開零件檔並存檔
    % K0 o6 l! j& y8 Z' F
19.             Case "PRT"
    , ?/ @' g$ b$ F( j+ n8 P3 N
20.                Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
21.                Set Part = swApp.ActiveDoc
    
22.                Part.Save
    
23. '開組件檔
    ( ^: P: X% s0 Q2 V
24.             Case "ASM"
    
25.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
26. '開工程圖              
    8 K/ G6 W  h1 y- n9 S3 b! s# ?7 M4 U5 L
27.             Case "DRW"
    
28.                 Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings)
    
29.                   
    9 L, n$ X" s% E% f
30.         End Select
    ' C) j8 ?' ]) c: P8 {! I
31.         Set swModel = Nothing
    
32.         swApp.CloseDoc (sFileName)
    $ _  E6 ?" ?7 c# S6 N
33.         sFileName = Dir   '同路徑取出下個(gè)SW文件檔名
    6 K% F, a+ q$ b1 v; T
34.     Loop
    + m/ c3 D# I7 v9 q
35. End Sub

復(fù)制代碼

魍者歸來

楊猛0230 發(fā)表于 2017-3-3 10:45
# u. w1 p0 k  i6 W8 N8 @那如何才能將打開三種文件的代碼整合到一個(gè)宏里面？望大俠指教

& X7 p8 D5 H; E' Z) Q' i方案1：If…Then…Else 語(yǔ)句
' c6 I6 X; Z" |% q" D1 [  U" N方案2：Select…Case 語(yǔ)句
$ B- K( Z' y9 n7 {2 `* R5 C方案3：Do…Loop 語(yǔ)句
9 Q% T: `, C; _8 g8 A方案4：For…Next 語(yǔ)句
方案5：While…Wend 語(yǔ)句
0 m3 D' n* s' n! f方案6：……
……
! z! _$ y- Q+ s1 b1 U