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

ryouss

/ P* J' S& r) L* _7 g分享在他網的回覆
# a$ ^- B. t4 G, i

+ P8 z. ^/ [6 P
  q( j. W# Y# O& R
% `; B: K3 |. h7 J

1. ' ************************************************************************************
   
2. ' 依據配置特定屬性之"件號"及"名稱"存檔 - macro recorded on 10/30/18 by scliang
   $ |3 J% O; _! i
3. ' ************************************************************************************
   
4. 
   3 v# d6 Y4 J" j& i% P0 b5 \# `
5.     Dim swApp               As SldWorks.SldWorks
   
6.     Dim swModel             As SldWorks.ModelDoc2
   
7.     Dim swConfigMgr         As SldWorks.ConfigurationManager
   $ W* }" I$ f) N. a
8.     Dim swConfig            As SldWorks.Configuration
   4 K! S3 x. E: Q0 e
9.     Dim swCustPropMgr       As SldWorks.CustomPropertyManager
   
10.     Dim nNbrProps           As Long
    
11.     Dim Part                As Object
    # Y. b' g7 U4 N& ?  j3 C& {; K% B
12.     Dim Code_Name(2)        As String
    ; J3 y& v6 ^" x- K
13.     Dim valOut              As String
    / i* _& ^- K' @. l8 n' Z
14.     Dim resolvedValOut      As String
    $ f( v4 _7 L% Q7 n1 W
15.     Dim longstatus          As Long
    ( A& j$ y/ E0 L( |
16. 
    
17. 
    * D; P- S1 ^# e3 N0 U. t2 ]7 L
18. Sub main()
    + w! R. ~2 J" Z" [1 z% s1 j
19. 
    . `2 M, r; N/ B
20.     Set swApp = Application.SldWorks
    
21.     Set swModel = swApp.ActiveDoc
    + z$ `/ F! K8 v, z6 [# C
22.     Set swConfigMgr = swModel.ConfigurationManager
    
23.     Set swConfig = swConfigMgr.ActiveConfiguration
    
24.     Set swCustPropMgr = swConfig.CustomPropertyManager
    5 b8 Y) n/ z& j2 _) q: w$ S9 L
25.     ' Get the number of custom properties for this configuration
    ) [% V  ?$ p% z8 x5 _
26.     nNbrProps = swCustPropMgr.Count
    # Y" V1 T5 T' H" u) G: x+ D- C
27.     vPropNames = swCustPropMgr.GetNames
    
28.     For j = 0 To nNbrProps - 1
    
29.         swCustPropMgr.Get2 vPropNames(j), valOut, resolvedValOut
    : p  ?* |8 d# A9 N  m* M- c
30.         If vPropNames(j) = "代號" Then Code_Name(0) = valOut
    $ a- M3 J: C7 I8 J
31.         If vPropNames(j) = "名稱" Then Code_Name(1) = valOut
    
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. 
    
39. End Sub
    

复制代码

& J8 l2 v+ Q% H: v& k5 f

zx65606

图号分离？

ryouss

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

# E. H$ C& [, E非也!如主題名稱.

远祥

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

ryouss

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

Camtasia Studio 8.0 软件截取的