提取配置名称的宏代码

醉生梦

各位大侠好：如下代码，我是想将配名称提取成字符串
dim aaa as string

. w- R9 k  D# Z6 a% MSet swApp = Application.SldWorks
$ M4 |& ]" o' [' ?Set part = swApp.ActiveDoc

aaa = part.GetConfigurationName(0).Name


运行时在第四句上出错，错误提示为：对象不支持该属性或方法，向各位大侠请教一下应该用什么样的属性代码？

0 B, C, a8 u1 G3 }$ u$ J; l谢谢！！

( B6 V' x2 \0 H

ryouss

試試    aaa = part.GetConfigurationName(0).Name   改為如下.  
* K( Y0 ?* ]4 h0 d2 K

aaa = swApp.ActiveDoc.GetTitle() '取得當前零件的零件名稱
5 e9 W; ?- A$ a  Q( p& H& i
% m# Y$ V) i% u) o0 p% C! S
9 x. M) q, L6 E5 |, D3 I) {

醉生梦

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

谢谢您，我的本意就是要提取配置的名称，而不是零件的名称，现在我的问题已经解决了，但是还是谢谢您！！！

DaveChan

获取当前激活的配置名称：
) v7 [9 d/ ]4 w; x- a& F- ^将aaa = part.GetConfigurationName(0).Name更改成
2 ?8 P3 t/ n" t0 d& v' X) Baaa = part.GetActiveConfiguration.Name
% f8 a( {0 j7 a& m6 s3 C; h

醉生梦

DaveChan 发表于 2018-5-7 08:31
; X% ^. X7 u" S# F1 C获取当前激活的配置名称：
* e/ E  [2 H# X0 R/ _7 X1 e) Y! ^将aaa = part.GetConfigurationName(0).Name更改成
aaa = part.GetActiveConfi ...

谢谢，感谢您的回复，经过测试为正解，谢谢！！
$ v* y5 _7 O% C& Z! T' ^  w