提取配置名称的宏代码

醉生梦

各位大侠好：如下代码，我是想将配名称提取成字符串
dim aaa as string
6 u% w+ E9 e- i4 |% _' r
5 [: ^# k' C1 J" vSet swApp = Application.SldWorks
7 Q0 X4 Z8 ^* @& x' MSet part = swApp.ActiveDoc

5 [5 B( {# b+ o9 V) |: Kaaa = part.GetConfigurationName(0).Name
1 F$ _; b6 y( a" I" {, c9 t
7 F' I0 M; ?: X$ V F- L
: b' |9 P6 z; g) ]. l6 S运行时在第四句上出错，错误提示为：对象不支持该属性或方法，向各位大侠请教一下应该用什么样的属性代码？
5 x0 m* ~* U0 s1 R
5 r$ g4 i/ S; u谢谢！！
1 z. N* P6 A6 R6 K. l: p) ^9 e
# {* Y/ ?8 C8 c1 P: `# l8 w

ryouss

試試 aaa = part.GetConfigurationName(0).Name 改為如下.
+ F+ ?9 [# ~ I3 R# f% D. R9 L
' s& r+ Q& ?- T- d' F! ]
) \# o N9 L$ d. G+ saaa = swApp.ActiveDoc.GetTitle() '取得當前零件的零件名稱

, D/ f+ D: }/ |. F1 g1 n- ?
1 C3 U$ S) A. N2 d, a

醉生梦

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

6 l+ E1 M+ v6 q( ~4 ~$ C谢谢您，我的本意就是要提取配置的名称，而不是零件的名称，现在我的问题已经解决了，但是还是谢谢您！！！
; W' L) i: v( E- [! S f

DaveChan

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

醉生梦

DaveChan 发表于 2018-5-7 08:31
; J# \+ g7 x2 g4 Y获取当前激活的配置名称：
将aaa = part.GetConfigurationName(0).Name更改成
6 \2 g/ ~' s2 P+ n3 W: Naaa = part.GetActiveConfi ...

4 m* Z. e5 k8 |. S* d& p谢谢，感谢您的回复，经过测试为正解，谢谢！！
) a6 C/ C2 ~5 I4 B# J