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

ryouss

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

. O: }2 B/ V, R
! r9 B0 p% o% C
- f6 W- H$ G. g/ [$ L- {1 X
! `, a# ]+ V4 h6 b8 _; g- k
5 ?( {' r: ~4 K5 B

1. ' ************************************************************************************
   
2. ' 依據(jù)配置特定屬性之"件號"及"名稱"存檔 - macro recorded on 10/30/18 by scliang
   
3. ' ************************************************************************************
   8 V; C8 R" f( |' d. h: M& M
4. 
   
5.     Dim swApp               As SldWorks.SldWorks
   
6.     Dim swModel             As SldWorks.ModelDoc2
   
7.     Dim swConfigMgr         As SldWorks.ConfigurationManager
   
8.     Dim swConfig            As SldWorks.Configuration
   
9.     Dim swCustPropMgr       As SldWorks.CustomPropertyManager
   
10.     Dim nNbrProps           As Long
    
11.     Dim Part                As Object
    
12.     Dim Code_Name(2)        As String
    * p: c0 K& D$ |; ?$ Z
13.     Dim valOut              As String
    6 ]! n! a4 O8 d7 k0 N9 I
14.     Dim resolvedValOut      As String
    7 n( Z4 n( L) F) d, V/ M, @
15.     Dim longstatus          As Long
    
16. 
    : f# Y6 p% R2 V% o6 f2 u
17. 
    ! Z& o  ]/ w% L: P' m
18. Sub main()
    ; E; |" l: y# z- j) o" k& w, }& Y2 R6 Q- D
19. 
    * [& V! S4 k; O/ P$ U5 `4 }
20.     Set swApp = Application.SldWorks
    
21.     Set swModel = swApp.ActiveDoc
    * a: @6 t7 V* x( t
22.     Set swConfigMgr = swModel.ConfigurationManager
    + _) S2 b4 k, i6 x+ ~
23.     Set swConfig = swConfigMgr.ActiveConfiguration
    
24.     Set swCustPropMgr = swConfig.CustomPropertyManager
    $ g+ ^3 t( k- F' |, o! G' o3 A- I
25.     ' Get the number of custom properties for this configuration
    / i0 K$ K, G. i+ P# b" F8 N; U
26.     nNbrProps = swCustPropMgr.Count
    
27.     vPropNames = swCustPropMgr.GetNames
    
28.     For j = 0 To nNbrProps - 1
    
29.         swCustPropMgr.Get2 vPropNames(j), valOut, resolvedValOut
    
30.         If vPropNames(j) = "代號" Then Code_Name(0) = valOut
    
31.         If vPropNames(j) = "名稱" Then Code_Name(1) = valOut
    4 b9 Z0 F1 k3 Z: q* r0 H5 p, ?
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 '取得"路徑名稱及擴展名",不管擴展名是否隱藏
    - D% c7 }8 z$ m% r! [
35.     Path_ = Left(Path_Name, InStrRev(Path_Name, "")) '提出路徑
    
36.     Set Part = swApp.ActiveDoc
    
37.     longstatus = Part.SaveAs3(Path_ & Code_Name(0) & " " & Code_Name(1) & ".SLDPRT", 0, 2) '依據(jù)配置屬性"件號"及"名稱"存檔
    
38. 
    6 K) L0 z7 Z* T& B5 ?% w0 k
39. End Sub
    

復制代碼

zx65606

圖號分離,？

ryouss

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

9 F- \1 d, w: H. i非也!如主題名稱.
: Q, Y# s" T+ ?  ~' R6 ?

遠祥

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

ryouss

遠祥 發(fā)表于 2018-11-16 22:06
; H+ t7 w# C) b- O5 i這個動態(tài)圖樓主用什么軟件截取的,，求教一下�,。�

Camtasia Studio 8.0 軟件截取的
7 ^0 K! y$ I" x/ O