I am trying to create a simple macro that toggles the "Rename cut list folders with Description property value" in the document options of a part.
I have found the following post, which helped me get the code (see below) working.
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim instance As IModelDocExtension
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set instance = Part.Extension
boolstatus = instance.SetUserPreferenceToggle(swUserPreferenceToggle_e.swWeldmentRenameCutlistDescriptionPropertyValue, 0, True)
The option does seem to be toggling on however the actual cutting list doesn't seem to be changing at all where as if i was to do it manually outside of the macro then it does change. Am i missing something that i need to add in order to get this sorted.
Thanks in advanced