提取配置名称的宏代码

醉生梦

各位大侠好：如下代码，我是想将配名称提取成字符串
" u6 i2 Y3 s; @+ Odim aaa as string
( P3 a% d3 V8 t4 f; N
  D: k+ A. z6 J) a/ `Set swApp = Application.SldWorks
Set part = swApp.ActiveDoc
; K. i+ `9 M' w4 O! J! N  T! f
2 e: @0 i6 z, t5 G( Uaaa = part.GetConfigurationName(0).Name
( b# Y! L8 k! D
2 R: q4 Z& ?0 ~+ P$ n( r) E  u( u
2 |, ^; }# A8 |* C; ?$ |运行时在第四句上出错，错误提示为：对象不支持该属性或方法，向各位大侠请教一下应该用什么样的属性代码？

谢谢！！

ryouss

試試    aaa = part.GetConfigurationName(0).Name   改為如下.  
, V  H' s; A# s2 }$ T

aaa = swApp.ActiveDoc.GetTitle() '取得當前零件的零件名稱
7 E% T$ x( K% a: l" `; ]4 j5 `

醉生梦

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

谢谢您，我的本意就是要提取配置的名称，而不是零件的名称，现在我的问题已经解决了，但是还是谢谢您！！！
3 |* A0 k9 |3 l! C: M, g! T4 R5 C! S

DaveChan

获取当前激活的配置名称：
) Z( i# y" k" E& \8 y' n* i! _将aaa = part.GetConfigurationName(0).Name更改成
aaa = part.GetActiveConfiguration.Name
3 \/ h9 r1 X& n" {% C

醉生梦

DaveChan 发表于 2018-5-7 08:31
获取当前激活的配置名称：
- }5 E8 N$ c* B7 s- M3 H- r将aaa = part.GetConfigurationName(0).Name更改成
aaa = part.GetActiveConfi ...

: ]6 ?: m# X) g% U* f8 b& P2 A7 [谢谢，感谢您的回复，经过测试为正解，谢谢！！