#if {[string compare $command "ShapeConvertRev"] == 0 } {
#    puts "TODO OCC23127 ALL: Error : The area of the resulting shape is "
#}
restore [locate_data_file PB_COPCOLL.brep] a

