solidworks 批量執(zhí)行宏

醉生夢 · 發(fā)表于 2017-3-1 08:30:37

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

Sub Test()
Set swApp = Application.SldWorks
PartPath = "D:\Project\" '設(shè)定目錄
PartFileName = Dir(PartPath & "*.sldprt") '搜尋首個零件檔案名稱
Do Until PartFileName = "" '直至搜尋到空值
Set Part = swApp.OpenDoc(PartPath & PartFileName, 1) '開啟零件
'加入所需語句
'.
'.
'.
'.
Part.Save '保存
swApp.CloseDoc (PartFileName) '關(guān)閉零件
PartFileName = Dir '搜尋下一個零件檔案名稱
Loop '循環(huán)搜尋
End Sub

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

工人師_OgIOQ · 發(fā)表于 2017-3-1 09:10:04

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

魍者歸來 · 發(fā)表于 2017-3-1 09:37:31

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

未來第一站 · 發(fā)表于 2017-3-1 09:41:47

本帖最后由未來第一站于 2017-3-1 09:47 編輯

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

footleft · 發(fā)表于 2017-3-1 09:50:11

這個難道不是圖中圈住的改為"slddrw"和"sldsam"嗎？

醉生夢 · 發(fā)表于 2017-3-3 10:43:21

工人師_OgIOQ 發(fā)表于 2017-3-1 09:10
1 x& o& Y* m, k! \0 d勸你到三維網(wǎng)和開思找，那里有幾位研究宏的大神。
4 B) k$ ~# w( R還有為什么要批量打開零件文件，屏幕能裝的下嗎

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

醉生夢 · 發(fā)表于 2017-3-3 10:45:25

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

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

醉生夢 · 發(fā)表于 2017-3-3 10:47:29

footleft 發(fā)表于 2017-3-1 09:50% \! E( @5 b# Y2 I/ I1 z2 _
這個難道不是圖中圈住的改為"slddrw"和"sldsam"嗎？

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

ryouss · 發(fā)表于 2017-3-4 14:21:37

本帖最后由 ryouss 于 2017-3-4 14:42 編輯

用 Select Case 做篩選循環(huán),
不過如下宏只是做零件,裝配件及工程圖的叫出再關(guān)閉,沒實質(zhì)意義.

'7 M T9 Y0 m! G7 \, ~% B6 h- a
' 在某文件路徑下批量開零件,裝配件及工程圖
1 \3 M$ {% p- d! l) J( T
' sc liang 2017/3/4" w! M. Z' U6 U; r, y
' 測試版 2012 sp4
0 ]$ J0 L" U2 ]* V& X2 L
'
2 P8 m0 t7 m8 R, Z0 x+ y' j
Dim nErrors As Long5 W$ k' E, D2 [( w5 U a
Dim nWarnings As Long
" [& I1 h6 F- m+ b9 O3 C2 G W* \
5 k' L2 V" v6 N3 q
Sub Test()
& L( n$ D2 _; F" e. E# Z+ S R! t
Set swApp = Application.SldWorks! d( u/ @; I3 q; T1 y7 V" h1 a
Set swModel = swApp.ActiveDoc& ]& T% e7 A; ?( b- J) x
path = "D:\Project" '存檔路徑3 l$ d t2 W- r0 ^
sFileName = Dir(path & "*.sld*") '取出SW文件
; d6 j1 O" h" y( _
'循環(huán)開檔3 x+ w# y6 J u& x3 ]
Do Until sFileName = ""
/ z9 ]; }( O! G+ _
Type_ = Right(sFileName, 3) '取得SW文件擴展名後三位
& x& j' ?/ r1 U# @+ D
Select Case Type_ '判定SW文件型式- v) _$ H# B! s5 T& s! i- f% ^& Z- H! B
'開零件檔並存檔! o' E' g- K# o$ ]) j. X
Case "PRT"
$ W4 H! ^% Q6 V4 B. d' M% y
Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)$ \4 `. z* Z: k
Set Part = swApp.ActiveDoc3 @+ _$ \# ]0 e3 X P( n' ]
Part.Save) Y( ?, J, l1 s3 ~9 d H; @
'開組件檔
! t8 x- k1 \: ]0 w/ V5 y
Case "ASM"
7 j5 E7 `4 D u x. a
Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)
) n! _9 }( m0 O% s, p& ]# S8 W8 [
'開工程圖 $ ?# y* Q0 o8 l* k9 ~ Z
Case "DRW": ~! }% m/ j) Z+ H0 d1 O
Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings)' q1 ?1 q8 I# n1 l$ ]6 q1 k
: p( h% Y h2 R+ l& @
End Select
0 ]; i- m ^0 F9 l
Set swModel = Nothing* }0 g4 c }8 a3 E: c( M
swApp.CloseDoc (sFileName): f$ X# g, _ B' J1 F* P2 Q
sFileName = Dir '同路徑取出下個SW文件檔名
- x$ l1 V1 `4 @% B1 B- v
Loop9 ~( T6 w; |" v: n
End Sub

復(fù)制代碼

魍者歸來 · 發(fā)表于 2017-3-4 15:13:40

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

方案1：If…Then…Else 語句
方案2：Select…Case 語句
方案3：Do…Loop 語句
方案4：For…Next 語句
方案5：While…Wend 語句
方案6：……
……

		自動登錄	找回密碼
密碼			注冊會員

solidworks 批量執(zhí)行宏

相關(guān)帖子

本帖子中包含更多資源