found it on page 158 in "Virtuoso® Schematic Composer User
Guide":  

list_of_points=nil
cv=geGetEditCellView()
foreach( inst cv~>instances
when( inst~>purpose == "cell"
printf( " %L\n" inst~>name )
foreach( instTerm inst~>instTerms
printf( " %L\n" instTerm~>name )
foreach( pin instTerm~>term~>pins
printf( " %L" pin~>name )
if( pin~>fig then
bBox = dbTransformBBox( pin~>fig~>bBox inst~>transform )
a=xCoord(car(bBox)) + (xCoord(cadr(bBox)) -
xCoord(car(bBox)))/2
b=yCoord(car(bBox)) + (yCoord(cadr(bBox)) -
yCoord(car(bBox)))/2
list_of_points=cons(a:b list_of_points)
);if
);foreach
);foreach
);when
);foreach