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

ryouss

" k0 x3 }3 j6 a3 }, P: ^分享在他網的回覆
) N* Y' h$ y& Y: j

- N* b- d' }9 o! t2 u
( c2 Y9 H: W  [  E& b" R
/ b- q0 b( T6 D! }# n
& V4 c% V  _: ]5 e

1. ' ************************************************************************************
     r) G9 Z+ W$ F) q
2. ' 依據配置特定屬性之"件號"及"名稱"存檔 - macro recorded on 10/30/18 by scliang
   
3. ' ************************************************************************************
   
4. 
   9 D7 O4 L7 H  e8 y" v8 @
5.     Dim swApp               As SldWorks.SldWorks
   0 A' F9 o. L* N
6.     Dim swModel             As SldWorks.ModelDoc2
   6 k. C/ D  B& i% Y7 G
7.     Dim swConfigMgr         As SldWorks.ConfigurationManager
   
8.     Dim swConfig            As SldWorks.Configuration
   . t/ O" ^% [3 k! I) x7 `) Y
9.     Dim swCustPropMgr       As SldWorks.CustomPropertyManager
   6 _+ V4 l  k9 x0 y; h8 W$ N
10.     Dim nNbrProps           As Long
    3 `+ r" Q! L) Q  h2 s8 `" j
11.     Dim Part                As Object
    
12.     Dim Code_Name(2)        As String
    
13.     Dim valOut              As String
    4 P6 v) i5 ^1 r* z' h+ G/ n
14.     Dim resolvedValOut      As String
    
15.     Dim longstatus          As Long
    " `5 N; V+ j9 E9 i  \
16. 
    $ ?, e8 y, z* y0 y
17. 
    " a  i' |& t. p8 \1 a
18. Sub main()
    
19. 
    7 A5 u: W7 ~1 T. [% T7 z* \
20.     Set swApp = Application.SldWorks
    2 U: D5 ?% s9 C8 q' V3 t$ C
21.     Set swModel = swApp.ActiveDoc
    
22.     Set swConfigMgr = swModel.ConfigurationManager
    + @7 {; O. u6 _, M
23.     Set swConfig = swConfigMgr.ActiveConfiguration
    9 M- Q+ K% ?! h/ T) f
24.     Set swCustPropMgr = swConfig.CustomPropertyManager
    
25.     ' Get the number of custom properties for this configuration
    
26.     nNbrProps = swCustPropMgr.Count
    
27.     vPropNames = swCustPropMgr.GetNames
    
28.     For j = 0 To nNbrProps - 1
    1 j! h* _5 L8 q/ c; p; w
29.         swCustPropMgr.Get2 vPropNames(j), valOut, resolvedValOut
    - B# J! w  b3 ^% D, ^
30.         If vPropNames(j) = "代號" Then Code_Name(0) = valOut
    
31.         If vPropNames(j) = "名稱" Then Code_Name(1) = valOut
    7 K- M8 \& H" S( b4 L
32.     Next j
    1 X, M5 S$ W/ R" c# @" \% W
33.     'Debug.Print "    Name, type, and resolved value of custom property:  " & "代號: " & Code_Name(0) & " ----- " & "名稱:" & Code_Name(1)
    . Y  `, d* t: ^
34.     Path_Name = swApp.ActiveDoc.GetPathName '取得"路徑名稱及擴展名",不管擴展名是否隱藏
    0 X8 k% J* r3 v- W) z4 L# _
35.     Path_ = Left(Path_Name, InStrRev(Path_Name, "")) '提出路徑
    , c4 z; j8 Z' t6 D) U
36.     Set Part = swApp.ActiveDoc
    " J- E9 ]5 ^2 Z
37.     longstatus = Part.SaveAs3(Path_ & Code_Name(0) & " " & Code_Name(1) & ".SLDPRT", 0, 2) '依據配置屬性"件號"及"名稱"存檔
    
38. 
    ! J7 \" Y! D" U& H
39. End Sub
    ) {3 M9 }2 Q  L8 N* Y5 k

复制代码

4 j; ^9 [/ p$ ?) L
) M9 x, c6 r7 r7 r( A6 Z8 W( H+ R) x

zx65606

图号分离？

ryouss

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

5 {  d& _1 k1 q5 _" {! u非也!如主題名稱.
5 k- J- k! X& r# [6 c

远祥

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

ryouss

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

Camtasia Studio 8.0 软件截取的
7 b7 A/ D6 _& f3 L