提取配置名称的宏代码

醉生梦

各位大侠好：如下代码，我是想将配名称提取成字符串
dim aaa as string
; `& o+ U7 ]5 ]9 e& K  D5 r* C
Set swApp = Application.SldWorks
Set part = swApp.ActiveDoc

aaa = part.GetConfigurationName(0).Name
& l. M( V( h+ s% h" j* Q; n

运行时在第四句上出错，错误提示为：对象不支持该属性或方法，向各位大侠请教一下应该用什么样的属性代码？

/ T3 R! G8 W4 ]7 u" q, |谢谢！！
1 M# t( _$ K8 f, j0 \% E. V

ryouss

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


aaa = swApp.ActiveDoc.GetTitle() '取得當前零件的零件名稱
* ^8 V  v$ _% L3 f: n7 E+ s

8 @$ I3 k$ e/ w2 b, }

醉生梦

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

) L$ i2 q: R& q# r7 _+ g# ~" [+ e" k" x谢谢您，我的本意就是要提取配置的名称，而不是零件的名称，现在我的问题已经解决了，但是还是谢谢您！！！
: u( L( `$ P$ }, |" c

DaveChan

获取当前激活的配置名称：
; q8 H8 {( C: z/ [( p( p/ ?将aaa = part.GetConfigurationName(0).Name更改成
9 B% t8 t2 b3 ]( n) ]( i& K( }aaa = part.GetActiveConfiguration.Name

醉生梦

DaveChan 发表于 2018-5-7 08:31
获取当前激活的配置名称：
将aaa = part.GetConfigurationName(0).Name更改成
2 w( u9 y; E' F! D$ X) Oaaa = part.GetActiveConfi ...

谢谢，感谢您的回复，经过测试为正解，谢谢！！