solidworks 批量执行宏

醉生梦 · 发表于 2017-3-1 08:30:37

各位大大好，在网上找到一个可以批量打开SW零件的宏，代码如下：

Sub Test()
Set swApp = Application.SldWorks
PartPath = "D:\Project\" '设定目录
PartFileName = Dir(PartPath & "*.sldprt") '搜寻首个零件档案名称
Do Until PartFileName = "" '直至搜寻到空值
Set Part = swApp.OpenDoc(PartPath & PartFileName, 1) '开启零件
'加入所需语句
'.
'.
'.
'.
Part.Save '保存
swApp.CloseDoc (PartFileName) '关闭零件
PartFileName = Dir '搜寻下一个零件档案名称
Loop '循环搜寻
End Sub

可是却只能打开零件，装配体和工程图就不能打开了，哪位大大可以帮忙改一下，使其可以打开文件夹中的SW所有的三种文件，在此拜谢！！！

工人师_OgIOQ · 发表于 2017-3-1 09:10:04

劝你到三维网和开思找，那里有几位研究宏的大神。
还有为什么要批量打开零件文件，屏幕能装的下吗

魍者归来 · 发表于 2017-3-1 09:37:31

从第三行开始，每行的part楼主没看到么？替换成工程图和装配体就好。不知道怎么敲代码就自己录制宏，看一下就明白了，VBA很简单的

未来第一站 · 发表于 2017-3-1 09:41:47

本帖最后由未来第一站于 2017-3-1 09:47 编辑

必威APP精装版下载solidworks专家级两位楼上大侠到齐了

footleft · 发表于 2017-3-1 09:50:11

这个难道不是图中圈住的改为"slddrw"和"sldsam"吗？

醉生梦 · 发表于 2017-3-3 10:43:21

工人师_OgIOQ 发表于 2017-3-1 09:103 f- C6 ?! c3 H& v
劝你到三维网和开思找，那里有几位研究宏的大神。% M. M- I8 {! |5 H9 ]
还有为什么要批量打开零件文件，屏幕能装的下吗

谢谢你
批量打开的用处是加入其他录制的宏，可以执行批量操作，提高工作效率

醉生梦 · 发表于 2017-3-3 10:45:25

魍者归来发表于 2017-3-1 09:37
: n; { a" I0 \" b9 M, O: r" _从第三行开始，每行的part楼主没看到么？替换成工程图和装配体就好。不知道怎么敲代码就自己录制宏，看一下 ...

那如何才能将打开三种文件的代码整合到一个宏里面？望大侠指教

醉生梦 · 发表于 2017-3-3 10:47:29

footleft 发表于 2017-3-1 09:50
8 c% n$ M, w" i( ?. U9 b这个难道不是图中圈住的改为"slddrw"和"sldsam"吗？

只是更改这个还不行的，要配合着更改下面的那 1 分别对应1 2 3
但是我想能不能将打开三种文件的代码整合到同一个宏中

ryouss · 发表于 2017-3-4 14:21:37

本帖最后由 ryouss 于 2017-3-4 14:42 编辑

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

'' n* h) Z9 t* f0 ~- \( `: T
' 在某文件路徑下批量開零件,裝配件及工程圖
/ V w& w2 |- W( L! b, {) k
' sc liang 2017/3/4
9 p R c9 t7 q; E7 W
' 測試版 2012 sp4 e& T+ R. ~2 ~, j! b3 k, ?8 I! ^) U! P
'
- f7 E) y5 _) V) P* K
Dim nErrors As Long* r7 j6 B7 _" c% [0 `
Dim nWarnings As Long# ]- n1 I" I5 q9 x3 O
9 B2 a1 t1 o, \# c2 D h' T
Sub Test()8 y2 V2 v3 k8 m2 O! z6 M
Set swApp = Application.SldWorks
0 o& Q9 ~, |5 f& t4 E
Set swModel = swApp.ActiveDoc6 I1 t1 x; Q$ p6 d/ |5 j* K9 F( l( u
path = "D:\Project" '存檔路徑! T) r( P$ k5 b* Y* X. K# I
sFileName = Dir(path & "*.sld*") '取出SW文件
% W) A9 S/ M/ p
'循環開檔* V* B: r' j# Y/ a2 q4 v
Do Until sFileName = ""
0 A9 b' \ B4 R2 R3 D
Type_ = Right(sFileName, 3) '取得SW文件擴展名後三位) y' e: G. K2 ?: B y
Select Case Type_ '判定SW文件型式
% e1 J' A D) q: K' u$ c
'開零件檔並存檔3 M/ `1 d) V2 ]
Case "PRT"1 C% o& e& p& x: Z; \& Q% r
Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)6 u5 v. f" ]- P! c. }
Set Part = swApp.ActiveDoc" `- X- w- U2 R3 i6 d2 H; l
Part.Save
4 V+ |0 a$ ?9 C5 @! A6 M* N1 b W
'開組件檔/ ]& o! ?, k4 s) y+ a% O& R% Y$ z# G
Case "ASM"
/ v0 r0 d/ i8 z1 u: d( x
Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)
% Z6 m; f. [7 g. G+ m4 k* G% [
'開工程圖 - r3 E: S' ~: W; {) {
Case "DRW"& M6 ~0 D! g2 @; P+ m% Z
Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings)( N5 b5 }! w0 V# Y+ t, F& ?
+ [6 T9 h) X: v+ Q7 @
End Select
; f- o: V, B& U, ?: }
Set swModel = Nothing
' ]# D& M- i7 ~2 r4 S
swApp.CloseDoc (sFileName)
0 }- L9 E( e; V$ k u
sFileName = Dir '同路徑取出下個SW文件檔名
9 K# L1 }) m$ J& r" n; k- S- b6 |
Loop! P) S% {- p$ Q
End Sub

复制代码

魍者归来 · 发表于 2017-3-4 15:13:40

杨猛0230 发表于 2017-3-3 10:45/ {3 _; j! L7 p
那如何才能将打开三种文件的代码整合到一个宏里面？望大侠指教

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

		自动登录	找回密码
密码			注册会员

solidworks 批量执行宏

相关帖子

本帖子中包含更多资源