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
31
32
33
34
35
36
37
38
39
40
41
|
puts "=========="
puts "OCC23950"
puts "=========="
puts ""
#################################################################################
# Names and visibility of points not saved when writing XCAF Document into STEP
#################################################################################
pload QAcommands
#switch on writing of vertices names and styles
param write.step.vertex.mode 1
set aFile ${imagedir}/bug23950.step
catch {file delete ${aFile}}
set info [OCC23950 ${aFile}]
if {[regexp "Write Done" $info] != 1} {
puts "Error: file was not written"
} else {
puts "OK: file was written"
}
set is23950fixed "FALSE"
set file23950 [open ${aFile} RDONLY]
while {[eof $file23950] == 0} {
set file23950line [string trim [gets $file23950]]
if {[string first "Point1" $file23950line] != -1} {
set is23950fixed "TRUE"
}
}
close $file23950
if {[string compare $is23950fixed "FALSE"] == 0} {
puts "ERROR: OCC23950 is reproduced"
}
#return default behavior
param write.step.vertex.mode 0
|
