Sub count1()
Dim oDrDoc As DrawingDocument
Set oDrDoc = ThisApplication.ActiveDocument
Dim oSheet As Sheet
Set oSheet = oDrDoc.ActiveSheet
Dim oView As DrawingView
Set oView = oSheet.DrawingViews.Item(2)
Dim oPartDoc As PartDocument
Set oPartDoc = oView.ReferencedDocumentDescriptor.ReferencedDocument
Debug.Print (oPartDoc.AttributeManager.FindObjects("Flange", "Uplotnitel", "EndB").Count)
Debug.Print (oView.DrawingCurves(oPartDoc.AttributeManager.FindObjects("Flange", "Uplotnitel", "EndB").Item(1)).Count)
Dim oDCurve1 As DrawingCurve
Dim oRed As Color
Set oRed = ThisApplication.TransientObjects.CreateColor(255, 0, 0)
For i = 1 To oView.DrawingCurves(oPartDoc.AttributeManager.FindObjects("Flange", "Uplotnitel", "EndB").Item(1)).Count
Set oDCurve1 = oView.DrawingCurves(oPartDoc.AttributeManager.FindObjects("Flange", "Uplotnitel", "EndB").Item(1)).Item(i)
oDCurve1.Color = oRed
Next
End Sub