Help: Highlight Selected Body (Select one in view then it'll highlight in all other views) using API/iLogic

[ngdnam88]

Dears,

Please help me a code by iLogic/API/VBA that can: Highlight Selected Body (Select one (red arrow) in any view then it'll highlight (green arrows) in all other views) in Drawing.

The 3D Model can be done by:

+ Part with MultiSolid-Bodies (.ipt)

+ Part with MultiSolid-Bodies but put inside an iAssembly (.iam)
Thank you very much!

[Michael.Navara]

This is a minimalistic sample, how to highlight picked body in all views on current sheet.

Dim pick = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingCurveSegmentFilter, "Pick curve")
Dim pickedCurveSegment As DrawingCurveSegment = pick

Dim pickedDrawingCurve As DrawingCurve = pickedCurveSegment.Parent
Dim modelGeometry As Object = pickedDrawingCurve.ModelGeometry
Dim edge As Edge = modelGeometry
Dim surfaceBody As SurfaceBody = edge.Parent

Dim sheet As Sheet = pickedDrawingCurve.Parent.Parent
Dim drawing As DrawingDocument = sheet.Parent

Dim hSet As HighlightSet = drawing.CreateHighlightSet()
hSet.Color = ThisApplication.TransientObjects.CreateColor(255, 0, 0)

For Each drwView As DrawingView In sheet.DrawingViews
    Dim bodyCurves As DrawingCurvesEnumerator = drwView.DrawingCurves(surfaceBody)
    Dim curveSegmentsCollection As ObjectCollection = ThisApplication.TransientObjects.CreateObjectCollection()
    For Each bodyCurve As DrawingCurve In bodyCurves
        For Each bodyCurveSegment As DrawingCurveSegment In bodyCurve.Segments
            curveSegmentsCollection.Add(bodyCurveSegment)
        Next
    Next

    hSet.AddMultipleItems(curveSegmentsCollection)
Next

[ngdnam88]

Thanks @Michael.Navara 
Your code can run in normal (standard) part/assembly but got an error in iPart/iAssembly

I'm trying understand your code. Thanks for your help!

[Michael.Navara]

May be. It is just a sample 'how to'. You can upgrade the code for iParts/iAssemblies as well.

[ngdnam88]

It's very difficult with me, but I'll try to do...
Thank you very much!