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

ryouss

* Z: Z) n7 \5 Z2 E7 f分享在他網的回覆

& ^. ~. Z! q1 T9 ~

& A/ s' o7 P5 |0 I& c. E& A

1. ' ************************************************************************************
   
2. ' 依據配置特定屬性之"件號"及"名稱"存檔 - macro recorded on 10/30/18 by scliang
   / X- \% V9 O7 n$ b  Y7 B- j+ i
3. ' ************************************************************************************
   
4. 
   - v& z2 O0 X% ]! p$ |
5.     Dim swApp               As SldWorks.SldWorks
   , E; V% e9 P5 I: j- }3 D' ?
6.     Dim swModel             As SldWorks.ModelDoc2
   
7.     Dim swConfigMgr         As SldWorks.ConfigurationManager
   ! S* z9 i, e! \
8.     Dim swConfig            As SldWorks.Configuration
   
9.     Dim swCustPropMgr       As SldWorks.CustomPropertyManager
   
10.     Dim nNbrProps           As Long
    , [4 V2 g; Z  S- K& t
11.     Dim Part                As Object
    
12.     Dim Code_Name(2)        As String
    
13.     Dim valOut              As String
    
14.     Dim resolvedValOut      As String
    & Z9 A- R5 J! Z% `- _6 h, G
15.     Dim longstatus          As Long
    
16. 
    
17. 
    4 J+ ~$ D5 E! S" {- H1 A; I  l
18. Sub main()
    
19. 
    + M. c5 W( D5 q
20.     Set swApp = Application.SldWorks
    
21.     Set swModel = swApp.ActiveDoc
    8 }1 w7 j8 p9 L
22.     Set swConfigMgr = swModel.ConfigurationManager
    
23.     Set swConfig = swConfigMgr.ActiveConfiguration
    ; ~5 F% c$ t2 G) Q. V" i
24.     Set swCustPropMgr = swConfig.CustomPropertyManager
    
25.     ' Get the number of custom properties for this configuration
    
26.     nNbrProps = swCustPropMgr.Count
    - x0 n2 N4 U) U# I# g3 A
27.     vPropNames = swCustPropMgr.GetNames
    ; v- U* ?9 Z1 s8 O7 g6 Q; ?
28.     For j = 0 To nNbrProps - 1
    ( S5 u4 G% w$ Y  R- A* M9 z
29.         swCustPropMgr.Get2 vPropNames(j), valOut, resolvedValOut
    ; M; O" c. R& e
30.         If vPropNames(j) = "代號" Then Code_Name(0) = valOut
    
31.         If vPropNames(j) = "名稱" Then Code_Name(1) = valOut
      E* r2 L: w  j- ^1 N
32.     Next j
    / G: L; e) R; y3 K
33.     'Debug.Print "    Name, type, and resolved value of custom property:  " & "代號: " & Code_Name(0) & " ----- " & "名稱:" & Code_Name(1)
    1 E0 G3 h2 n( @( [, i% ?" j
34.     Path_Name = swApp.ActiveDoc.GetPathName '取得"路徑名稱及擴展名",不管擴展名是否隱藏
    
35.     Path_ = Left(Path_Name, InStrRev(Path_Name, "")) '提出路徑
    5 K5 t3 l$ e/ A) h
36.     Set Part = swApp.ActiveDoc
    - i1 }8 G( ~% q( U1 _
37.     longstatus = Part.SaveAs3(Path_ & Code_Name(0) & " " & Code_Name(1) & ".SLDPRT", 0, 2) '依據配置屬性"件號"及"名稱"存檔
    
38. 
    
39. End Sub
    

复制代码

zx65606

图号分离？

ryouss

zx65606 发表于 2018-11-15 16:15
' F0 f" g1 l7 v1 I3 ?9 j图号分离？

非也!如主題名稱.
: Q2 j6 j& `( d. o. {; e
/ M/ O: @. y! g' U% a

远祥

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

ryouss

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

Camtasia Studio 8.0 软件截取的