AnsweredAssumed Answered

Macro to update config cutom properties

Question asked by Graeme Duffell on Jan 30, 2016
Latest reply on Jan 31, 2016 by Adam Hoffman

Hi, Thanks in advance for any advice.


I need a macro to transfer properties from the Cut-list-item 1 to custom properties of the current configuration of the part.


Have come accros the one below but will only transfer to doc custom properties not the configurations. Any pointers on what needs to change?




Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swFeat As SldWorks.Feature

Dim swCustPropMgr As SldWorks.CustomPropertyManager

Dim strValue As String


Sub main()



    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swFeat = swModel.FirstFeature

    Do While Not swFeat Is Nothing

        If swFeat.Name = "Cut-List-Item1" Then

            Set swCustPropMgr = swFeat.CustomPropertyManager

            swCustPropMgr.Get4 "Description", False, Empty, strValue


            Set swCustPropMgr = swModel.Extension.CustomPropertyManager(Empty)

            swCustPropMgr.Set2 "Description", strValue


            Exit Do

        End If

        Set swFeat = swFeat.GetNextFeature


End Sub