mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
1fa7cb8c3a
Add new mode of writing vertices and parameter to switch on this mode. Add description of new parameter (write.step.vertex.mode) into documentation. Small correction of draw-command and test case for issue CR25095 test case correction Small correction of test case for issue CR23950
42 lines
1021 B
Plaintext
42 lines
1021 B
Plaintext
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
|