Need tcl to find surface area of geometry

Hi I want to find the surface area of surface or solid data...can u give me the code for that...