提取配置名称的宏代码

醉生梦

各位大侠好：如下代码，我是想将配名称提取成字符串
2 m2 W! K2 u( ndim aaa as string
- k4 ^) I' e9 B) O
Set swApp = Application.SldWorks
Set part = swApp.ActiveDoc

3 d0 u0 G/ d4 s6 z6 haaa = part.GetConfigurationName(0).Name
$ q0 q- M! e  N, N; j$ z6 ]# ?0 Y

9 V) |+ P9 X3 g8 A, R- X$ X/ D8 \, B运行时在第四句上出错，错误提示为：对象不支持该属性或方法，向各位大侠请教一下应该用什么样的属性代码？
) I/ v# Z" Z. E4 }
谢谢！！

! i: u# M3 U) z' \- P' k

ryouss

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

$ R4 P' o' V% G! i6 e
6 M6 }0 z: O, J. p) Daaa = swApp.ActiveDoc.GetTitle() '取得當前零件的零件名稱
+ Q2 Y5 U+ n1 _9 Y; d& s3 V

$ J5 z5 q/ V1 ^; W

醉生梦

ryouss 发表于 2018-5-6 20:21
# M4 ]' l* I9 ]1 g% ~試試    aaa = part.GetConfigurationName(0).Name   改為如下.  

谢谢您，我的本意就是要提取配置的名称，而不是零件的名称，现在我的问题已经解决了，但是还是谢谢您！！！
8 G4 L0 T! Y! I0 i# j0 T* F

DaveChan

获取当前激活的配置名称：
; I8 k8 h( A" {+ r5 m1 }将aaa = part.GetConfigurationName(0).Name更改成
. l+ y% O2 v; S  c5 Saaa = part.GetActiveConfiguration.Name
8 t* p. |" {% R

醉生梦

DaveChan 发表于 2018-5-7 08:31
/ Q/ a- k) ?& S获取当前激活的配置名称：
  T% e! E- B& d* J将aaa = part.GetConfigurationName(0).Name更改成
5 |8 b1 o& i  Y6 H& y8 Yaaa = part.GetActiveConfi ...

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