依據(jù)配置特定屬性之"件號(hào)"及"名稱"存檔

ryouss · 發(fā)表于 2018-11-15 13:32:28

分享在他網(wǎng)的回覆

' ************************************************************************************
3 O: b. C, |: v& x9 _
' 依據(jù)配置特定屬性之"件號(hào)"及"名稱"存檔 - macro recorded on 10/30/18 by scliang2 b2 E1 f( O2 o; f5 w5 m- H
' ************************************************************************************, L( F- P/ l$ k, [) |+ i/ N
; o o I+ F( Q& ~ K, c9 I% H
Dim swApp As SldWorks.SldWorks
' o. I# x% G, Y. K- z
Dim swModel As SldWorks.ModelDoc24 F- b; y0 Y4 H8 S% ^! g" h
Dim swConfigMgr As SldWorks.ConfigurationManager
; ]) F, a0 m0 ~, o t3 j
Dim swConfig As SldWorks.Configuration
/ K# ]# S, h6 D7 U( Y. n |! D
Dim swCustPropMgr As SldWorks.CustomPropertyManager
8 z+ y& j3 ?+ x+ d, ~" H9 r
Dim nNbrProps As Long7 {5 |6 Y, ^ X$ _
Dim Part As Object
2 i s2 }8 Q/ |* { D+ |9 s5 C4 {
Dim Code_Name(2) As String2 v) [! X1 F, D/ \# u+ r: B
Dim valOut As String
2 z3 f) n$ ]/ L, d3 v5 o* ]
Dim resolvedValOut As String4 u3 t+ `* a p* [' T
Dim longstatus As Long; a4 b) O. X; H. p L% D) ^" e8 u
# s; L1 M7 R+ k
6 l; X6 \; a3 }8 |9 q
Sub main()8 P. a; ]( \+ q$ g2 x
& ]( q: X$ g( z5 E8 j0 Q
Set swApp = Application.SldWorks
3 c" B1 S7 l8 M' [4 C
Set swModel = swApp.ActiveDoc
' g0 N8 z- n+ G/ h! m
Set swConfigMgr = swModel.ConfigurationManager R( P7 z, h. m- Q& w7 O9 `
Set swConfig = swConfigMgr.ActiveConfiguration) W/ S1 G# Z( `/ b( @
Set swCustPropMgr = swConfig.CustomPropertyManager) S. B' w; U2 {1 {
' Get the number of custom properties for this configuration, l ~4 E% u7 @$ Q0 b% [* W% ^
nNbrProps = swCustPropMgr.Count' C3 H5 b* A; W2 K/ I
vPropNames = swCustPropMgr.GetNames
# z& h% Q9 X! h! N
For j = 0 To nNbrProps - 1& `+ X2 M2 F; L' n% ^' H% \' d5 c5 |
swCustPropMgr.Get2 vPropNames(j), valOut, resolvedValOut
1 l/ v' b+ T3 ?3 g' \, P) Z& f
If vPropNames(j) = "代號(hào)" Then Code_Name(0) = valOut* R/ i: i" B2 v/ K* n( t1 q
If vPropNames(j) = "名稱" Then Code_Name(1) = valOut2 { b: `% ]4 r, F
Next j
( U# ^, n4 e3 u' U1 d$ Y8 W. h
'Debug.Print " Name, type, and resolved value of custom property: " & "代號(hào): " & Code_Name(0) & " ----- " & "名稱:" & Code_Name(1)
0 }) o% n+ J' ?$ Y* Z; E
Path_Name = swApp.ActiveDoc.GetPathName '取得"路徑名稱及擴(kuò)展名",不管擴(kuò)展名是否隱藏5 _3 r0 x* l" }1 n& R8 h' J
Path_ = Left(Path_Name, InStrRev(Path_Name, "")) '提出路徑3 q- X; Q* _' c# G4 V; B
Set Part = swApp.ActiveDoc
7 \" w, [$ k0 R4 d# I
longstatus = Part.SaveAs3(Path_ & Code_Name(0) & " " & Code_Name(1) & ".SLDPRT", 0, 2) '依據(jù)配置屬性"件號(hào)"及"名稱"存檔0 H0 T$ A$ d: |" Y: V) g
) ]5 b; r. e1 W0 D5 J% N
End Sub( D3 Q9 F0 N- j8 a

復(fù)制代碼

zx65606 · 發(fā)表于 2018-11-15 16:15:01

圖號(hào)分離,？

ryouss · 發(fā)表于 2018-11-15 20:19:10

zx65606 發(fā)表于 2018-11-15 16:15
2 w* D1 ?/ N, y% `$ W; |: f圖號(hào)分離,？

非也!如主題名稱.

遠(yuǎn)祥 · 發(fā)表于 2018-11-16 22:06:09

這個(gè)動(dòng)態(tài)圖樓主用什么軟件截取的，求教一下�,�,！

ryouss · 發(fā)表于 2018-11-16 23:23:41

遠(yuǎn)祥發(fā)表于 2018-11-16 22:06
5 [1 g6 D D' C& r @- P這個(gè)動(dòng)態(tài)圖樓主用什么軟件截取的，求教一下！,！

Camtasia Studio 8.0 軟件截取的

		自動(dòng)登錄	找回密碼
密碼			注冊會(huì)員

依據(jù)配置特定屬性之"件號(hào)"及"名稱"存檔

本帖子中包含更多資源

評分