1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
puts "================"
puts "OCC25844"
puts "================"
puts ""
#######################################################################
# Command "checkshape" does not detect error for case when degenerated edge does not contain geometric representation.
#######################################################################
restore [locate_data_file bug25843_onewire.brep] b
dlog reset
dlog on
checkshape b f
set info [dlog get]
dlog reset
dlog off
if { [regexp "checkshape failure" ${info}] != 1 } {
puts "Error : Command \"checkshape\" does not detect error for case when degenerated edge does not contain geometric representation."
} else {
puts "OK : Command \"checkshape\" work good"
}
|
