|
|
发表于 2013-7-4 00:47:43
|
显示全部楼层
来自: 中国浙江嘉兴
本帖最后由 ryouss 于 2013-7-4 00:52 编辑
7 w; z. N& D9 d" @1 ]/ w
' c1 z! d( O" V9 h+ i2012 SP4版測試
4 O7 s' ~& f% N6 Y8 m t' ******************************************************************************" { g% S* k2 e3 U
' macro recorded on 07/03/13 by scliang
" K5 b; z; h- m* k/ _'
- R" b; l3 G/ c' 測試版本:2012 SP44 f: y4 V" i) E4 U( l
' 批量把 .SLDPRT 文件轉為 .X_T 文件
' v6 y4 T- i2 L/ a" c5 s. U% L9 o' 設 文件路徑名稱為 C:\XT\101.SLDPRT~150.SLDPRT
$ a5 |8 E: ?! D( Y- B$ B# n' A/ m$ ?, x9 ~9 R: T
' ******************************************************************************
6 w( |8 R: j) U" h" mDim swApp As Object1 g# b% ]+ @5 {) k( n
Dim Part As Object+ C- S. {& W* S3 J" T7 r- u
Dim longstatus As Long, longwarnings As Long
! r) O+ m) T5 N, ~" [
. ]# Q- P" |& H! ISub main()
) f! i6 }% R$ [+ y
( [( G9 o/ K9 _: { V$ J* e% D3 C" ySet swApp = Application.SldWorks
" b1 ?: ^. c- {, t2 oSet Part = swApp.ActiveDoc
( P3 ?- u) L! h* W3 J) w2 TDim path_ As String
& e) u+ _. N! x* G" G( Qpath_ = "C:\XT\"1 G! s |; f( B* K
For FileName = 101 To 150 '依實際名稱代碼修改0 p( ?. {3 s. U! a
Set Part = swApp.OpenDoc6(path_ & FileName & ".SLDPRT", 1, 0, "", longstatus, longwarnings)
* @# j) C$ |6 E# g. B9 Olongstatus = Part.SaveAs3(path_ & FileName & ".X_T", 0, 0)
3 G) e8 z+ {/ o5 N- pswApp.CloseDoc path_ & FileName & ".SLDPRT"; ]# g, g7 {2 X4 @
Next1 ^8 w+ f2 t5 a+ F0 `
End Sub- H2 h) F% v3 K5 i
Macro_xt.rar
(6.77 KB, 下载次数: 67)
|
评分
-
查看全部评分
|