Set Property of Drawing when saving part

Sub save_part(name)
    Dim partOperationCopyBuilder1 As NXOpen.PDM.PartOperationCopyBuilder = theSession.PdmSession.CreateCopyOperationBuilder(NXOpen.PDM.PartOperationBuilder.OperationType.SaveAs)
    partOperationCopyBuilder1.SetOperationSubType(NXOpen.PDM.PartOperationCopyBuilder.OperationSubType.Default)
    partOperationCopyBuilder1.DependentFilesToCopyOption = NXOpen.PDM.PartOperationCopyBuilder.CopyDependentFiles.All
    partOperationCopyBuilder1.ReplaceAllComponentsInSession = True
 
    Dim selectedparts1(0) As NXOpen.BasePart
    selectedparts1(0) = workPart
    partOperationCopyBuilder1.SetSelectedPartsToCopy(selectedparts1, Nothing)
 
    Dim logicalobjects2() As NXOpen.PDM.LogicalObject = Nothing
    partOperationCopyBuilder1.CreateLogicalObjects(logicalobjects2)
 
    Dim objects2(-1) As NXOpen.NXObject
    Dim attributePropertiesBuilder1 As NXOpen.AttributePropertiesBuilder = theSession.AttributeManager.CreateAttributePropertiesBuilder(Nothing, objects2, NXOpen.AttributePropertiesBuilder.OperationType.None)
    attributePropertiesBuilder1.SetAttributeObjects(logicalobjects2(0).GetUserAttributeSourceObjects())
 
    attributePropertiesBuilder1.Title = "DB_PART_NAME"
    attributePropertiesBuilder1.Category = "Item"
    attributePropertiesBuilder1.StringValue = name
    attributePropertiesBuilder1.CreateAttribute()
 
    partOperationCopyBuilder1.ValidateLogicalObjectsToCommit()
    partOperationCopyBuilder1.Commit()
    partOperationCopyBuilder1.Destroy()
    attributePropertiesBuilder1.Destroy()
End Sub