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

ryouss

% Q6 ~: D" o, Y* w7 d9 [分享在他網的回覆





% P) [" T4 g0 A2 M4 L' ~- Q4 \

1. ' ************************************************************************************
   9 n: U1 O, e. r4 j" C: I
2. ' 依據配置特定屬性之"件號"及"名稱"存檔 - macro recorded on 10/30/18 by scliang
   & h" L3 H4 @& \
3. ' ************************************************************************************
   
4. 
   
5.     Dim swApp               As SldWorks.SldWorks
   
6.     Dim swModel             As SldWorks.ModelDoc2
   3 _( K6 S4 U7 {& L  Q
7.     Dim swConfigMgr         As SldWorks.ConfigurationManager
   , n. H% ~8 b+ {; b' p. M
8.     Dim swConfig            As SldWorks.Configuration
   
9.     Dim swCustPropMgr       As SldWorks.CustomPropertyManager
   
10.     Dim nNbrProps           As Long
    1 T5 ~3 i- A6 R% g' K
11.     Dim Part                As Object
    ) s- @' q& Y! |5 x! d+ T
12.     Dim Code_Name(2)        As String
    , D! N) _4 v  u4 L) S/ T
13.     Dim valOut              As String
    3 L8 [9 O# m$ W. U* e
14.     Dim resolvedValOut      As String
    ; ?6 u% v6 T: [; ^8 q3 L0 `
15.     Dim longstatus          As Long
    
16. 
    % Y7 P  z& J5 D1 t
17. 
    
18. Sub main()
    
19. 
    7 A6 G8 d. D9 \2 X8 ?2 m: N" i- Q
20.     Set swApp = Application.SldWorks
    
21.     Set swModel = swApp.ActiveDoc
    " l+ L5 h" B4 b: g" I
22.     Set swConfigMgr = swModel.ConfigurationManager
    . ?& k; d% G& c3 l. M0 K2 L
23.     Set swConfig = swConfigMgr.ActiveConfiguration
    * K: R2 z, V7 C* f
24.     Set swCustPropMgr = swConfig.CustomPropertyManager
    
25.     ' Get the number of custom properties for this configuration
    + L( P5 y$ D% c7 B& `! 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
      o6 t3 o2 ?2 P1 p+ q$ `6 n: W
31.         If vPropNames(j) = "名稱" Then Code_Name(1) = valOut
    / k0 }9 q* w% J5 L$ R8 f) R
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, "")) '提出路徑
    
36.     Set Part = swApp.ActiveDoc
    
37.     longstatus = Part.SaveAs3(Path_ & Code_Name(0) & " " & Code_Name(1) & ".SLDPRT", 0, 2) '依據配置屬性"件號"及"名稱"存檔
    
38. 
    $ {0 O& I: l% X
39. End Sub
    $ u  p+ s0 K6 [0 {1 p

复制代码

/ k, w. G9 @9 ]

zx65606

图号分离？

ryouss

zx65606 发表于 2018-11-15 16:15
8 i$ c. _: T& U3 u! M# p" G# u! Z图号分离？

非也!如主題名稱.

远祥

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

ryouss

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

% U9 e! e! b. Z' s$ ^, t" iCamtasia Studio 8.0 软件截取的