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

ryouss

3 k, p( s1 r. l分享在他網的回覆
! Q9 M- }; c! O5 x' I& [6 P. V3 Z
% j) u+ m; V& j( O! M. e; ?0 O


2 `5 B# ]# @, }3 a
: ]- A1 i, L) B  G% H

1. ' ************************************************************************************
     B# s, e8 Q& l& p0 w" t
2. ' 依據配置特定屬性之"件號"及"名稱"存檔 - macro recorded on 10/30/18 by scliang
   
3. ' ************************************************************************************
   3 U  M2 L- }4 H( K$ q$ K
4. 
   & w, q1 A& E0 ]+ K4 |7 `
5.     Dim swApp               As SldWorks.SldWorks
   
6.     Dim swModel             As SldWorks.ModelDoc2
   1 a  [2 g; U2 m' _
7.     Dim swConfigMgr         As SldWorks.ConfigurationManager
   ' n5 @) K3 Z; ^* h6 W
8.     Dim swConfig            As SldWorks.Configuration
   
9.     Dim swCustPropMgr       As SldWorks.CustomPropertyManager
   8 P7 p+ Q8 k$ O0 A1 L
10.     Dim nNbrProps           As Long
    
11.     Dim Part                As Object
    
12.     Dim Code_Name(2)        As String
    + ?% P1 y& i0 J. s" Z& q* f  `
13.     Dim valOut              As String
    
14.     Dim resolvedValOut      As String
    # ~: [2 o/ S: J& X$ n- N
15.     Dim longstatus          As Long
    . s5 W5 P, _7 R9 }3 k
16. 
    $ v+ v2 N2 j; ^+ T
17. 
    
18. Sub main()
    7 p( I2 r* S! j3 G3 d
19. 
    , w6 E. z& `& H& s, J
20.     Set swApp = Application.SldWorks
    
21.     Set swModel = swApp.ActiveDoc
    
22.     Set swConfigMgr = swModel.ConfigurationManager
    
23.     Set swConfig = swConfigMgr.ActiveConfiguration
    
24.     Set swCustPropMgr = swConfig.CustomPropertyManager
    
25.     ' Get the number of custom properties for this configuration
    , t4 C$ r; V" v: _  h# _' I
26.     nNbrProps = swCustPropMgr.Count
    , S: C7 K" v+ p
27.     vPropNames = swCustPropMgr.GetNames
    
28.     For j = 0 To nNbrProps - 1
    
29.         swCustPropMgr.Get2 vPropNames(j), valOut, resolvedValOut
    : Z& u8 _* @9 J. J" t# U! ^7 K. x
30.         If vPropNames(j) = "代號" Then Code_Name(0) = valOut
    
31.         If vPropNames(j) = "名稱" Then Code_Name(1) = valOut
    
32.     Next j
    7 \6 J; p. ?! N  K7 ]! u% t
33.     'Debug.Print "    Name, type, and resolved value of custom property:  " & "代號: " & Code_Name(0) & " ----- " & "名稱:" & Code_Name(1)
    # o! C8 d! o  r. l* P
34.     Path_Name = swApp.ActiveDoc.GetPathName '取得"路徑名稱及擴展名",不管擴展名是否隱藏
    
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) '依據配置屬性"件號"及"名稱"存檔
    
38. 
    
39. End Sub
    

复制代码

, I6 ^' j6 V1 S+ T3 c- s* p- Q

zx65606

图号分离？

ryouss

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

  ]6 W: N9 [$ f' Y# K; t7 z9 A非也!如主題名稱.
: p4 E  U$ Y1 E1 {8 t

远祥

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

ryouss

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

Camtasia Studio 8.0 软件截取的