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

ryouss

分享在他網的回覆
: \9 W+ m9 Q$ U. N- @( N

8 K9 Y% W! A4 c$ p* N9 i1 L" t
: c. \# \; P5 a1 z
; ?6 m2 B' G! K  X" u3 X
& g# A, {; Y2 W& @2 G4 D+ V; O

1. ' ************************************************************************************
   ' q0 m4 ?8 b; }- P; V% V
2. ' 依據(jù)配置特定屬性之"件號"及"名稱"存檔 - macro recorded on 10/30/18 by scliang
   # V8 F  R6 e% ~1 G8 L# m- d/ z0 Z1 Q
3. ' ************************************************************************************
   
4. 
   
5.     Dim swApp               As SldWorks.SldWorks
   . a( \) f' D* A' k
6.     Dim swModel             As SldWorks.ModelDoc2
   2 D( j5 K) ]9 S
7.     Dim swConfigMgr         As SldWorks.ConfigurationManager
   1 X  c% ?9 q  p, @5 m+ |- R2 w2 D6 a* i
8.     Dim swConfig            As SldWorks.Configuration
   6 B9 p$ ~8 ]6 ?% p$ j
9.     Dim swCustPropMgr       As SldWorks.CustomPropertyManager
   2 \: L7 t7 k" C9 o
10.     Dim nNbrProps           As Long
    
11.     Dim Part                As Object
    ! X) v: d0 m: s
12.     Dim Code_Name(2)        As String
    
13.     Dim valOut              As String
    $ ?3 G5 p" _+ @0 x2 I1 j
14.     Dim resolvedValOut      As String
    9 _$ C: J/ E% |/ \6 p
15.     Dim longstatus          As Long
    
16. 
    * |/ Q! o7 `/ ^, u9 v: L+ n
17. 
    
18. Sub main()
    1 ~1 c6 [& P4 k4 s$ I1 K; Q- V
19. 
    ; `, m* U& }, e* b6 V3 [/ a
20.     Set swApp = Application.SldWorks
    
21.     Set swModel = swApp.ActiveDoc
    
22.     Set swConfigMgr = swModel.ConfigurationManager
    
23.     Set swConfig = swConfigMgr.ActiveConfiguration
    ) Z; N5 A) b7 j1 f4 f7 m1 q2 n; T% M
24.     Set swCustPropMgr = swConfig.CustomPropertyManager
    5 l4 a* N+ K/ `
25.     ' Get the number of custom properties for this configuration
    , Y. I$ H. d- Z6 c
26.     nNbrProps = swCustPropMgr.Count
    1 ~5 X4 o  d1 ^/ |8 K
27.     vPropNames = swCustPropMgr.GetNames
    ; n: ?6 E1 a; X& h
28.     For j = 0 To nNbrProps - 1
    ' f8 m3 `/ ?9 a# O5 h3 }' }! J
29.         swCustPropMgr.Get2 vPropNames(j), valOut, resolvedValOut
    2 i# c3 s8 T+ [6 R# M; ^' a1 N1 e
30.         If vPropNames(j) = "代號" Then Code_Name(0) = valOut
    4 F$ |* S& U$ [" c0 `# h
31.         If vPropNames(j) = "名稱" Then Code_Name(1) = valOut
    $ l% C/ }6 o! e& F3 H
32.     Next j
    
33.     'Debug.Print "    Name, type, and resolved value of custom property:  " & "代號: " & Code_Name(0) & " ----- " & "名稱:" & Code_Name(1)
    
34.     Path_Name = swApp.ActiveDoc.GetPathName '取得"路徑名稱及擴展名",不管擴展名是否隱藏
    
35.     Path_ = Left(Path_Name, InStrRev(Path_Name, "")) '提出路徑
    . ?2 l: k( B+ Z- b6 P
36.     Set Part = swApp.ActiveDoc
    # j: b# J4 d2 @  T8 k+ i& K. l; X8 D
37.     longstatus = Part.SaveAs3(Path_ & Code_Name(0) & " " & Code_Name(1) & ".SLDPRT", 0, 2) '依據(jù)配置屬性"件號"及"名稱"存檔
    2 b; u9 |# ~* J$ I  i/ l
38. 
    
39. End Sub
    0 `$ }, n4 ~/ c) ?0 U% F

復制代碼

3 x) y+ S; o6 K9 U* u& T
" P% @" {+ M9 R" Z

zx65606

圖號分離？

ryouss

zx65606 發(fā)表于 2018-11-15 16:15
圖號分離,？

+ \/ u# e$ P9 s" S; q6 X, u8 C非也!如主題名稱.

遠祥

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

ryouss

遠祥 發(fā)表于 2018-11-16 22:06
這個動態(tài)圖樓主用什么軟件截取的,，求教一下！,！

2 J/ ~' d) s3 J4 GCamtasia Studio 8.0 軟件截取的
) x9 K- O! J' P0 V4 \% [