How to extract center of gravity using TCL script?

Hi All,

I wanna get the center of gravity information of one model using TCL script, but I found that the only way provided in Hypermesh is Summary function and the result is presented with text format, no direct returned data can be obtained.

So, I want to know how to extract this data just using TCL script, in other words, If I click one button 'Get COG', the coordinates is listed. How to get that? Are there any functinons can be called directly?

Thanks a lot.