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:10
# S" `4 m c3 y6 [' @, Z% n劝你到三维网和开思找，那里有几位研究宏的大神。
9 c6 R1 Q6 Q/ H0 ~: P还有为什么要批量打开零件文件，屏幕能装的下吗

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

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

魍者归来发表于 2017-3-1 09:37
; t! r7 M; k6 f1 ]- u从第三行开始，每行的part楼主没看到么？替换成工程图和装配体就好。不知道怎么敲代码就自己录制宏，看一下 ...

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

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

footleft 发表于 2017-3-1 09:50
& w f6 \6 a( m m7 }; C6 Q4 D这个难道不是图中圈住的改为"slddrw"和"sldsam"吗？

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

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

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

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

'# x4 b# Q1 U" E6 t
' 在某文件路徑下批量開零件,裝配件及工程圖( {$ y8 g, h* `- p# R J1 T+ a1 I
' sc liang 2017/3/4! C# }) t* E# K# W- t. q
' 測試版 2012 sp41 ]' H* S7 q( u" ^" B% h
'
5 r. H& P* Y; [, P, z
Dim nErrors As Long
' f3 m+ i; `8 l0 D, c
Dim nWarnings As Long" W C. Y% y( T, |0 R7 r, l
3 j: ^: h8 G9 Q; \' W+ `& G
Sub Test()0 A& ]2 u& B8 N) Q/ u# R( [
Set swApp = Application.SldWorks9 x5 Z* |: Z$ D y: m
Set swModel = swApp.ActiveDoc
( J9 ?- Y/ `; Q6 I
path = "D:\Project" '存檔路徑; E) y* C4 |/ u) O4 ]
sFileName = Dir(path & "*.sld*") '取出SW文件% C3 u2 g) f5 p8 K( t
'循環開檔# U( Q! w, F9 C: Q0 G
Do Until sFileName = ""/ ]' N) T6 b* a8 d$ F
Type_ = Right(sFileName, 3) '取得SW文件擴展名後三位, r$ Y5 z$ U2 o/ A% j% G$ E
Select Case Type_ '判定SW文件型式
/ L3 q/ D, ~, B# D0 e# J) o
'開零件檔並存檔8 B1 K3 m4 C4 P7 P
Case "PRT"
4 l) }5 ~+ l" D( k% k
Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)5 [3 U, e4 c/ b+ c! s3 }
Set Part = swApp.ActiveDoc
1 a# W4 Y* P6 i! P1 d0 f
Part.Save
( y: E; \2 e! z2 l" f5 y
'開組件檔) I; Y: o" p' M: O2 f
Case "ASM"
; K& n5 K2 K, M1 I$ C
Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings), F8 [; [& ?- {, O
'開工程圖
. l; g5 k! D0 M7 m
Case "DRW"2 N0 E' k! u% K: U/ J: e0 n
Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings)
8 T" B5 m# f \. f% }
: J# c; D2 G6 s) B- F( i) E
End Select+ Y# m1 n: I) h2 R% f( S! O+ e1 j& @7 C9 L
Set swModel = Nothing
# K, p) x0 `# I% h# i+ u
swApp.CloseDoc (sFileName)
- |2 G; z; ?6 U% R
sFileName = Dir '同路徑取出下個SW文件檔名/ P* G3 U5 l& \* G$ z1 i
Loop& p) F4 v$ \9 R% b9 J, Y5 Z: ]: ?
End Sub

复制代码

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

杨猛0230 发表于 2017-3-3 10:45
' X" f/ q' q* {# |) I那如何才能将打开三种文件的代码整合到一个宏里面？望大侠指教

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

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

solidworks 批量执行宏

相关帖子

本帖子中包含更多资源