Create a new custom property from a portion of an existing property?

Check the macro here: https://forum.solidworks.com/message/133512#133512

Jeff,

Are you trying to create a new custom property or simply update an existing one?  If the latter, here is code that will find a custom property called "FileName" with a value of "AA-XXXX" and update it to "XXXX":

=====

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swCustPropMgr As SldWorks.CustomPropertyManager

Dim strValOut As String

Sub main()

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swCustPropMgr = swModel.Extension.CustomPropertyManager(Empty)

    swCustPropMgr.Get4 "FileName", True, strValOut, Empty

    swCustPropMgr.Set "FileName", Replace(strValOut, "AA-", "")

End Sub

=====

Alternatively, if you are actually adding a new custom property, then use ICustomPropertyManager::Add2 instead of ICustomPropertyManager::Set.

Keith

Video Tutorials for the SolidWorks API