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:10
8 q) f7 M: i; G劝你到三维网和开思找，那里有几位研究宏的大神。4 B1 e6 c' C Z4 `: s! }
还有为什么要批量打开零件文件，屏幕能装的下吗

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

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

魍者归来发表于 2017-3-1 09:37
- l' S7 m$ u2 i7 d9 e) J3 b从第三行开始，每行的part楼主没看到么？替换成工程图和装配体就好。不知道怎么敲代码就自己录制宏，看一下 ...

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

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

footleft 发表于 2017-3-1 09:50
+ }5 G n' E* [' k0 i这个难道不是图中圈住的改为"slddrw"和"sldsam"吗？

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

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

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

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

'
7 B) o) l' z+ M! M2 H
' 在某文件路徑下批量開零件,裝配件及工程圖
5 T: l; L& q3 c# R/ N5 F: R. t
' sc liang 2017/3/4
, W5 z) p6 `% x Q* V
' 測試版 2012 sp4* M9 k) U4 [' g4 S
'# D1 j0 d; N/ }! p' M% c5 v$ N
Dim nErrors As Long( Y* U) [7 y% y6 V* A- }1 x% X
Dim nWarnings As Long9 j9 H% F, o7 Z' Z
/ Q; A3 h% E7 e6 i, W. g! `$ ~3 o1 L
Sub Test()* l ?( e- j% I7 j
Set swApp = Application.SldWorks$ N1 A4 \3 h8 {
Set swModel = swApp.ActiveDoc9 m4 H2 o+ \1 P
path = "D:\Project" '存檔路徑
8 I. @ n- X6 v; k; I6 S
sFileName = Dir(path & "*.sld*") '取出SW文件
' }: {2 G/ G& a, d; f8 h& _
'循環開檔
8 d5 n3 F# m: {* f u$ N# c
Do Until sFileName = ""7 T2 j- s3 Z# r
Type_ = Right(sFileName, 3) '取得SW文件擴展名後三位
/ p$ A- M( W8 z
Select Case Type_ '判定SW文件型式
9 z: f- a; } x% e+ ]1 J
'開零件檔並存檔* x- z6 I- i4 {: ]- g
Case "PRT") g, o' B2 i6 d; J* D
Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)
9 b6 D% |6 k9 @ v$ T2 L7 Z) f: }
Set Part = swApp.ActiveDoc
' r. Z. y. y9 Y6 A
Part.Save
. F% F( N9 y/ y: O# V
'開組件檔) Y7 x4 E" Z( M2 m9 b9 n/ T* |
Case "ASM"5 y5 k8 F9 a3 v
Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)
" A8 k2 m) m2 ~3 z! S6 F2 O" i
'開工程圖
" N( u, L5 `* `3 l* e. D4 A
Case "DRW"2 x+ _4 z" k* N7 H G
Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings)8 m6 m( |5 x: y. i- r9 C
' W7 J0 N, E6 V
End Select
) d+ G0 J2 K1 u/ \9 B
Set swModel = Nothing- z* Y8 R# \; U4 f
swApp.CloseDoc (sFileName): ^3 k$ y0 F. C' ^
sFileName = Dir '同路徑取出下個SW文件檔名
# i5 f% U; J- b5 E _6 D: F7 j
Loop
% S/ v0 ^( d: L$ `# Y; v
End Sub

复制代码

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

杨猛0230 发表于 2017-3-3 10:450 f% J! i' [) ], x+ J/ Y
那如何才能将打开三种文件的代码整合到一个宏里面？望大侠指教

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

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

solidworks 批量执行宏

相关帖子

本帖子中包含更多资源