restore [locate_data_file res1-can.brep] Shape1
XNewDoc D_First

XAddShape D_First Shape1

set TypeOfFile ""

set AddToDocument ""

set CompareDocumentsMode "ALL CHECKSHAPE"



