|
|
发表于 2013-7-4 00:47:43
|
显示全部楼层
来自: 中国浙江嘉兴
本帖最后由 ryouss 于 2013-7-4 00:52 编辑
! [) \: i7 F4 D' C2 T5 s( W4 m T6 i
2012 SP4版測試
. N# z1 \1 F2 z$ J7 N) n' ******************************************************************************
4 I' a2 u8 T$ y9 Z* P9 ?' macro recorded on 07/03/13 by scliang
* x5 {0 r9 l6 ], L9 S+ K'. H+ O/ I9 y5 `
' 測試版本:2012 SP4
. D- D* C6 o- k' 批量把 .SLDPRT 文件轉為 .X_T 文件
- ]8 i& \! T5 D8 L! i' 設 文件路徑名稱為 C:\XT\101.SLDPRT~150.SLDPRT, I6 [+ R1 x4 I2 }1 A) Z0 x/ p
'
4 h# Q: u6 t& e4 X! W: z" I" {' ******************************************************************************6 i/ s+ f! r' X4 ?: ^2 t
Dim swApp As Object3 K2 R# u$ e u8 |! s
Dim Part As Object
3 \- B, H8 b$ Q" @& S" fDim longstatus As Long, longwarnings As Long
" K) ]* r; h/ L- g
, q/ _- U( v% d7 G% j4 JSub main()
* P; y7 s/ @: w; \
2 S4 N- B3 w. LSet swApp = Application.SldWorks
+ j7 {% c! S- r% c( h- }8 a0 lSet Part = swApp.ActiveDoc
, Y/ ]1 Z2 C6 d& N5 Y z$ bDim path_ As String0 e& L' ]8 U& [! }1 z, @
path_ = "C:\XT\"* v& q4 u, d3 w6 m% ?
For FileName = 101 To 150 '依實際名稱代碼修改
$ U* ~9 G+ O5 _. {; pSet Part = swApp.OpenDoc6(path_ & FileName & ".SLDPRT", 1, 0, "", longstatus, longwarnings)
+ P9 `, N1 p, T/ M8 u- `- slongstatus = Part.SaveAs3(path_ & FileName & ".X_T", 0, 0)
, O4 p" ]; R" l% b8 }& h9 U, u4 C9 QswApp.CloseDoc path_ & FileName & ".SLDPRT"
( @# X2 _( Y, [( n" c7 d9 SNext
3 \6 _3 b% W; V0 I% lEnd Sub" m7 f1 U4 E& [" T$ a
Macro_xt.rar
(6.77 KB, 下载次数: 67)
|
评分
-
查看全部评分
|