Hi team,

I can't solve this problem where two links have the same Origin and Destination and where both links overlap each other 100%, so on the screen it only looks as if there only one link (please see attached png file).

Diagram.RouteLinks is set to False, because the resulting beziers are not aesthetically pleasing, and it didn't resolve the issue anyway.

Attached also in the png is all the Diagram.Link... properties.

What I would like to do is move the anchor points of one or both of the overlapping links, so that two loops appear rather than just one.

Thanks in advance for any assistance with this issue.

Hi Slavcho,

Thank you. Yes, I had tried that code, but it doesn't work.

It moves the controll points, but not the anchors. It also moves the control points of one of the links inside the node being linked to itself. Please see the attached.

What I feel is needed is some sort of algorithm that will move the anchor points of one of the links to another part of the node being linked to itself.

Any ideas most welcome.

kind regards,
Victor

Solved - by moving the ControlPoints of the Links joining back to the same ellipse, around ellipse itself.

Something like:

            For Each lrNode As ShapeNode In Me.Diagram.Nodes

                Dim commonLinks As DiagramLinkCollection = getOutgoingLinksWithSameOriginAndDestination(lrNode, lrNode)

                Dim liDegrees As Double = 10
                For Each lrLink As DiagramLink In commonLinks
                    Dim lrNewPointF As PointF

                    Dim liRadius As Integer = lrNode.Bounds.Width / 2
                    Dim liCircleCentreX, liCircleCentreY As Integer
                    liCircleCentreX = lrNode.Bounds.X + (lrNode.Bounds.Width / 2)
                    liCircleCentreY = lrNode.Bounds.Y + (lrNode.Bounds.Height / 2)

                    lrNewPointF = Me.getPointOnCircle(liCircleCentreX, liCircleCentreY, liRadius, liDegrees)

                    lrLink.ControlPoints(0) = lrNewPointF
                    lrLink.ControlPoints(1) = Me.getPointOnCircle(liCircleCentreX, liCircleCentreY, liRadius + 15, liDegrees - 0.3)
                    lrLink.ControlPoints(2) = Me.getPointOnCircle(liCircleCentreX, liCircleCentreY, liRadius + 15, liDegrees + 0.3)
                    lrLink.ControlPoints(lrLink.ControlPoints.Count - 1) = lrNewPointF

                    Call lrLink.UpdateFromPoints()

                    liDegrees += 20
                Next
            Next