Getting attributed solids / edges from drawing

[NachoShaw]

Hey

I have created attributes to some geometry edges in my parts and am looking for a way to find them at drawing level.

Basically, I need to get the edges with attributes and change the layer to FP_L

[JelteDeJong]

Try this code.

Dim drwDoc As DrawingDocument = ThisApplication.ActiveDocument
Dim layer = drwDoc.StylesManager.Layers.Item("hole 10")

For Each sheet As Sheet In drwDoc.Sheets
    For Each view As DrawingView In sheet.DrawingViews
        Dim doc As PartDocument = view.ReferencedDocumentDescriptor.ReferencedDocument
        Dim foundObjects As ObjectCollection = doc.AttributeManager.FindObjects("MyAttributeSet", "MyAttribute")
        For Each obj As Object In foundObjects
            If (TypeOf obj Is Edge) Then
                For Each curve As DrawingCurve In view.DrawingCurves(obj)
                    For Each segment As DrawingCurveSegment In curve.Segments
                        segment.Layer = layer
                    Next
                Next
            End If
        Next
    Next
Next

it will crash if you have any view in any sheet of an assembly. (that could be fixed easy.)