puts "============"
puts "OCC8228"
puts "============"
puts ""
######################################################
# exeption is raised during the vprops in DRAW on the attached shape
######################################################

set BugNumber OCC8228

catch {pload XDE}
catch {pload DCAF}

# Create a new document and set UndoLimit

NewDocument D BinXCAF
UndoLimit D 100

# Open a transaction
NewCommand D

ReadStep D [locate_data_file OCC8228.stp]
XGetOneShape result D 

set square 1.46159e+06

set nb_v_good 1296
set nb_e_good 2041
set nb_w_good 826
set nb_f_good 761
set nb_sh_good 1
set nb_sol_good 1
set nb_compsol_good 0
set nb_compound_good 0
set nb_shape_good 4926

set 2dviewer 0