How to do geometrical analysis

Calculate distance

proc_calc-dist.tcl

Calculate principle axes

vm_measure_pa_pa.tcl

package require Orient 
namespace import Orient::orient

set Ib [Orient::calc_principalaxes $selbar]; puts ""
set Ib1 [lindex $Ib 0]
set Ib2 [lindex $Ib 1]
set Ib3 [lindex $Ib 2]