I just want to copy the cut list custom property to part custom property. I know there is no workaround other than copy and paste. wondering if any one have sample macro to copy the weldment description alone ?
Dim swApp As SldWorks.SldWorks
Dim swmodel As SldWorks.ModelDoc2
Dim swfeat As SldWorks.Feature
Dim swweldcut As SldWorks.WeldmentCutListFeature
Dim vweldann As Variant
Dim vcustprp As Variant
Dim i As Long
Dim j As Long
'Dim cutlist As SldWorks.
Dim swcust As SldWorks.CustomPropertyManager
Dim retval As Long
Dim valout As String
Dim resolvedval As String
Dim wasresolved As Boolean
Dim cpm As SldWorks.CustomPropertyManager
Set swApp = Application.SldWorks
Set swmodel = swApp.ActiveDoc
Set swfeat = swmodel.FirstFeature
Do While Not swfeat Is Nothing
swfeat.Select2 False, 0
If swfeat.GetTypeName2 = "CutListFolder" Then
Set swcust = swfeat.CustomPropertyManager
retval = swcust.Get5("Description", False, valout, resolvedval, wasresolved)
Set swfeat = swfeat.GetNextFeature
Set cpm = swmodel.Extension.CustomPropertyManager("")
cpm.Add2 "Description", swCustomInfoText, valout
Thanks for your reply. it doesn't overwrites the description value. but it does the work on plain template. Anyhow, that's what I am looking for. Thank you.
how to add another variable like length into this macro? any suggestion please.
'The below line helps to get the "Description" property text from last cutlist and gives its output in "valout"
'Please try for different property in the cutlist
'This is to add the "Description" property to the custom property with its value which we have collected as "valout" from the 'previous steps
Retrieving data ...