Skill code for calculating length of a path with bends

 Hi Zebib,

There is an existing Solution 11422112 that may help with what you are asking.

Alternatively, here is another (more simplistic) SKILL example that I wrote:

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

* DISCLAIMER: The following code is provided for Cadence customers *

* to use at their own risk. The code may require modification to   *

* satisfy the requirements of any user. The code and any           *

* modifications to the code may not be compatible with current or  *

* future versions of Cadence products.                             *

* THE CODE IS PROVIDED "AS IS" AND WITH NO WARRANTIES, INCLUDING   *

* WITHOUT LIMITATION ANY EXPRESS WARRANTIES OR IMPLIED WARRANTIES  *

* OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.              *

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


*/


/***************************************************************

*                                                              *

*                      CCSgetPathLength()                      *

* Uses the selected object, if no object is selected then the  *

* current mouse pointer location is used (if infix is on). If  *

*  the object is a path then iterate over the points and sum   *

*  the length of each segment (works for 45 degree segments).  *

*  Prints the summed length of the selected path in the CIW.   *

*                                                              *

***************************************************************/


procedure(CCSgetPathLength(@optional (obj car(geGetSelectedSet()))
                            silent )

  let((prevpt x y (length 0.0))

  ;; if no object is selected, and infix is turned on, then

  ;; use the current mouse location to select the object.

  ;; This is for use with a bindkey, i.e. it is set to run

  ;; this procedure when a key is pressed.

  unless(obj

    when(hiGetCIWindow()->infix

      geSelectPoint(nil enterPoint())

      obj = car(geGetSelectedSet())

    )

  )

  ;; when the selected object is a path object, iterate

  ;; over the list of points and sum the length. This

  ;; assumes orthogonal or 45 degree segments only.

  when(obj~>objType == "path"

    foreach(pt obj~>points

      ;; operate on pairs of points, if no previous point

      ;; then set it to be the same as the first and use

      ;; it in the next iteration.

      if(!prevpt then

        ;; initialise prevpt to be the first point

        prevpt=pt

      else

        ;; for simplicity keep the calculation the same

        ;; regardless of which direction the segment is

        ;; oriented. One of x or y will be 0 unless the

        ;; path segment is not horizontal or vertical.

        x=abs(car(pt) - car(prevpt))

        y=abs(cadr(pt)-cadr(prevpt))

        length = length + sqrt(expt(x 2) + expt(y 2))

        prevpt=pt

      )

    );; foreach

    ;; print the summed length to the CIW, length will

    ;; have a value as it was initialised as 0.0

    unless(silent

      printf("Path length: %5.2f\n" length)

    )

    ;; return the length calculated

    length

  );; when selected object is a path

  );; let

);; procedure CCSgetPathLength

The above code only calculates the length of a path object type (i.e. OA 'pathSegs' are not considered) and does not consider any layer change or overlaps (or non flush end-types) , but hopefully it is helpfulto you.

Regards,

Lawrence.

 Hi Zebib,

There is an existing Solution 11422112 that may help with what you are asking.

Alternatively, here is another (more simplistic) SKILL example that I wrote:

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

* DISCLAIMER: The following code is provided for Cadence customers *

* to use at their own risk. The code may require modification to   *

* satisfy the requirements of any user. The code and any           *

* modifications to the code may not be compatible with current or  *

* future versions of Cadence products.                             *

* THE CODE IS PROVIDED "AS IS" AND WITH NO WARRANTIES, INCLUDING   *

* WITHOUT LIMITATION ANY EXPRESS WARRANTIES OR IMPLIED WARRANTIES  *

* OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.              *

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


*/


/***************************************************************

*                                                              *

*                      CCSgetPathLength()                      *

* Uses the selected object, if no object is selected then the  *

* current mouse pointer location is used (if infix is on). If  *

*  the object is a path then iterate over the points and sum   *

*  the length of each segment (works for 45 degree segments).  *

*  Prints the summed length of the selected path in the CIW.   *

*                                                              *

***************************************************************/


procedure(CCSgetPathLength(@optional (obj car(geGetSelectedSet()))
                            silent )

  let((prevpt x y (length 0.0))

  ;; if no object is selected, and infix is turned on, then

  ;; use the current mouse location to select the object.

  ;; This is for use with a bindkey, i.e. it is set to run

  ;; this procedure when a key is pressed.

  unless(obj

    when(hiGetCIWindow()->infix

      geSelectPoint(nil enterPoint())

      obj = car(geGetSelectedSet())

    )

  )

  ;; when the selected object is a path object, iterate

  ;; over the list of points and sum the length. This

  ;; assumes orthogonal or 45 degree segments only.

  when(obj~>objType == "path"

    foreach(pt obj~>points

      ;; operate on pairs of points, if no previous point

      ;; then set it to be the same as the first and use

      ;; it in the next iteration.

      if(!prevpt then

        ;; initialise prevpt to be the first point

        prevpt=pt

      else

        ;; for simplicity keep the calculation the same

        ;; regardless of which direction the segment is

        ;; oriented. One of x or y will be 0 unless the

        ;; path segment is not horizontal or vertical.

        x=abs(car(pt) - car(prevpt))

        y=abs(cadr(pt)-cadr(prevpt))

        length = length + sqrt(expt(x 2) + expt(y 2))

        prevpt=pt

      )

    );; foreach

    ;; print the summed length to the CIW, length will

    ;; have a value as it was initialised as 0.0

    unless(silent

      printf("Path length: %5.2f\n" length)

    )

    ;; return the length calculated

    length

  );; when selected object is a path

  );; let

);; procedure CCSgetPathLength

The above code only calculates the length of a path object type (i.e. OA 'pathSegs' are not considered) and does not consider any layer change or overlaps (or non flush end-types) , but hopefully it is helpfulto you.

Regards,

Lawrence.