提取配置名稱的宏代碼

醉生夢

各位大俠好：如下代碼，我是想將配名稱提取成字符串
dim aaa as string
0 t3 _0 ]( |; q' S0 J$ f: |
Set swApp = Application.SldWorks
Set part = swApp.ActiveDoc

5 T% J7 @% I: ?" h& Maaa = part.GetConfigurationName(0).Name

7 c) u. [) X. y1 E
運行時在第四句上出錯，錯誤提示為：對象不支持該屬性或方法，向各位大俠請教一下應(yīng)該用什么樣的屬性代碼？

謝謝��！

ryouss

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

1 f. f) O3 ]7 }* A/ ^+ k" @9 G- B
aaa = swApp.ActiveDoc.GetTitle() '取得當前零件的零件名稱
+ Y% t2 x9 r& |7 P  n8 q
+ M, _) w, m8 f9 Z- O7 d5 N/ s
% j; g! \/ Z: ?

醉生夢

ryouss 發(fā)表于 2018-5-6 20:21
; `1 A, j3 c; M$ m試試    aaa = part.GetConfigurationName(0).Name   改為如下.  

" d# V" s! i7 E% s+ d' Y謝謝您，我的本意就是要提取配置的名稱，而不是零件的名稱，現(xiàn)在我的問題已經(jīng)解決了，但是還是謝謝您�。�！
) _' s# L/ s  t$ M; c

DaveChan

獲取當前激活的配置名稱：
0 n8 Y& b$ h  F% S& r將aaa = part.GetConfigurationName(0).Name更改成
# Z" l2 T7 }. X/ taaa = part.GetActiveConfiguration.Name

醉生夢

DaveChan 發(fā)表于 2018-5-7 08:31
3 ]5 b, j% S! H7 o- }/ ?8 D獲取當前激活的配置名稱：
將aaa = part.GetConfigurationName(0).Name更改成
aaa = part.GetActiveConfi ...

謝謝，感謝您的回復(fù)，經(jīng)過測試為正解，謝謝��！