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

ryouss

! _0 ], ~' _3 r6 ~, ^% J分享在他網的回覆




9 b% A; M! v7 J3 r. C/ }

1. ' ************************************************************************************
   ) L4 g8 ?; f2 L  G: c- q# J4 G7 ~
2. ' 依據配置特定屬性之"件號"及"名稱"存檔 - macro recorded on 10/30/18 by scliang
   
3. ' ************************************************************************************
   
4. 
   9 [5 `0 X4 A5 t9 T3 J# s
5.     Dim swApp               As SldWorks.SldWorks
   
6.     Dim swModel             As SldWorks.ModelDoc2
   6 ]' E0 _, ]! L, u$ J  Z3 I1 Z
7.     Dim swConfigMgr         As SldWorks.ConfigurationManager
   1 S! F; A2 V2 }# q0 _* g$ |/ l
8.     Dim swConfig            As SldWorks.Configuration
   
9.     Dim swCustPropMgr       As SldWorks.CustomPropertyManager
   
10.     Dim nNbrProps           As Long
    ; N$ E7 {. b1 w1 F( C5 P0 D5 V+ A
11.     Dim Part                As Object
    
12.     Dim Code_Name(2)        As String
    7 M/ H& e9 X% `- b( p; g- c, q
13.     Dim valOut              As String
    0 n5 l# A% y% n1 [' G
14.     Dim resolvedValOut      As String
    4 a% W6 D0 G& t2 f- r6 W& O
15.     Dim longstatus          As Long
    
16. 
    
17. 
    9 B" _) V: I6 g/ r0 Q
18. Sub main()
    
19. 
    * L( E9 V9 }$ ]* P5 [; t$ A* R
20.     Set swApp = Application.SldWorks
    5 T, m4 o5 g0 V9 K3 i! u  D+ M
21.     Set swModel = swApp.ActiveDoc
    
22.     Set swConfigMgr = swModel.ConfigurationManager
    
23.     Set swConfig = swConfigMgr.ActiveConfiguration
    * c. L, F+ m6 B' n6 S
24.     Set swCustPropMgr = swConfig.CustomPropertyManager
    
25.     ' Get the number of custom properties for this configuration
    
26.     nNbrProps = swCustPropMgr.Count
    8 a/ f6 f/ _$ V9 ?/ g% c' t
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
    ; u# M3 A8 B: j" D* E3 D0 w& A$ _
32.     Next j
    ) f6 w) @& P0 ~. {0 {( R0 |
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, "")) '提出路徑
    ( K0 k, Y1 {! Y
36.     Set Part = swApp.ActiveDoc
    
37.     longstatus = Part.SaveAs3(Path_ & Code_Name(0) & " " & Code_Name(1) & ".SLDPRT", 0, 2) '依據配置屬性"件號"及"名稱"存檔
    
38. 
    % I0 X8 {8 T3 h- T* U
39. End Sub
    6 m5 L* J0 S) x6 c- r0 I

复制代码

zx65606

图号分离？

ryouss

zx65606 发表于 2018-11-15 16:15
图号分离？

非也!如主題名稱.
: T3 b7 e! w3 r. V

远祥

这个动态图楼主用什么软件截取的，求教一下！！

ryouss

远祥 发表于 2018-11-16 22:06
这个动态图楼主用什么软件截取的，求教一下！！

5 E. _3 m& m! K: [0 Q1 e# B4 @4 vCamtasia Studio 8.0 软件截取的