提取配置名称的宏代码

醉生梦

各位大侠好：如下代码，我是想将配名称提取成字符串
+ U4 u9 T# Y0 a$ N* A# a7 P3 N; pdim aaa as string

Set swApp = Application.SldWorks
0 D* p# M# n) U, ^3 a9 K5 G! _Set part = swApp.ActiveDoc
. f; A& L7 |: F3 L
aaa = part.GetConfigurationName(0).Name
1 R3 h1 O# ^2 z( N

+ n7 s! D- {* B/ [) b1 u- h" V运行时在第四句上出错，错误提示为：对象不支持该属性或方法，向各位大侠请教一下应该用什么样的属性代码？

8 C+ Q7 A$ s$ A( l! W) S6 _谢谢！！
# W% }2 e5 ]0 \2 a1 b% \

ryouss

試試    aaa = part.GetConfigurationName(0).Name   改為如下.  
& ?9 R+ ]9 T2 f2 n1 z$ k  Y! x

0 Y' |0 m, x3 ^1 B% Uaaa = swApp.ActiveDoc.GetTitle() '取得當前零件的零件名稱
: x: i  w+ c9 [* V9 d0 D
3 T! [  ^/ X% {. g

醉生梦

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

# P3 S1 G# W, x) S1 |谢谢您，我的本意就是要提取配置的名称，而不是零件的名称，现在我的问题已经解决了，但是还是谢谢您！！！

DaveChan

获取当前激活的配置名称：
9 F9 P9 @7 I& W6 ]' [& |# d( r/ p将aaa = part.GetConfigurationName(0).Name更改成
aaa = part.GetActiveConfiguration.Name

醉生梦

DaveChan 发表于 2018-5-7 08:31
: e% z# c) i8 S$ S1 O! N  c获取当前激活的配置名称：
将aaa = part.GetConfigurationName(0).Name更改成
6 q! J5 |  ^/ W! \! Oaaa = part.GetActiveConfi ...

谢谢，感谢您的回复，经过测试为正解，谢谢！！
3 U5 v4 R. }* I) @" }3 ^7 P