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

ryouss · 发表于 2018-11-15 13:32:28

分享在他網的回覆

' ************************************************************************************' j" @. }# x, @; r
' 依據配置特定屬性之"件號"及"名稱"存檔 - macro recorded on 10/30/18 by scliang! l, W* G* u! R4 S9 H4 k# y
' ************************************************************************************
. \- @& F; ]; x6 h4 C2 L
6 F r6 P+ p5 x- l5 ^/ d
Dim swApp As SldWorks.SldWorks' a3 r0 N; K$ h* A; d& C
Dim swModel As SldWorks.ModelDoc2
/ D5 h( N* U8 d* x; _$ z# |
Dim swConfigMgr As SldWorks.ConfigurationManager
: k" |; w% j/ }0 i |# r- n: c
Dim swConfig As SldWorks.Configuration: ~$ P3 x. \' p2 y0 p- r; |
Dim swCustPropMgr As SldWorks.CustomPropertyManager
6 A7 G' L& }& ^' ~ g! n7 m/ y
Dim nNbrProps As Long
. j$ t# X- r5 V# ~5 ]4 A
Dim Part As Object
8 U, l. r$ k$ _, y; N* l1 O. g2 Y
Dim Code_Name(2) As String, q1 V6 j' a5 w+ l$ r% V/ ?
Dim valOut As String' q% K6 P: h: Y: W
Dim resolvedValOut As String
& E& B0 W7 d$ E- K5 R* S: r- \
Dim longstatus As Long
; t. O E- y; q
- V% L$ f1 _1 W1 \8 f) S4 M
: q9 {( d9 k& F$ ?/ a) n: [9 f
Sub main()
j* ~: V* y) q8 N7 S# |
0 p |! P: f5 Z+ _4 h
Set swApp = Application.SldWorks, `7 n$ W- Y; a9 |# f* U
Set swModel = swApp.ActiveDoc- D) x, y, ~! p% W6 P; T
Set swConfigMgr = swModel.ConfigurationManager# P, r2 m+ S6 ~$ `( q0 o% _
Set swConfig = swConfigMgr.ActiveConfiguration% F! {) h- ]' c
Set swCustPropMgr = swConfig.CustomPropertyManager
) n8 R) i; J, R6 c) _- X: G' K
' Get the number of custom properties for this configuration1 m/ ^( ]8 t# _" f7 {8 ]
nNbrProps = swCustPropMgr.Count6 i# G5 _* K1 r* R8 U& P b: v3 G
vPropNames = swCustPropMgr.GetNames
. \5 p* _7 O: ~1 s0 o0 J" p
For j = 0 To nNbrProps - 1
; l# a% K& w, s7 j* N
swCustPropMgr.Get2 vPropNames(j), valOut, resolvedValOut
5 v9 o; K l; d! o5 c
If vPropNames(j) = "代號" Then Code_Name(0) = valOut4 v& c6 |* K" N4 S8 c
If vPropNames(j) = "名稱" Then Code_Name(1) = valOut
1 O2 n7 U/ E2 d/ S
Next j! g- V2 M: G) V9 s" B6 a
'Debug.Print " Name, type, and resolved value of custom property: " & "代號: " & Code_Name(0) & " ----- " & "名稱:" & Code_Name(1)% X) M9 n: p& c; p+ v3 }0 M3 l3 {
Path_Name = swApp.ActiveDoc.GetPathName '取得"路徑名稱及擴展名",不管擴展名是否隱藏
' k& D' k& l( m( ^3 T
Path_ = Left(Path_Name, InStrRev(Path_Name, "")) '提出路徑: P; Q" g! z/ g& z0 @
Set Part = swApp.ActiveDoc
1 G) v0 j' r2 b% _2 W3 w! `8 j! o; t
longstatus = Part.SaveAs3(Path_ & Code_Name(0) & " " & Code_Name(1) & ".SLDPRT", 0, 2) '依據配置屬性"件號"及"名稱"存檔
( ]/ q& J0 H' Q4 z( i
- D# l: v3 M( A
End Sub$ j4 |/ d d9 K& |5 ]

复制代码

zx65606 · 发表于 2018-11-15 16:15:01

图号分离？

ryouss · 发表于 2018-11-15 20:19:10

zx65606 发表于 2018-11-15 16:15& b7 U" Q; T! Q+ H
图号分离？

非也!如主題名稱.

远祥 · 发表于 2018-11-16 22:06:09

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

ryouss · 发表于 2018-11-16 23:23:41

远祥发表于 2018-11-16 22:06; @7 |; B) Q3 I) D
这个动态图楼主用什么软件截取的，求教一下！！

Camtasia Studio 8.0 软件截取的

		自动登录	找回密码
密码			注册会员

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

本帖子中包含更多资源

评分