|
|
发表于 2013-7-4 00:47:43
|
显示全部楼层
来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2013-7-4 00:52 编辑 - r( S4 ^: Q! ]' A
, M+ d% ]# z s: a4 B4 D) E k2012 SP4版測試
2 S3 o# [/ f! f' n8 g, b& V' ******************************************************************************" S# u P4 i5 K6 Y' c; Y1 {
' macro recorded on 07/03/13 by scliang, ]% I: K# D1 G% O1 q- H
'
: k- t4 c6 u+ G: W3 j' 測試版本:2012 SP4
# Z; \$ D* s: T: M; @# \1 p' O1 A1 [( ]' 批量把 .SLDPRT 文件轉為 .X_T 文件+ I H! e0 U- i7 u
' 設 文件路徑名稱為 C:\XT\101.SLDPRT~150.SLDPRT, r- d y% {/ c, d: `5 K
'/ R: \% \( i5 Q% f4 z
' ******************************************************************************; |$ [. g+ V, _4 \$ P
Dim swApp As Object
$ N! L3 V, F/ xDim Part As Object' J! ^. c. b9 m$ H6 R5 I# q6 O
Dim longstatus As Long, longwarnings As Long
% |) m3 c8 }9 @. @ A- O
$ L0 N5 {) x5 F3 ?4 XSub main()
) v& d" o! H$ z, Z. r
; e3 `6 t- u& J8 @2 u( H; ZSet swApp = Application.SldWorks
& A, P* P; r5 o, C4 {( LSet Part = swApp.ActiveDoc, \1 J/ g7 ^# ?# w
Dim path_ As String$ Y' g2 m$ A# l
path_ = "C:\XT\"
- Q6 f2 k4 a( j) ^For FileName = 101 To 150 '依實際名稱代碼修改
5 T; m- P- `6 NSet Part = swApp.OpenDoc6(path_ & FileName & ".SLDPRT", 1, 0, "", longstatus, longwarnings)
3 A3 I; _) F$ Z* I0 n' I7 Elongstatus = Part.SaveAs3(path_ & FileName & ".X_T", 0, 0)
2 j2 o( {9 Q+ a( V- oswApp.CloseDoc path_ & FileName & ".SLDPRT"- ~$ [9 w2 ]* f: | r4 @" b
Next/ E5 V/ R& n4 Y5 a# \, p- b0 R
End Sub0 d9 v+ i% c( E: R) _, V
Macro_xt.rar
(6.77 KB, 下载次数: 67)
|
评分
-
查看全部评分
|
发表于 2012-7-26 07:53:01
楼主