restore [locate_data_file CTO909_bad_cut_outil.brep] Shape1
XNewDoc D_First

XAddShape D_First Shape1

set TypeOfFile ""

set AddToDocument ""

set CompareDocumentsMode "ALL CHECKSHAPE"