提取配置名稱的宏代碼

醉生夢

各位大俠好：如下代碼，我是想將配名稱提取成字符串
dim aaa as string

Set swApp = Application.SldWorks
. k/ S2 r3 x* v* d( k' g6 }Set part = swApp.ActiveDoc
& s( m+ F# q/ G+ s' t
aaa = part.GetConfigurationName(0).Name
( p! z/ t; d1 s! m$ z; A% k
( A3 G; r1 c2 K( s
) w% Z- l, u8 _運行時在第四句上出錯，錯誤提示為：對象不支持該屬性或方法，向各位大俠請教一下應該用什么樣的屬性代碼？
$ c! S, z5 S3 Q' D- t0 B2 o
1 F* }3 l- @2 r謝謝！！

ryouss

試試    aaa = part.GetConfigurationName(0).Name   改為如下.  


& j4 x9 {7 z" \, Z# y/ K4 eaaa = swApp.ActiveDoc.GetTitle() '取得當前零件的零件名稱

醉生夢

ryouss 發表于 2018-5-6 20:21
3 z5 x5 z, p: C) @# a6 \試試    aaa = part.GetConfigurationName(0).Name   改為如下.  

謝謝您，我的本意就是要提取配置的名稱，而不是零件的名稱，現在我的問題已經解決了，但是還是謝謝您！！！
" B* C7 o8 B5 l% K, o' }: z3 C

DaveChan

獲取當前激活的配置名稱：
將aaa = part.GetConfigurationName(0).Name更改成
aaa = part.GetActiveConfiguration.Name
: R3 g0 `& A9 T' K

醉生夢

DaveChan 發表于 2018-5-7 08:31
$ y0 }) ]& f; w% H$ o% i# o2 Y2 }獲取當前激活的配置名稱：
; B$ ]7 l: S! M$ o將aaa = part.GetConfigurationName(0).Name更改成
aaa = part.GetActiveConfi ...

謝謝，感謝您的回復，經過測試為正解，謝謝！！
8 k# w$ c+ G! t" O( n: C2 q, `% X