获取配置属性上的某个属性值失败，请问怎么处理,谢谢！

hdgd501

   经典图书

我是一个很菜的菜鸟，不知道怎么处理代码，忘大神们出来帮忙改好，谢谢！代码如下：

Dim swApp            As SldWorks.SldWorks6
Dim swModel          As SldWorks.ModelDoc
Dim Part             As Object
Dim swCustPropMgr    As SldWorks.CustomPropertyManager
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
swApp.ActiveDoc.ActiveView.FrameState = 1
Value = Part.GetActiveConfigurationValue("", "Material") '这无法获取成功
'Value = Part.GetCustomInfoValue("", "Material")
If Value = "304" Then
    Set swCustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name)
    swCustPropMgr.Delete ("表面处理")
    swCustPropMgr.Add2 "表面处理", swCustomInfoText, "抛光"
    End If
End Sub$

fukang656

顶一下，坐等高手！

suzhanpeng

   经典图书

Value = Part.GetCustomInfoValue("", "Material")
这个应该是可以的，还可以写成
Value = Part.CustomInfo2("", "Material")

这是获取的自定义属性，如果要获取特定配置的属性
Value = Part.GetCustomInfoValue(配置属性的名称, "Material")

hdgd501

suzhanpeng 发表于 2019-7-5 10:09
Value = Part.GetCustomInfoValue("", "Material")
这个应该是可以的，还可以写成
Value = Part.CustomIn ...

我用Value = Part.GetCustomInfoValue(配置属性的名称, "Material")去获取特定配置的属性值，还是没成功，是不是我的配置属性的名称没写对


获取自定义属性值可以成功，但我要获取配置属性里的值试写好多次都没成功，这代码我不知道怎样写

hdgd501

   经典案例图书

suzhanpeng 发表于 2019-7-5 10:09
Value = Part.GetCustomInfoValue("", "Material")
这个应该是可以的，还可以写成
Value = Part.CustomIn ...

谢谢！经过你的指点成功获取配置属性上的某个属性值，在 配置属性的名称 上加上"",还要劳烦下版主，如果是多配置应该怎样自动获取 配置属性的名称

suzhanpeng

hdgd501 发表于 2019-7-5 13:56
谢谢！经过你的指点成功获取配置属性上的某个属性值，在 配置属性的名称 上加上"",还要劳烦下版主，如果 ...

Set  配置属性= swApp.ActiveDoc.GetActiveConfiguration()
配置属性名称 = 配置属性.Name
Value = Part.GetCustomInfoValue(配置属性名称, "Material")

hdgd501

   经典案例图书

suzhanpeng 发表于 2019-7-5 15:55
Set  配置属性= swApp.ActiveDoc.GetActiveConfiguration()
配置属性名称 = 配置属性.Name
Value = Par ...

谢谢，非常的感谢版主！经过你的指点成功在多配置上获取属性上的某个属性值

钓鱼要戴头盔

顶帖一下，学习学习