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 编辑

论坛solidworks专家级两位楼上大侠到齐了

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

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

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

工人师_OgIOQ 发表于 2017-3-1 09:108 h/ w! D- ?6 R! o2 I& @
劝你到三维网和开思找，那里有几位研究宏的大神。) m8 U; C- G' l+ {
还有为什么要批量打开零件文件，屏幕能装的下吗

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

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

魍者归来发表于 2017-3-1 09:37
8 a: m( B: A8 o/ U' T从第三行开始，每行的part楼主没看到么？替换成工程图和装配体就好。不知道怎么敲代码就自己录制宏，看一下 ...

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

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

footleft 发表于 2017-3-1 09:50
, W+ X7 R$ d7 O" w, A6 K/ h这个难道不是图中圈住的改为"slddrw"和"sldsam"吗？

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

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

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

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

'8 s0 |+ S2 ] B; z8 v0 X j6 _6 E
' 在某文件路徑下批量開零件,裝配件及工程圖( Z. j( j+ T+ i( y+ @( N7 m
' sc liang 2017/3/42 n% l# i- i# b6 X: T( w o
' 測試版 2012 sp4# {5 |+ C. y0 z) B8 D
'
6 f6 k, g( r7 r+ q! i3 f6 d, ~
Dim nErrors As Long) I8 {( X! T( O+ X) P: ~
Dim nWarnings As Long7 T4 h1 d5 M. ?
0 L) M- o3 w. [6 w, b; w
Sub Test()' z8 d9 t0 B1 u9 b& G
Set swApp = Application.SldWorks" r2 y. Q8 b: O4 w* N8 {
Set swModel = swApp.ActiveDoc- T7 H& \/ d/ v$ r- p' Q
path = "D:\Project" '存檔路徑
* }' m- p; r x$ ] _
sFileName = Dir(path & "*.sld*") '取出SW文件, u! D& i0 c0 J& V
'循環開檔, p, Z) d+ K3 ^9 O( k9 s3 J
Do Until sFileName = "": v" d2 q! {- r* U
Type_ = Right(sFileName, 3) '取得SW文件擴展名後三位7 h# t/ Q3 R: n* ~ p9 X: e
Select Case Type_ '判定SW文件型式
2 x1 l9 J4 U+ z4 Q4 d9 h$ |/ r
'開零件檔並存檔
4 n# q9 o' l: W4 r
Case "PRT"- n; X2 a9 v( p8 N z: i I
Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings). M) J; ^& G$ j' v' I1 ^* H9 Y
Set Part = swApp.ActiveDoc. O' W& U8 W4 o( N
Part.Save) r$ k' J0 i; j8 @/ B5 t4 C
'開組件檔
5 _2 s5 U4 z9 T! \' Z
Case "ASM"
1 W* K% Q' P8 [4 U' J; o F
Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)0 F! d. L1 c. a/ q& m; p
'開工程圖 * x" A" J7 N- M# y. K
Case "DRW", p& X1 L3 Y8 A! k6 C/ Q: Y& z6 \
Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings)
: m, x) T) J& u- |1 }' P
0 K/ l& u! {$ A2 D/ ?5 a! A- d; u, _
End Select
( Q1 ~, w: A c% ]8 P t
Set swModel = Nothing1 \, b) ]+ z k0 v
swApp.CloseDoc (sFileName)
2 [3 C& H1 }) e- k' s* Z1 S
sFileName = Dir '同路徑取出下個SW文件檔名
* i3 h. L; C5 s
Loop
* h ?, t) X) f
End Sub

复制代码

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

杨猛0230 发表于 2017-3-3 10:45
4 H7 K% S9 L+ \那如何才能将打开三种文件的代码整合到一个宏里面？望大侠指教

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

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

solidworks 批量执行宏

相关帖子

本帖子中包含更多资源