提取配置名称的宏代码

醉生梦

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

% ~, b9 w4 h0 t; lSet swApp = Application.SldWorks
# Y5 o5 X' f' ]6 {4 g6 n) I' q1 zSet part = swApp.ActiveDoc

aaa = part.GetConfigurationName(0).Name
6 c- k% P- R9 c, @- q
; O% M3 v0 k: a
6 x: b' c7 i: I* A运行时在第四句上出错，错误提示为：对象不支持该属性或方法，向各位大侠请教一下应该用什么样的属性代码？
4 n8 Y  `- n2 T2 f8 c
谢谢！！
& K( u. I" L! p0 k  h2 a* u% u

ryouss

試試    aaa = part.GetConfigurationName(0).Name   改為如下.  
7 _; M9 n4 x/ [/ _; i

aaa = swApp.ActiveDoc.GetTitle() '取得當前零件的零件名稱


( _5 g( K" \3 A. H

醉生梦

ryouss 发表于 2018-5-6 20:21
3 S6 J- `3 e% B* @2 `$ u0 @; k試試    aaa = part.GetConfigurationName(0).Name   改為如下.  

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

DaveChan

获取当前激活的配置名称：
将aaa = part.GetConfigurationName(0).Name更改成
9 l4 L/ S3 N8 f0 y# v- L: Maaa = part.GetActiveConfiguration.Name

醉生梦

DaveChan 发表于 2018-5-7 08:31
获取当前激活的配置名称：
将aaa = part.GetConfigurationName(0).Name更改成
' X* e9 ?  ?3 a5 daaa = part.GetActiveConfi ...

+ P/ }( w: _7 C谢谢，感谢您的回复，经过测试为正解，谢谢！！
, i& ^6 d4 P8 m  }. N* m' U