1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
puts "================"
puts "OCC22165"
puts "================"
puts ""
#######################################################################################
# IGES transaltor does not produce any shape
######################################################################################
set BugNumber OCC22165
catch { pload XDE }
igesbrep [locate_data_file OCC22165-cub_spain.igs] result *
decho off
set Log [data c]
decho on
set LogLength [llength ${Log}]
if { ${LogLength} < 21 } {
puts "Bad format of data-command"
puts "Faulty ${BugNumber}"
} else {
regexp -all {1[ \t]*F: Syntax error in IGES file at line ([-0-9.+eE]+) in section ([A-Z]).} $Log full word1 word2
if { ${word1} != "206" || ${word2} != "P" } {
puts "Faulty ${BugNumber}"
}
}
|
