Stats

  • Locked Locked
  • Replies 2
  • Subscribers 143
  • Views 5751
  • Members are here 0
This discussion has been locked.
You can no longer post new replies to this discussion. If you have a question you can start a new discussion

Calculating Area (AbArea) but getting results show on pop-up instead in CIW

JJAP

I found this skill code helpful but can you help modifying this? The area result shows in the CIW, can the result be shown through pop up window instead?

Thanks

/***************************************************************
* *
* (abArea object) *
* *
* Calculate the area of an object. *
* Currently only works with polygons and rectangles. *
* *
***************************************************************/

(procedure (abArea object)
(let (sum crd lastPt firstPt crdList area corners ll ur dx dy objType)
(setq objType (dbGetq object objType))
(if (equal objType "polygon")
(progn
(setq crdList (dbGetq object points))
(setq sum 0)
(setq firstPt (setq lastPt (car crdList)))
(setq crdList (cdr crdList))
(foreach crd crdList
(setq dx (difference (xCoord crd) (xCoord lastPt)))
(setq sum (plus sum (times dx (plus (yCoord crd) (yCoord lastPt)))))
(setq lastPt crd))
(setq sum (plus sum
(times (difference (xCoord firstPt) (xCoord lastPt))
(plus (yCoord firstPt) (yCoord lastPt)))))
(setq area (times 0.5 (abs sum))))
(when (equal objType "rect")
(setq corners (dbGetq object bBox))
(setq ll (car corners))
(setq ur (cadr corners))
(setq dx (difference (xCoord ll) (xCoord ur)))
(setq dy (difference (yCoord ll) (yCoord ur)))
(setq area (abs (times dx dy))))
)
area))

procedure(abAreaOfObject(@optional (object car(geGetSelSet())))
println(abArea(object))
)

Parents Reply Children

Community Guidelines

The Cadence Design Communities support Cadence users and technologists interacting to exchange ideas, news, technical information, and best practices to solve problems and get the most from Cadence technology. The community is open to everyone, and to provide the most value, we require participants to follow our Community Guidelines that facilitate a quality exchange of ideas and information. By accessing, contributing, using or downloading any materials from the site, you agree to be bound by the full Community Guidelines.