提取配置名称的宏代码

醉生梦

各位大侠好：如下代码，我是想将配名称提取成字符串
4 I+ K; W+ b' T4 b! f2 e) W+ E) Ldim aaa as string
. P' o7 _  V+ {1 H) `) _/ s9 o
* Q: d4 D0 `$ _4 P& L, [Set swApp = Application.SldWorks
Set part = swApp.ActiveDoc
1 E2 w0 R& S5 U8 Y8 \, P
aaa = part.GetConfigurationName(0).Name

! R8 H! w/ x+ q4 Y$ f& @
运行时在第四句上出错，错误提示为：对象不支持该属性或方法，向各位大侠请教一下应该用什么样的属性代码？
# o. \( ]7 ?8 Y1 \
- S  ?1 o1 @1 z; o" P/ S* r谢谢！！

$ z- M. i; ]4 e

ryouss

試試    aaa = part.GetConfigurationName(0).Name   改為如下.  
6 g7 L( y% L. a8 G  J. j+ n
. Z$ G; m# }, d" K
3 d2 V, b4 e% T( Vaaa = swApp.ActiveDoc.GetTitle() '取得當前零件的零件名稱

醉生梦

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

谢谢您，我的本意就是要提取配置的名称，而不是零件的名称，现在我的问题已经解决了，但是还是谢谢您！！！
" M4 n1 m+ q$ R# ]+ m/ P

DaveChan

获取当前激活的配置名称：
将aaa = part.GetConfigurationName(0).Name更改成
aaa = part.GetActiveConfiguration.Name
& l) E3 N( m  ^

醉生梦

DaveChan 发表于 2018-5-7 08:31
获取当前激活的配置名称：
将aaa = part.GetConfigurationName(0).Name更改成
6 n9 \. A, x! Laaa = part.GetActiveConfi ...

( }0 ^* E9 R3 x; U2 x( [谢谢，感谢您的回复，经过测试为正解，谢谢！！