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

ryouss

分享在他網的回覆


7 \* i/ i+ w: c. ?; f
$ S' `) y8 d5 ^2 L, k* B

( b' `7 a! U! i7 w

1. ' ************************************************************************************
   
2. ' 依據配置特定屬性之"件號"及"名稱"存檔 - macro recorded on 10/30/18 by scliang
   
3. ' ************************************************************************************
   - ]1 U7 }, ]) w* W% c4 [% Q
4. 
   
5.     Dim swApp               As SldWorks.SldWorks
   / O! a/ `; v8 W, [3 J: V
6.     Dim swModel             As SldWorks.ModelDoc2
   
7.     Dim swConfigMgr         As SldWorks.ConfigurationManager
   
8.     Dim swConfig            As SldWorks.Configuration
   0 \7 L( D1 k# J) M) G' T6 K" \/ x
9.     Dim swCustPropMgr       As SldWorks.CustomPropertyManager
   
10.     Dim nNbrProps           As Long
    5 s- d) C) A- D2 x* T
11.     Dim Part                As Object
    % _+ J0 A3 J5 O9 y4 S
12.     Dim Code_Name(2)        As String
    & G+ Y4 o. G- _8 e' G
13.     Dim valOut              As String
    
14.     Dim resolvedValOut      As String
    $ ~, F# J) _+ Y2 ^$ Y
15.     Dim longstatus          As Long
    
16. 
    
17. 
    4 z2 e: K; B) u' z/ f
18. Sub main()
    
19. 
    
20.     Set swApp = Application.SldWorks
    7 u. u' x3 J; B6 d7 j
21.     Set swModel = swApp.ActiveDoc
    % D  D" G* k+ ]; f+ p7 F5 L; F& X
22.     Set swConfigMgr = swModel.ConfigurationManager
    
23.     Set swConfig = swConfigMgr.ActiveConfiguration
    / F" ^  x; v5 [* M5 {  D: ]
24.     Set swCustPropMgr = swConfig.CustomPropertyManager
    1 V' }7 l0 h+ x+ R) _$ ]
25.     ' Get the number of custom properties for this configuration
    
26.     nNbrProps = swCustPropMgr.Count
    : H$ H& B% R) ]: {0 N0 ?; d2 o
27.     vPropNames = swCustPropMgr.GetNames
    
28.     For j = 0 To nNbrProps - 1
    6 C7 e3 j- }/ z7 ^  Y
29.         swCustPropMgr.Get2 vPropNames(j), valOut, resolvedValOut
      D7 s+ I  p7 W$ g$ `
30.         If vPropNames(j) = "代號" Then Code_Name(0) = valOut
    
31.         If vPropNames(j) = "名稱" Then Code_Name(1) = valOut
    
32.     Next j
    7 B$ c# [( D$ b2 l
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, "")) '提出路徑
    1 v0 t# A* m* W* g5 N  E4 l
36.     Set Part = swApp.ActiveDoc
    . u$ C* k+ \5 F  X- X" K. s: B6 t
37.     longstatus = Part.SaveAs3(Path_ & Code_Name(0) & " " & Code_Name(1) & ".SLDPRT", 0, 2) '依據配置屬性"件號"及"名稱"存檔
    
38. 
    
39. End Sub
    

復制代碼

2 p! l" a% Z9 b* A

zx65606

圖號分離？

ryouss

zx65606 發表于 2018-11-15 16:15
. \" o! R$ s0 _( q) K" C: g5 D! B圖號分離？

9 }: Z' x8 K3 i3 m( f' X4 a- T8 Q非也!如主題名稱.
8 x+ B$ T2 ^) ]" w* ?1 L4 ]
4 ?* s- H* J" L5 J9 Y8 o' i

遠祥

這個動態圖樓主用什么軟件截取的，求教一下??！

ryouss

遠祥 發表于 2018-11-16 22:06
這個動態圖樓主用什么軟件截取的，求教一下??！

# Z& W* h: w; L# w: f% t5 c4 qCamtasia Studio 8.0 軟件截取的
. o' w/ u0 `$ R' b* n