Public Sub ColorAllViewAsFaces()
    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument

    Dim oActiveSheet As Sheet
    Set oActiveSheet = oDrawDoc.ActiveSheet

    Dim oView As DrawingView
   
    For Each oView In oActiveSheet.DrawingViews
   
        Dim oCurve As DrawingCurve
        Dim oSegment As DrawingCurveSegment
   
        Dim oOcc As ComponentOccurrence
   
        For Each oOcc In oView.ReferencedDocumentDescriptor.ReferencedDocument.ComponentDefinition.Occurrences

            Dim opartdoc As PartDocument
           
            If oOcc.ReferencedDocumentDescriptor.ReferencedDocumentType = kPartDocumentObject Then
           
                Set opartdoc = oOcc.ReferencedDocumentDescriptor.ReferencedDocument
               
                Dim feaenum As PartFeatures
               
                Set feaenum = opartdoc.ComponentDefinition.Features
               
                Dim opf As PartFeature
               
                For Each opf In feaenum
               
                    Dim oface As Face
                   
                    For Each oface In opf.Faces
                   
                        Dim oNewLayer As Layer
                        Dim dcenum As DrawingCurvesEnumerator
                       
                        Set dcenum = oView.DrawingCurves(oface)
                       
                        If Not dcenum Is Nothing Then
                       
                            Dim oRenderStyle As RenderStyle
                       
                            Dim s As String
                       
                            Dim oColor As Inventor.Color
                           
                            Dim red As Byte
                            Dim green As Byte
                            Dim blue As Byte
                           
                            Dim styletype As StyleSourceTypeEnum
                           
                            Set oRenderStyle = oface.GetRenderStyle(styletype)
                           
                            If styletype = kOverrideRenderStyle Then
                           
                                Call oRenderStyle.GetAmbientColor(red, green, blue)
                                       
                                Set oColor = ThisApplication.TransientObjects.CreateColor(red, green, blue)
                               
                                s = "Layer (" + CStr(red) + " " + CStr(green) + " " + CStr(blue) + ")"
                               
                                'check same name
                                Dim l As Layer
                               
                                Dim b As Boolean
                               
                                b = False
                           
                                For Each l In oDrawDoc.StylesManager.Layers
                                    If l.name = s Then
                                        b = True
                                        Exit For
                                    End If
                                Next
                           
                                'if style exist
                                If b Then
                                    Set oNewLayer = oDrawDoc.StylesManager.Layers.Item(s)
                                Else
                                    Set oNewLayer = oDrawDoc.StylesManager.Layers.Item(oView.DrawingCurves(oOcc).Item(1).Segments.Item(1).Layer.name).Copy(s)
                                    oNewLayer.Color = oColor
                                End If
                           
                                'changing layer of line
                                For Each oCurve In dcenum
                                    For Each oSegment In oCurve.Segments
                                        oSegment.Layer = oNewLayer
                                    Next oSegment
                                Next oCurve
                           
                            End If
                        End If
                    Next
                Next
            End If
        Next
    Next
   
End Sub

Private Sub ChangeViewEdgeColorToFaceColor()

Dim invAllSheets As Sheets
Dim invSHEET As Sheet
Dim invAllViews As DrawingViews
Dim invCurrView As DrawingView
Dim invDrawDOC As DrawingDocument
Dim invAllCurves As DrawingCurvesEnumerator
Dim invCURVE As DrawingCurve
Dim invAllSegs As DrawingCurveSegments
Dim invSEG As DrawingCurveSegment
Dim objGEN As Object
Dim invRenderST As RenderStyle
Dim invFace As Face
Dim bytRED As Byte
Dim bytGREEN As Byte
Dim bytBLUE As Byte
Dim invCOLOR As Color
Dim invTO As TransientObjects
Dim invEdgePRX As EdgeProxy
Dim invAllFACES As Faces


    Set invDrawDOC = ThisApplication.ActiveDocument
    Set invTO = ThisApplication.TransientObjects
    Set invCOLOR = invTO.CreateColor(255, 0, 0)
   
    Set invAllSheets = invDrawDOC.Sheets
    For Each invSHEET In invAllSheets
        Set invAllViews = invSHEET.DrawingViews
        For Each invCurrView In invAllViews
            Set invAllCurves = invCurrView.DrawingCurves
            For Each invCURVE In invAllCurves
                Set invAllSegs = invCURVE.Segments
                For Each invSEG In invAllSegs
                    Set objGEN = invSEG.Parent.ModelGeometry
                    If TypeOf objGEN Is EdgeProxy Then
                        Set invEdgePRX = objGEN
                        Set invAllFACES = invEdgePRX.Faces
                        For Each invFace In invAllFACES
                            Set invRenderST = invFace.GetRenderStyle(kOverrideRenderStyle)
                            If Not invRenderST Is Nothing Then
                                invRenderST.GetAmbientColor bytRED, bytGREEN, bytBLUE
                                invCOLOR.SetColor bytRED, bytGREEN, bytBLUE
                                invCURVE.OverrideColor = invCOLOR
                            End If
                        Next invFace
                    End If
                Next invSEG
            Next invCURVE
        Next invCurrView
    Next invSHEET

End Sub

Private Sub ChangeViewEdgeColorToFaceColor()

Dim invAllSheets As Sheets
Dim invSHEET As Sheet
Dim invAllViews As DrawingViews
Dim invCurrView As DrawingView
Dim invDrawDOC As DrawingDocument
Dim invAllCurves As DrawingCurvesEnumerator
Dim invCURVE As DrawingCurve
Dim invAllSegs As DrawingCurveSegments
Dim invSEG As DrawingCurveSegment
Dim objGEN As Object
Dim invCOLOR As Color
Dim invTO As TransientObjects
Dim invEdgePRX As EdgeProxy
Dim invEDGE As Edge
Dim invAllFACES As Faces


    Set invDrawDOC = ThisApplication.ActiveDocument
    Set invTO = ThisApplication.TransientObjects
    Set invCOLOR = invTO.CreateColor(255, 0, 0)
   
    Set invAllSheets = invDrawDOC.Sheets
    For Each invSHEET In invAllSheets
        Set invAllViews = invSHEET.DrawingViews
        For Each invCurrView In invAllViews
            Set invAllCurves = invCurrView.DrawingCurves
            For Each invCURVE In invAllCurves
                Set invAllSegs = invCURVE.Segments
                For Each invSEG In invAllSegs
                    Set objGEN = invSEG.Parent.ModelGeometry
                    If TypeOf objGEN Is EdgeProxy Then
                        Set invEdgePRX = objGEN
                        Set invAllFACES = invEdgePRX.Faces
                        ChangeColor invAllFACES, invCOLOR, invCURVE
                    ElseIf TypeOf objGEN Is Edge Then
                        Set invEDGE = objGEN
                        Set invAllFACES = invEDGE.Faces
                        ChangeColor invAllFACES, invCOLOR, invCURVE
                    End If
                Next invSEG
            Next invCURVE
        Next invCurrView
    Next invSHEET

End Sub


Private Sub ChangeColor(ByRef invFACES As Faces, _
                        ByRef invCOLOR As Color, _
                        ByRef invCURVE As DrawingCurve)

Dim invFace As Face
Dim bytRED As Byte
Dim bytGREEN As Byte
Dim bytBLUE As Byte
Dim invRenderST As RenderStyle

    For Each invFace In invFACES
        Set invRenderST = invFace.GetRenderStyle(kOverrideRenderStyle)
        If Not invRenderST Is Nothing Then
            invRenderST.GetAmbientColor bytRED, bytGREEN, bytBLUE
            invCOLOR.SetColor bytRED, bytGREEN, bytBLUE
            invCURVE.OverrideColor = invCOLOR
        End If
    Next invFace
   
End Sub

Public Sub ChangeViewEdgeColorToFaceColor11()

Dim invAllSheets As Sheets
Dim invSHEET As Sheet
Dim invAllViews As DrawingViews
Dim invCurrView As DrawingView
Dim invDrawDOC As DrawingDocument
Dim invAllCurves As DrawingCurvesEnumerator
Dim invCURVE As DrawingCurve
Dim invAllSegs As DrawingCurveSegments
Dim invSEG As DrawingCurveSegment
Dim objGEN As Object
Dim invCOLOR As Color
Dim invTO As TransientObjects
Dim invEdgePRX As EdgeProxy
Dim invEDGE As Edge
Dim invAllFACES As Faces


    Set invDrawDOC = ThisApplication.ActiveDocument
    Set invTO = ThisApplication.TransientObjects
    Set invCOLOR = invTO.CreateColor(255, 0, 0)
   
    Set invAllSheets = invDrawDOC.Sheets
    For Each invSHEET In invAllSheets
        Set invAllViews = invSHEET.DrawingViews
        For Each invCurrView In invAllViews
            Set invAllCurves = invCurrView.DrawingCurves
            For Each invCURVE In invAllCurves
                Set invAllSegs = invCURVE.Segments
                For Each invSEG In invAllSegs
                    Set objGEN = invSEG.Parent.ModelGeometry
                    If Not objGEN Is Nothing Then
                        If TypeOf objGEN Is EdgeProxy Then
                            Set invEdgePRX = objGEN
                            Set invAllFACES = invEdgePRX.Faces
                            ChangeColor11 invAllFACES, invCOLOR, invSEG
                        ElseIf TypeOf objGEN Is Edge Then
                            Set invEDGE = objGEN
                            Set invAllFACES = invEDGE.Faces
                            ChangeColor11 invAllFACES, invCOLOR, invSEG
                        End If
                    End If
                Next invSEG
            Next invCURVE
        Next invCurrView
    Next invSHEET

End Sub


Private Sub ChangeColor11(ByRef invFACES As Faces, _
                        ByRef invCOLOR As Color, _
                        ByRef invSEG As DrawingCurveSegment)

Dim invFace As Face
Dim bytRED As Byte
Dim bytGREEN As Byte
Dim bytBLUE As Byte
Dim invRenderST As RenderStyle
Dim oDrawDoc As DrawingDocument

Set oDrawDoc = ThisApplication.ActiveDocument

    For Each invFace In invFACES
        Set invRenderST = invFace.GetRenderStyle(kOverrideRenderStyle)
        If Not invRenderST Is Nothing Then
            invRenderST.GetAmbientColor bytRED, bytGREEN, bytBLUE
            invCOLOR.SetColor bytRED, bytGREEN, bytBLUE
           
            Dim oNewLayer As Layer
            Dim s As String
            s = "Layer (" + CStr(bytRED) + " " + CStr(bytGREEN) + " " + CStr(bytBLUE) + ")"
                       
            Dim l As Layer
            Dim b As Boolean
            Dim idx As Integer
            idx = 0
            b = False
            For Each l In oDrawDoc.StylesManager.Layers
                idx = idx + 1
                If l.name = s Then
                    b = True
                    Exit For
                End If
            Next
           
            If b Then
                Set oNewLayer = oDrawDoc.StylesManager.Layers.Item(s)
            Else
                Set oNewLayer = invSEG.Layer.Copy(s)
                oNewLayer.Color = invCOLOR
            End If
           
            invSEG.Layer = oNewLayer
        End If
    Next invFace
   
End Sub