|
|
发表于 2013-7-4 00:47:43
|
显示全部楼层
来自: 中国浙江嘉兴
本帖最后由 ryouss 于 2013-7-4 00:52 编辑 : u1 }0 O6 C* S
3 F5 D1 u' |3 d
2012 SP4版測試' ]$ Z, C4 E+ p$ G# Z) x# |
' ******************************************************************************. b T9 A9 K+ c& ?5 U
' macro recorded on 07/03/13 by scliang9 v7 \) R* w+ R4 ]8 S H6 d; a9 Y' A1 q
'
* G* B, |" X* d' ?; V7 ~0 o' 測試版本:2012 SP4
# {" B7 ?. |7 d' v9 h' 批量把 .SLDPRT 文件轉為 .X_T 文件4 e% S o; r" `% e, `, p; y! k
' 設 文件路徑名稱為 C:\XT\101.SLDPRT~150.SLDPRT
2 B$ Y M% k, E. K" }'
3 j* g0 j4 c( X& ]$ }9 V' ******************************************************************************
0 x, K* q0 U# e2 XDim swApp As Object8 `5 l7 J) q- B$ W' \: p
Dim Part As Object6 X7 Q5 E V4 S. a5 L1 H
Dim longstatus As Long, longwarnings As Long' D3 f0 C% x+ l9 n/ X; }" N
$ H* z) A5 D' p% TSub main()) L: n# X% q# U7 z
. x; \6 L) `& [* J" B6 ~
Set swApp = Application.SldWorks
; ~) Q" ^( o8 ], N( \/ SSet Part = swApp.ActiveDoc
* }, U; V! H5 VDim path_ As String; G: \* i4 q9 \: e J: B& y* q
path_ = "C:\XT\"+ A/ g4 Q6 h" y8 Z1 W+ S% L
For FileName = 101 To 150 '依實際名稱代碼修改
% q4 e9 f$ R tSet Part = swApp.OpenDoc6(path_ & FileName & ".SLDPRT", 1, 0, "", longstatus, longwarnings)4 ] \) p; P) y- y2 `8 q( Y3 f
longstatus = Part.SaveAs3(path_ & FileName & ".X_T", 0, 0)+ Q6 Z8 C! J: y4 u |! N
swApp.CloseDoc path_ & FileName & ".SLDPRT"& Z3 t6 T1 N4 _) F& _
Next
+ K. g' W7 u n. b8 EEnd Sub
. K! L6 I* E% L1 k$ i9 k
Macro_xt.rar
(6.77 KB, 下载次数: 67)
|
评分
-
查看全部评分
|