Power and Grounds of Current cell

The following scheme code in Astro gives you the list of Power and Ground nets in your design. It also gives you the list of all nets associated with your ports, even though I am not displaying it as an output. Manioulating these codes will let you filter the nets using any of the object fields available.

(db-foreach (geGetEditCell) '() "Port" portId
(begin
(define netId (dbFetchObjectField (geGetEditCell) portId "netid"))
(define powerId (dbFetchObjectField (geGetEditCell) netId "type"))
(define netName (dbFetchObjectField (geGetEditCell) netId "name"))
(if (eq? powerId 2)
(begin
(display "Power :")
(display netName)
(newline)
))
(if (eq? powerId 4)
(begin
(display "Ground :")
(display netName)
(newline)
))
#t) )