How to check the 90 degree angle on the route

You can use this code below (I just quickly wrote this, so hopefully you can see the approach to use). 

Given a set of selected objects, using abCheckObjectsOrthogonal(geGetSelSet()) will return t if all objects only have 90 degree angles, or nil if any do not.

Regards,

Andrew

/* abCheckObjectsOrthogonal.il

Author     A.D.Beckett
Group      Custom IC (UK), Cadence Design Systems Ltd.
Language   SKILL
Date       Jul 09, 2021 
Modified   
By         

Function to determine whether an object or list of objects
are all orthogonal (i.e. have 90 degree angles only)

***************************************************

SCCS Info: @(#) abCheckObjectsOrthogonal.il 07/09/21.11:03:43 1.1

*/

/*****************************************************************
*                                                                *
*               abCheckObjectsOrthogonal(objects)                *
*                                                                *
*      Given an object (or list of objects) return whether       *
*  all objects are orthogonal (if any object is not orthogonal   *
* then return nil). Only checks rect (which must be orthogonal), *
*      polygon, path, line and pathSeg - everything else is      *
*  orthgonal (perhaps ellipses, donuts and arcs should not be,   *
*         but these don't appear in layout that often!)          *
*                                                                *
*****************************************************************/

procedure(abCheckObjectsOrthogonal(objects)
    let((points closed orthogonal lastPt)
        unless(listp(objects)
            objects=list(objects)
        )
        forall(object objects
            {
                orthogonal=nil
                ;--------------------------------------------------------
                ; Determine the point list and whether the point list
                ; is for a closed shape
                ;--------------------------------------------------------
                case(object~>objType
                    ("rect"
                        orthogonal=t
                    )
                    ("polygon"
                        points=object~>points
                        closed=t
                    )
                    (("path" "line")
                        points=object~>points
                        closed=nil
                    )
                    ("pathSeg"
                        points=list(object~>beginPt object~>endPt)
                        closed=nil
                    )
                    (t
                        points=nil
                        closed=nil
                    )
                )
		;--------------------------------------------------------
		; Successive points either have the same x or same y
		; to be orthogonal
		;--------------------------------------------------------
                unless(orthogonal
                    lastPt=car(points)
                    orthogonal=forall(point cdr(points)
                        prog1(
                            xCoord(point)==xCoord(lastPt) ||
                                yCoord(point)==yCoord(lastPt)
                            lastPt=point
                        )
                    )
                    when(closed && orthogonal
                        orthogonal=
                            xCoord(car(points))==xCoord(lastPt) ||
                                yCoord(car(points))==yCoord(lastPt)
                    )
                )
                orthogonal
            }
        )
    )
)

You can use this code below (I just quickly wrote this, so hopefully you can see the approach to use). 

Given a set of selected objects, using abCheckObjectsOrthogonal(geGetSelSet()) will return t if all objects only have 90 degree angles, or nil if any do not.

Regards,

Andrew

/* abCheckObjectsOrthogonal.il

Author     A.D.Beckett
Group      Custom IC (UK), Cadence Design Systems Ltd.
Language   SKILL
Date       Jul 09, 2021 
Modified   
By         

Function to determine whether an object or list of objects
are all orthogonal (i.e. have 90 degree angles only)

***************************************************

SCCS Info: @(#) abCheckObjectsOrthogonal.il 07/09/21.11:03:43 1.1

*/

/*****************************************************************
*                                                                *
*               abCheckObjectsOrthogonal(objects)                *
*                                                                *
*      Given an object (or list of objects) return whether       *
*  all objects are orthogonal (if any object is not orthogonal   *
* then return nil). Only checks rect (which must be orthogonal), *
*      polygon, path, line and pathSeg - everything else is      *
*  orthgonal (perhaps ellipses, donuts and arcs should not be,   *
*         but these don't appear in layout that often!)          *
*                                                                *
*****************************************************************/

procedure(abCheckObjectsOrthogonal(objects)
    let((points closed orthogonal lastPt)
        unless(listp(objects)
            objects=list(objects)
        )
        forall(object objects
            {
                orthogonal=nil
                ;--------------------------------------------------------
                ; Determine the point list and whether the point list
                ; is for a closed shape
                ;--------------------------------------------------------
                case(object~>objType
                    ("rect"
                        orthogonal=t
                    )
                    ("polygon"
                        points=object~>points
                        closed=t
                    )
                    (("path" "line")
                        points=object~>points
                        closed=nil
                    )
                    ("pathSeg"
                        points=list(object~>beginPt object~>endPt)
                        closed=nil
                    )
                    (t
                        points=nil
                        closed=nil
                    )
                )
		;--------------------------------------------------------
		; Successive points either have the same x or same y
		; to be orthogonal
		;--------------------------------------------------------
                unless(orthogonal
                    lastPt=car(points)
                    orthogonal=forall(point cdr(points)
                        prog1(
                            xCoord(point)==xCoord(lastPt) ||
                                yCoord(point)==yCoord(lastPt)
                            lastPt=point
                        )
                    )
                    when(closed && orthogonal
                        orthogonal=
                            xCoord(car(points))==xCoord(lastPt) ||
                                yCoord(car(points))==yCoord(lastPt)
                    )
                )
                orthogonal
            }
        )
    )
)

Thank you for your help, I have made progress.

Regards

yankun