1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-03 17:56:21 +03:00

29 lines
646 B
Plaintext
Executable File

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
checknbshapes result -vertex 1296 -edge 2041 -wire 826 -face 761 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 4926
set 2dviewer 0