提取配置名稱的宏代碼

醉生夢

各位大俠好：如下代碼,，我是想將配名稱提取成字符串
6 a* c4 j9 e" l, {5 U* Cdim aaa as string
, `& d) F5 k* K9 ?8 d
Set swApp = Application.SldWorks
Set part = swApp.ActiveDoc

2 @! Q* r4 T" }# Q- v6 n! raaa = part.GetConfigurationName(0).Name


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

9 ~- {0 }7 A; S" D8 K) f謝謝�,�,！
4 E+ [0 y* r; d; b. ^) ^: m
7 @4 P0 {4 p# Q: b5 q

ryouss

試試    aaa = part.GetConfigurationName(0).Name   改為如下.  
$ B( {7 u8 I1 V
8 I, q6 q0 E4 }; V9 J
* M1 X1 \' G; k4 [) Raaa = swApp.ActiveDoc.GetTitle() '取得當(dāng)前零件的零件名稱
$ u: u5 X* _$ l2 i# T
$ V- u1 L; y3 v
) h$ D9 d4 M$ }6 ~4 i& m

醉生夢

ryouss 發(fā)表于 2018-5-6 20:21
試試    aaa = part.GetConfigurationName(0).Name   改為如下.  

謝謝您，我的本意就是要提取配置的名稱,，而不是零件的名稱,，現(xiàn)在我的問題已經(jīng)解決了，但是還是謝謝您�,。,。�

DaveChan

獲取當(dāng)前激活的配置名稱：
將aaa = part.GetConfigurationName(0).Name更改成
aaa = part.GetActiveConfiguration.Name

醉生夢

DaveChan 發(fā)表于 2018-5-7 08:31
獲取當(dāng)前激活的配置名稱：
' p4 d( t* U$ j6 u( K- O. q將aaa = part.GetConfigurationName(0).Name更改成
aaa = part.GetActiveConfi ...

* {4 [+ ?+ x$ ~! _' y' X謝謝,，感謝您的回復(fù),，經(jīng)過測試為正解，謝謝�,�,！