|
|
' i4 `1 Y$ ?. z' Y9 G: H分享在他網的回覆
+ }6 ^$ I. Q; \' u: I) O* o/ e; x6 S, O) B2 U. ]3 [- ^
6 K: @2 T1 a; D3 _* X3 x( r$ T/ R1 ?# `* V7 u% Z
9 ^! N3 X- a8 u4 K) D5 N, ?; [ e" q) i$ [
- ' ************************************************************************************
: u/ n3 R4 K2 \& W) d2 g) D* Z% \ - ' 依據配置特定屬性之"件號"及"名稱"存檔 - macro recorded on 10/30/18 by scliang
8 j p. f2 e, f- ^$ C& t" l+ ^ - ' ************************************************************************************
, T/ S8 P& G, ~& y" b) V
# q. b5 q# x' L8 t+ Y- Dim swApp As SldWorks.SldWorks1 X/ V: p+ L% y
- Dim swModel As SldWorks.ModelDoc2% o9 w! `' u& M: ~/ c4 X( F
- Dim swConfigMgr As SldWorks.ConfigurationManager- O% V) o; W8 d6 O' _$ m5 J- X
- Dim swConfig As SldWorks.Configuration$ ~) U: U6 } ~6 Q' @! x, A J
- Dim swCustPropMgr As SldWorks.CustomPropertyManager# T$ n7 W) r5 C9 G
- Dim nNbrProps As Long4 y) X6 _. d/ [" R
- Dim Part As Object
9 M: L; C6 H3 \, p- ]) k/ x2 t - Dim Code_Name(2) As String1 |! B! D0 q% o. h2 L
- Dim valOut As String% `3 h& e# y. N* t/ I
- Dim resolvedValOut As String
/ W1 |4 C: w: Z6 C/ x - Dim longstatus As Long0 f$ V; ], O/ a! C( h$ Y8 ]
- a3 L, B& Q* J7 }3 M
) _1 v1 E% s; p6 z3 P8 |- Sub main()2 M& m3 `8 Q7 p1 W# D
- 3 t. {0 z- E) m+ b, U9 I0 i; x' t
- Set swApp = Application.SldWorks
& [% {9 D5 Q! y- I. d9 A - Set swModel = swApp.ActiveDoc
2 `2 P5 x% }$ V7 W9 k# N/ [1 ]5 P# d - Set swConfigMgr = swModel.ConfigurationManager; ~4 q6 ?& z+ _* {7 d: }
- Set swConfig = swConfigMgr.ActiveConfiguration0 y9 u4 j6 M: [; J& j
- Set swCustPropMgr = swConfig.CustomPropertyManager2 Y+ }9 ^0 w1 N( g" H m
- ' Get the number of custom properties for this configuration
. Q; @4 l. Y, Z& t - nNbrProps = swCustPropMgr.Count, k% m+ c- \# n( O" l: h
- vPropNames = swCustPropMgr.GetNames
7 |* |5 t0 P+ _* \8 m- ?+ L! \ - For j = 0 To nNbrProps - 1
* e1 G; {9 S: D, O& `6 g - swCustPropMgr.Get2 vPropNames(j), valOut, resolvedValOut
: f7 B4 H- e9 W. a* g - If vPropNames(j) = "代號" Then Code_Name(0) = valOut7 _: o% l$ ]& L4 a3 n3 U* j2 f$ V$ ?
- If vPropNames(j) = "名稱" Then Code_Name(1) = valOut
9 S# X7 B! n" I8 x9 _1 T/ b* T - Next j
, {- ?& @4 Z% p6 l) a8 d6 G8 H7 {% c - 'Debug.Print " Name, type, and resolved value of custom property: " & "代號: " & Code_Name(0) & " ----- " & "名稱:" & Code_Name(1)
+ H. G% y' O- T1 \! K - Path_Name = swApp.ActiveDoc.GetPathName '取得"路徑名稱及擴展名",不管擴展名是否隱藏
0 R8 G7 f: e2 a% j! Z# E% Y$ R; T - Path_ = Left(Path_Name, InStrRev(Path_Name, "")) '提出路徑$ x& w; F7 ]) {
- Set Part = swApp.ActiveDoc% Y* d! u3 f9 d- I$ J$ q
- longstatus = Part.SaveAs3(Path_ & Code_Name(0) & " " & Code_Name(1) & ".SLDPRT", 0, 2) '依據配置屬性"件號"及"名稱"存檔
( I5 }1 I7 J$ G4 q" P% |0 l
3 ?& q* V+ E0 y4 f( x- End Sub
6 P& Z, y5 L0 c( J: y3 E
3 Q$ f, u* _& E# M; U0 z c! k( ~8 V; n: [0 \7 l
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有账号？注册会员
×
评分
-
查看全部评分
|
发表于 2018-11-15 13:32:28
