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$ B4 D) J, `0 B8 c8 U& d3 k
劝你到三维网和开思找，那里有几位研究宏的大神。, y5 A' k+ O% [) \ S7 B
还有为什么要批量打开零件文件，屏幕能装的下吗

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

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

魍者归来发表于 2017-3-1 09:37; d% U, S/ C1 z' ~
从第三行开始，每行的part楼主没看到么？替换成工程图和装配体就好。不知道怎么敲代码就自己录制宏，看一下 ...

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

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

footleft 发表于 2017-3-1 09:50$ r5 r: j6 M3 q/ e) H( b
这个难道不是图中圈住的改为"slddrw"和"sldsam"吗？

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

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

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

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

'+ T& L' a% V& ]% j: N; _+ o
' 在某文件路徑下批量開零件,裝配件及工程圖+ n. f. V# C, e6 l ^+ a
' sc liang 2017/3/4
+ G' v4 c8 t2 w1 S6 b8 D' I
' 測試版 2012 sp4
% W; l; N* I5 M3 S& R
'
2 o3 k+ ~- B3 J/ b
Dim nErrors As Long
; y0 G t+ v; a' n6 Y
Dim nWarnings As Long& S; A5 j; C6 K. S! K# M
, J' V8 R- O. k E
Sub Test()
; i' o! k' k: p3 y
Set swApp = Application.SldWorks+ t% o$ m3 O: k, T
Set swModel = swApp.ActiveDoc8 i8 t8 E5 N$ A1 [1 U
path = "D:\Project" '存檔路徑/ ~8 N9 z9 }! d5 Y+ g
sFileName = Dir(path & "*.sld*") '取出SW文件
) s/ z7 z2 j W) a" i0 T- j
'循環開檔: n0 Y3 A% Y! D/ K3 W' P
Do Until sFileName = ""6 T# O0 }- ^7 r1 [8 n% |; G
Type_ = Right(sFileName, 3) '取得SW文件擴展名後三位
; G6 [; W+ y% p! Q3 ]
Select Case Type_ '判定SW文件型式
) e) l% [2 M" { X% e+ V
'開零件檔並存檔
5 j! b! c" e# ~
Case "PRT" C' X; K, O# E$ v( n
Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings)! {- D* R+ Y5 R0 P
Set Part = swApp.ActiveDoc
* h) |# l% m% C( e9 c/ `
Part.Save, y9 _( s, I( ?# Y( {
'開組件檔
: [0 S+ A$ t' o5 ~
Case "ASM"9 t: @: K. `" `8 \
Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)& d. _+ M/ l* h- f9 W3 `. Z) N- D
'開工程圖 , \7 Z- @/ T1 D9 T
Case "DRW"1 y$ x6 K! R9 o4 ~5 e: l1 g" u, V. M
Set swModel = swApp.OpenDoc6(path + sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", nErrors, nWarnings)
1 T! }+ a8 _; B5 f+ r
- |, _" N1 c) h- l& M9 n
End Select" M, ~4 _" a$ }6 T1 W3 d
Set swModel = Nothing; G% b6 O. ~) a1 @1 Z j
swApp.CloseDoc (sFileName)" Q* c8 x$ H/ N9 v
sFileName = Dir '同路徑取出下個SW文件檔名
6 o) Q4 z L" u: Z
Loop
" a" B+ v2 Z& W- B3 E
End Sub

复制代码

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

杨猛0230 发表于 2017-3-3 10:450 {9 m A0 y6 v( _& A: a6 v
那如何才能将打开三种文件的代码整合到一个宏里面？望大侠指教

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

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

solidworks 批量执行宏

相关帖子

本帖子中包含更多资源