Public Sub PartPicSetFaceColor()
    Dim partDoc As PartDocument
    Set partDoc = ThisApplication.ActiveDocument
   
    ' Check to see if the client graphics already exist and delete them if they do.
    On Error Resume Next
    Dim graphics As ClientGraphics
    Set graphics = partDoc.ComponentDefinition.ClientGraphicsCollection.Item("ColorTest")
    If Err.Number = 0 Then
        graphics.Delete
        ThisApplication.ActiveView.Update
        Exit Sub
    End If
    On Error GoTo 0
   
    Dim selectedFace As Face
    Set selectedFace = ThisApplication.CommandManager.Pick(kPartFaceFilter, "Select a face")
           
    ' They don't exist so create them.
    Set graphics = partDoc.ComponentDefinition.ClientGraphicsCollection.Add("ColorTest")
    Dim node As GraphicsNode
    Set node = graphics.AddNode(1)
   
    ' Create surface graphics using the selected face.
    Dim surfGraphics As SurfaceGraphics
    Set surfGraphics = node.AddSurfaceGraphics(selectedFace)
   
    ' Set the priority so that it will display on top of the real face.
    surfGraphics.DepthPriority = 3
   
    ' Define the color using rgb values.
    surfGraphics.Color = ThisApplication.TransientObjects.CreateColor(255, 10, 10, 1)
   
    ' Refresh the view.
    ThisApplication.ActiveView.Update
End Sub

Public Sub M4PicSetFaceColor()
    ''Dim oDoc As PartDocument ''PartDocument was original , variant for part
    Dim oDoc As AssemblyDocument  '' variant for assembly
   
    Set oDoc = ThisApplication.ActiveDocument
   
   
   
       Dim selectedFace As Face
    Set selectedFace = ThisApplication.CommandManager.Pick(kPartFaceFilter, "Select a face")
   
   
    ' Check to see if the client graphics already exist and delete them if they do.
    On Error Resume Next
   
   
    Dim oDataSets As GraphicsDataSets
   
    Dim graphics As ClientGraphics
     
    Dim myidstring As String
    myidstring = "ColorTest13"
     
    '' Set oDataSets = oDoc.GraphicsDataSetsCollection.Item(myidstring)
    ''   If Err.Number = 0 Then
    ''    Call oDataSets.Delete
    ''    ThisApplication.ActiveView.Update
    ''    End If
   
   
    ''variant for part
     Set graphics = oDoc.ComponentDefinition.ClientGraphicsCollection.Item(myidstring)
   
    ''variant for assembly
    ''Set graphics = oDoc.AssemblyComponentDefinition.ClientGraphicsCollection.Item(myidstring)
     
     
    If Err.Number = 0 Then
       
        Call graphics.Delete
        ThisApplication.ActiveView.Update
    End If
    On Error GoTo 0
   

    ' They don't exist so create them.
   
    ''Set oDataSets = oDoc.GraphicsDataSetsCollection.Add(myidstring)
    ''variant for part
    Set graphics = oDoc.ComponentDefinition.ClientGraphicsCollection.Add(myidstring)
   
    ''variant for assembly
    ''Set graphics = oDoc.AssemblyComponentDefinition.ClientGraphicsCollection.Add(myidstring)
   
      Dim oTransientBRep As TransientBRep
        Set oTransientBRep = ThisApplication.TransientBRep
        '' Call oTransientBRep.CreateSurfaceBodyDefinition
   
    Dim node As GraphicsNode
    Set node = graphics.AddNode(1)
   
    Dim oSurfaceGraphics As SurfaceGraphics
   
    Dim oSurfaceBody As SurfaceBody
   
        Set oSurfaceBody = oTransientBRep.Copy(selectedFace)
        ''''  Set oSurfaceGraphics = node.AddSurfaceGraphics(oSurfaceBody) '''same result as below
       Set oSurfaceGraphics = node.AddSurfaceGraphics(oSurfaceBody.Faces.Item(1))
       
   
   
   
    ' Create surface graphics using the selected face.
   
    ''Set surfGraphics = node.AddSurfaceGraphics(selectedFace) ''REMFAILFAIL
      ''THIS FAILS IN VARIANT FOR ASSEMBLY!!
   
   
    ' Set the priority so that it will display on top of the real face.
    oSurfaceGraphics.DepthPriority = 3
    ' Define the color using rgb values.
    oSurfaceGraphics.Color = ThisApplication.TransientObjects.CreateColor(10, 255, 10, 1)
    ' Refresh the view.
    ThisApplication.ActiveView.Update
End Sub

Dim myidstring As String
Const cmyid As String = "Colortest"


Public Sub M6PicSetFaceColor()
    ''Dim oDoc As PartDocument ''PartDocument was original , variant for part
    Dim oDoc As AssemblyDocument  '' variant for assembly
   
    Set oDoc = ThisApplication.ActiveDocument
   
   
   
       Dim selectedFace As Face
    Set selectedFace = ThisApplication.CommandManager.Pick(kPartFaceFilter, "Select a face")
   
   
    ' Check to see if the client graphics already exist and delete them if they do.
    On Error Resume Next
   
   
    Dim oDataSets As GraphicsDataSets
   
    Dim graphics As ClientGraphics
     
    ''Dim myidstring As String
    myidstring = cmyid '' "ColorTest13"
     
     

   
       Set graphics = oDoc.ComponentDefinition.ClientGraphicsCollection.Item(myidstring)
     
     
    If Err.Number = 0 Then
   
     ''   Call graphics.Delete
        ThisApplication.ActiveView.Update
        Else:
        Set graphics = oDoc.ComponentDefinition.ClientGraphicsCollection.Add(myidstring)
    End If
    ''On Error GoTo 0
   

    ' They don't exist so create them.
   
 
    ''variant for part
    Set graphics = oDoc.ComponentDefinition.ClientGraphicsCollection.Add(myidstring)
   
    ''variant for assembly
    ''Set graphics = oDoc.AssemblyComponentDefinition.ClientGraphicsCollection.Add(myidstring)
    '' run-time error Object doesnt support this property or method
   
      Dim oTransientBRep As TransientBRep
        Set oTransientBRep = ThisApplication.TransientBRep
        '' Call oTransientBRep.CreateSurfaceBodyDefinition
   
    Dim node As GraphicsNode
    Set node = graphics.AddNode(1)
   
    Dim oSurfaceGraphics As SurfaceGraphics
   
    Dim oSurfaceBody As SurfaceBody
   
        Set oSurfaceBody = oTransientBRep.Copy(selectedFace)
        ''''  Set oSurfaceGraphics = node.AddSurfaceGraphics(oSurfaceBody) '''same result as below
       Set oSurfaceGraphics = node.AddSurfaceGraphics(oSurfaceBody.Faces.Item(1))
       
   
   
   
    ' Create surface graphics using the selected face.
   
    ''Set surfGraphics = node.AddSurfaceGraphics(selectedFace)
      ''THIS FAILS IN VARIANT FOR ASSEMBLY!!
   
   
    ' Set the priority so that it will display on top of the real face.
    oSurfaceGraphics.DepthPriority = 3
    ' Define the color using rgb values.
    oSurfaceGraphics.Color = ThisApplication.TransientObjects.CreateColor(10, 255, 10, 1)
    ' Refresh the view.
    ThisApplication.ActiveView.Update
End Sub


Public Sub M6Delete_added()
      myidstring = cmyid
       Dim oDoc As AssemblyDocument  '' variant for assembly
   
    Set oDoc = ThisApplication.ActiveDocument
     
    On Error Resume Next
   
   Set graphics = oDoc.ComponentDefinition.ClientGraphicsCollection.Item(myidstring)
     
     
    If Err.Number = 0 Then
   
        Call graphics.Delete
       ThisApplication.ActiveView.Update
    End If
End Sub