提取配置名称的宏代码

醉生梦

各位大侠好：如下代码，我是想将配名称提取成字符串
dim aaa as string
7 n7 \& q" X0 m4 d/ x7 f) Z# |
2 D9 k3 e1 {0 ~0 |/ \8 C9 ASet swApp = Application.SldWorks
  {0 o2 W  M6 y/ G( _9 pSet part = swApp.ActiveDoc
1 |1 ]6 D0 Z  H' J, j9 X3 r. F
aaa = part.GetConfigurationName(0).Name
% ]7 u8 k$ V9 n8 D8 B
- O! Z9 b; ^* T$ q
) Y& p8 z$ ^2 R3 V运行时在第四句上出错，错误提示为：对象不支持该属性或方法，向各位大侠请教一下应该用什么样的属性代码？
8 I4 _2 L! n0 H  z! O2 Z
; `5 Y7 f! A2 F: q- K: |谢谢！！
0 T  {- s; g$ I" a, E* D4 I) f8 N7 c
$ t3 {! u: L2 C: i/ z4 T

ryouss

試試    aaa = part.GetConfigurationName(0).Name   改為如下.  
  F. O9 {* J8 i% P( N
5 }; G7 j( G# a
5 W& h8 ^7 n- P4 i& _aaa = swApp.ActiveDoc.GetTitle() '取得當前零件的零件名稱
: e; H# f0 ~8 B- L, _* [" R" i
! U' i$ n/ C4 M" L4 G
2 J: x+ `6 r& i; F7 O3 ~: n7 U

醉生梦

ryouss 发表于 2018-5-6 20:21
( C; c% {! F9 w+ ~6 D試試    aaa = part.GetConfigurationName(0).Name   改為如下.  

8 y) [! |' X4 k: J谢谢您，我的本意就是要提取配置的名称，而不是零件的名称，现在我的问题已经解决了，但是还是谢谢您！！！

DaveChan

获取当前激活的配置名称：
0 b# `- ?* S$ x) ]& g" e将aaa = part.GetConfigurationName(0).Name更改成
0 i. [4 |# u! h( E+ S1 v8 d6 Baaa = part.GetActiveConfiguration.Name
3 f: F9 M9 a5 p

醉生梦

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

% u8 y+ O0 {% ^, J3 t7 o0 ~谢谢，感谢您的回复，经过测试为正解，谢谢！！
& F0 t( R; U' ~8 P