AnsweredAssumed Answered

How to change custom Value in the summary information?

Question asked by Yong Ning on Feb 2, 2012
Latest reply on Feb 4, 2012 by Filipe Venceslau

Like • Show 0 Likes0
Comment • 5

I use follow code, Creat custom information.

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim value As String

Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

swModel.AddCustomInfo3 "", "MyProp3", swCustomInfoNumber, "3"
swModel.AddCustomInfo3 "", "MyProp4", swCustomInfoNumber, "4"

Dim retval() As String
Dim i As Integer

retval = swModel.GetCustomInfoNames2("")
For i = 0 To UBound(retval)
swApp.SendMsgToUser2 retval(i), 0, 0
Next

Dim count As Long
count = swModel.GetCustomInfoCount2("")
'swApp.SendMsgToUser2 "You have " & count & " custom properties.", 0, 0
swApp.SendMsgToUser2 _
"You have " & count & " custom properties.", 0, 0
End Sub

Result see Graph

Target demand:

How to change Custom value

e.g. value/text expression 3 change 10

e.g. value/text expression 4 change 11

Thanks very much.

Filipe Venceslau Feb 3, 2012 10:57 AM

Correct Answer

Hi Yong, you should use the IModelDocExtension::CustomPropertyManager instead for managing your custom properties...it is very simple and efficientto use.

There are methods for Adding (Add2), gettings (Get4), deleting (Delete), setting (Set) and more.

You can implement CustomPropertyManager to either config specific properties (swModel.Extension.CustomPropertyManager("ConfigName")) or for the custom tab (Just send in empty "ConfigName" -> "").

Once you have the CustomPropertyManager you can call the methods mentioned above.

I typically test to see if the custom property exists so I can be sure my code will do the right thing. The reason I do this is because if you use the Set method, if the custom property doesn't exists, it won't work, and you can't be sure whether it failed because the value you tried setting was invalid or if the property didn't exist in the first place.

Here's an example for what you're trying to do:

'===VB.NET Code====

Dim cpMgr As CustomPropertyManager = swModel.Extension.CustomPropertyManager("")
Dim pName as string = string.empty
Dim pValue as string = string.empty

pName = "MyProp3"
pValue = "10"
'Try Add2 method, and if adding fails, should mean property already exists
If cpMgr.Add2(pName, swCustomInfoType_e.swCustomInfoText, pValue) <> 1 Then
     'If propery already exists, use set method
     cpMgr.Set(pName, pValue)
End If

pName = "MyProp4"
pValue = "11"
'Try Add2 method, and if adding fails, should mean property already exists
If cpMgr.Add2(pName, swCustomInfoType_e.swCustomInfoText, pValue) <> 1 Then
     'If propery already exists, use set method
     cpMgr.Set(pName, pValue)
End If

'====VBA Code====

'Get Custom (sending in "" for config name) Properties CustomPropertyManager
Dim cpMgr As CustomPropertyManager
Set cpMgr = swModel.Extension.CustomPropertyManager("")


Dim pName As String
Dim pValue As String


pName = "MyProp3"
pValue = "10"
'Try Add2 method, and if adding fails, should mean property already exists
If cpMgr.Add2(pName, swCustomInfoType_e.swCustomInfoText, pValue) <> 1 Then
     'If propery already exists, use set method
     cpMgr.Set pName, pValue
End If


pName = "MyProp4"
pValue = "11"
'Try Add2 method, and if adding fails, should mean property already exists
If cpMgr.Add2(pName, swCustomInfoType_e.swCustomInfoText, pValue) <> 1 Then
     'If propery already exists, use set method
     cpMgr.Set pName, pValue
End If

Hope this helps,

Filipe

See the reply in context

No one else had this question

Outcomes

Deepak Gupta Feb 2, 2012 11:21 PM

You've to either delete them, check this post: https://forum.solidworks.com/message/137710#137710

Modify/Overwrite them, check this post:https://forum.solidworks.com/message/162606#162606

Actions

Yong Ning @ Deepak Gupta on Feb 3, 2012 2:29 AM

Thanks,Need further digest this post

Actions

Filipe Venceslau @ Yong Ning on Feb 3, 2012 10:57 AM

Hi Yong, you should use the IModelDocExtension::CustomPropertyManager instead for managing your custom properties...it is very simple and efficientto use.

There are methods for Adding (Add2), gettings (Get4), deleting (Delete), setting (Set) and more.

You can implement CustomPropertyManager to either config specific properties (swModel.Extension.CustomPropertyManager("ConfigName")) or for the custom tab (Just send in empty "ConfigName" -> "").

Once you have the CustomPropertyManager you can call the methods mentioned above.

Here's an example for what you're trying to do:

'===VB.NET Code====

Dim cpMgr As CustomPropertyManager = swModel.Extension.CustomPropertyManager("")
Dim pName as string = string.empty
Dim pValue as string = string.empty

pName = "MyProp3"
pValue = "10"
'Try Add2 method, and if adding fails, should mean property already exists
If cpMgr.Add2(pName, swCustomInfoType_e.swCustomInfoText, pValue) <> 1 Then
     'If propery already exists, use set method
     cpMgr.Set(pName, pValue)
End If

pName = "MyProp4"
pValue = "11"
'Try Add2 method, and if adding fails, should mean property already exists
If cpMgr.Add2(pName, swCustomInfoType_e.swCustomInfoText, pValue) <> 1 Then
     'If propery already exists, use set method
     cpMgr.Set(pName, pValue)
End If

'====VBA Code====

'Get Custom (sending in "" for config name) Properties CustomPropertyManager
Dim cpMgr As CustomPropertyManager
Set cpMgr = swModel.Extension.CustomPropertyManager("")


Dim pName As String
Dim pValue As String


pName = "MyProp3"
pValue = "10"
'Try Add2 method, and if adding fails, should mean property already exists
If cpMgr.Add2(pName, swCustomInfoType_e.swCustomInfoText, pValue) <> 1 Then
     'If propery already exists, use set method
     cpMgr.Set pName, pValue
End If


pName = "MyProp4"
pValue = "11"
'Try Add2 method, and if adding fails, should mean property already exists
If cpMgr.Add2(pName, swCustomInfoType_e.swCustomInfoText, pValue) <> 1 Then
     'If propery already exists, use set method
     cpMgr.Set pName, pValue
End If

Hope this helps,

Filipe

Actions

Yong Ning @ Filipe Venceslau on Feb 4, 2012 1:59 AM

Thanks your tips

I find other simple code.

Sub fff()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

With Part

.AddCustomInfo3 "", "Name", 30, "Text"

MsgBox "See Custom Value in the summary information? "

.CustomInfo2("", "Name") = "Change Text "

MsgBox "Change Custom Value in the summary information? "

End With

End Sub

-----

.AddCustomInfo3 "", "Name", 30, "Text"

Result see follow Graph

.CustomInfo2("", "Name") = "Change Text "

Result see follow Graph

Actions

Filipe Venceslau @ Yong Ning on Feb 4, 2012 12:17 PM

Hi Yong, sure this works, but it is not the ideal way of going about it.

In the API documentation, pretty much every function related to Custom/Config Specific Properties has been superseded by the CustomPropertyManager Property (IModelDocExtension).

In the end you do it how you feel more comfortable, but the preffered route when dealing with custom properties is the CustomPropertyManager.

Cheers

Actions

5 Replies

Deepak Gupta Feb 2, 2012 11:21 PM
Mark Correct
Correct Answer
You've to either delete them, check this post: https://forum.solidworks.com/message/137710#137710

OR

Modify/Overwrite them, check this post:https://forum.solidworks.com/message/162606#162606
Like • Show 0 Likes0
Actions
- Yong Ning @ Deepak Gupta on Feb 3, 2012 2:29 AM
  Mark Correct
  Correct Answer
  Thanks,Need further digest this post
  Like • Show 0 Likes0
  Actions
  - Filipe Venceslau @ Yong Ning on Feb 3, 2012 10:57 AM
    Unmark Correct
    Correct Answer
    Hi Yong, you should use the IModelDocExtension::CustomPropertyManager instead for managing your custom properties...it is very simple and efficientto use.
    There are methods for Adding (Add2), gettings (Get4), deleting (Delete), setting (Set) and more.
    
    You can implement CustomPropertyManager to either config specific properties (swModel.Extension.CustomPropertyManager("ConfigName")) or for the custom tab (Just send in empty "ConfigName" -> "").
    Once you have the CustomPropertyManager you can call the methods mentioned above.
    
    I typically test to see if the custom property exists so I can be sure my code will do the right thing. The reason I do this is because if you use the Set method, if the custom property doesn't exists, it won't work, and you can't be sure whether it failed because the value you tried setting was invalid or if the property didn't exist in the first place.
    
    Here's an example for what you're trying to do:
    
    '===VB.NET Code==== Dim cpMgr As CustomPropertyManager = swModel.Extension.CustomPropertyManager("") Dim pName as string = string.empty Dim pValue as string = string.empty pName = "MyProp3" pValue = "10" 'Try Add2 method, and if adding fails, should mean property already exists If cpMgr.Add2(pName, swCustomInfoType_e.swCustomInfoText, pValue) <> 1 Then 'If propery already exists, use set method cpMgr.Set(pName, pValue) End If pName = "MyProp4" pValue = "11" 'Try Add2 method, and if adding fails, should mean property already exists If cpMgr.Add2(pName, swCustomInfoType_e.swCustomInfoText, pValue) <> 1 Then 'If propery already exists, use set method cpMgr.Set(pName, pValue) End If
    
    '====VBA Code==== 'Get Custom (sending in "" for config name) Properties CustomPropertyManager Dim cpMgr As CustomPropertyManager Set cpMgr = swModel.Extension.CustomPropertyManager("") Dim pName As String Dim pValue As String pName = "MyProp3" pValue = "10" 'Try Add2 method, and if adding fails, should mean property already exists If cpMgr.Add2(pName, swCustomInfoType_e.swCustomInfoText, pValue) <> 1 Then 'If propery already exists, use set method cpMgr.Set pName, pValue End If pName = "MyProp4" pValue = "11" 'Try Add2 method, and if adding fails, should mean property already exists If cpMgr.Add2(pName, swCustomInfoType_e.swCustomInfoText, pValue) <> 1 Then 'If propery already exists, use set method cpMgr.Set pName, pValue End If
    
    Hope this helps,
    
    Filipe
    Like • Show 0 Likes0
    Actions
    - Yong Ning @ Filipe Venceslau on Feb 4, 2012 1:59 AM
      Mark Correct
      Correct Answer
      Thanks your tips
      
      I find other simple code.
      
      Sub fff()
      Set swApp = Application.SldWorks
      Set Part = swApp.ActiveDoc
                With Part
                 .AddCustomInfo3 "", "Name", 30, "Text"
                 MsgBox "See Custom Value in the summary information? "
                 .CustomInfo2("", "Name") = "Change Text "
                 MsgBox "Change Custom Value in the summary information? "
              End With
      End Sub
      
      -----
      .AddCustomInfo3 "", "Name", 30, "Text"
      Result see follow Graph
                 .CustomInfo2("", "Name") = "Change Text "
      Result see follow Graph
      
      Like • Show 0 Likes0
      Actions
      - Filipe Venceslau @ Yong Ning on Feb 4, 2012 12:17 PM
        Mark Correct
        Correct Answer
        Hi Yong, sure this works, but it is not the ideal way of going about it.
        In the API documentation, pretty much every function related to Custom/Config Specific Properties has been superseded by the CustomPropertyManager Property (IModelDocExtension).
        In the end you do it how you feel more comfortable, but the preffered route when dealing with custom properties is the CustomPropertyManager.
        
        Cheers
        Like • Show 0 Likes0
        Actions

How to change custom Value in the summary information?

Outcomes

Related Content

Recommended Content