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

ryouss

4 n0 j- G. s; A& @分享在他網(wǎng)的回覆
  Y2 H6 J& h# h9 w; l: }' O+ z1 H- H& j

. m' E, Q( \0 [2 K8 y. N5 Q) f
2 j" O6 e; ^- d

1. ' ************************************************************************************
   
2. ' 依據(jù)配置特定屬性之"件號"及"名稱"存檔 - macro recorded on 10/30/18 by scliang
     Q, k( g+ \: I% U/ I
3. ' ************************************************************************************
   
4. 
   
5.     Dim swApp               As SldWorks.SldWorks
   . T6 ?3 R: J- D; G0 G6 ^
6.     Dim swModel             As SldWorks.ModelDoc2
   8 p7 J5 T9 T* ~2 i
7.     Dim swConfigMgr         As SldWorks.ConfigurationManager
   8 B4 D1 R; Z0 o) _# l. W
8.     Dim swConfig            As SldWorks.Configuration
   5 U+ L! g! \: a  ^( e
9.     Dim swCustPropMgr       As SldWorks.CustomPropertyManager
   
10.     Dim nNbrProps           As Long
    
11.     Dim Part                As Object
    " P' Q' h% j8 }+ N
12.     Dim Code_Name(2)        As String
    
13.     Dim valOut              As String
    
14.     Dim resolvedValOut      As String
    
15.     Dim longstatus          As Long
    & N( B- q: i; U, R6 l5 s
16. 
    # L# T; }: h8 Z7 L: U* z
17. 
    7 h5 ~1 P6 m5 d: i& W# u+ U7 x
18. Sub main()
    $ A- h2 ], Y* R; H+ ]: k
19. 
    
20.     Set swApp = Application.SldWorks
    
21.     Set swModel = swApp.ActiveDoc
    
22.     Set swConfigMgr = swModel.ConfigurationManager
    
23.     Set swConfig = swConfigMgr.ActiveConfiguration
    
24.     Set swCustPropMgr = swConfig.CustomPropertyManager
    2 W" b* ~4 g- C1 G# b* @9 G
25.     ' Get the number of custom properties for this configuration
    7 U" o4 C/ c2 N7 ]8 `4 Y8 k
26.     nNbrProps = swCustPropMgr.Count
    
27.     vPropNames = swCustPropMgr.GetNames
    % h% X) G; C0 T7 M# A
28.     For j = 0 To nNbrProps - 1
    ! Q/ _5 x3 Q9 z: k7 d
29.         swCustPropMgr.Get2 vPropNames(j), valOut, resolvedValOut
    / f  H6 O) @8 I) b2 l$ r4 _
30.         If vPropNames(j) = "代號" Then Code_Name(0) = valOut
    6 f# b" [- W: e9 }6 K: n; |  u
31.         If vPropNames(j) = "名稱" Then Code_Name(1) = valOut
    
32.     Next j
    4 J7 a" ~( q/ c+ W0 ^
33.     'Debug.Print "    Name, type, and resolved value of custom property:  " & "代號: " & Code_Name(0) & " ----- " & "名稱:" & Code_Name(1)
    : z9 ~" X0 M; n
34.     Path_Name = swApp.ActiveDoc.GetPathName '取得"路徑名稱及擴展名",不管擴展名是否隱藏
    
35.     Path_ = Left(Path_Name, InStrRev(Path_Name, "")) '提出路徑
    5 R2 z  C! `, _: D; l. R& N" [
36.     Set Part = swApp.ActiveDoc
    % ?& M& l/ ]0 a' E) S
37.     longstatus = Part.SaveAs3(Path_ & Code_Name(0) & " " & Code_Name(1) & ".SLDPRT", 0, 2) '依據(jù)配置屬性"件號"及"名稱"存檔
    
38. 
    2 G( W4 M$ O( k* g/ B% j+ r( e$ q+ M
39. End Sub
    

復(fù)制代碼

zx65606

圖號分離,？

ryouss

zx65606 發(fā)表于 2018-11-15 16:15
/ i* a/ ]- w/ E圖號分離,？

非也!如主題名稱.

遠祥

這個動態(tài)圖樓主用什么軟件截取的，求教一下！,！

ryouss

遠祥 發(fā)表于 2018-11-16 22:06
8 m. f& N2 t; q$ v這個動態(tài)圖樓主用什么軟件截取的,，求教一下！,！

) u) ^: K: f3 z8 x, ~Camtasia Studio 8.0 軟件截取的
2 T8 w. s( B# R1 O8 ~+ [