mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
5879dab46b
Improvements to prevent producing artifacts (files) in current directory Modified QA command OCC7141 to save file in specific location
29 lines
734 B
Plaintext
Executable File
29 lines
734 B
Plaintext
Executable File
puts "================"
|
|
puts "OCC22820"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################################
|
|
# OCCT IGES writer loses plane information
|
|
######################################################################################
|
|
|
|
box b 1 1 1
|
|
set b_info [dump b]
|
|
if { [regexp BSplineSurface ${b_info}] } {
|
|
puts "Error in dump b"
|
|
}
|
|
|
|
brepiges b ${imagedir}/22820.igs
|
|
igesbrep ${imagedir}/22820.igs bb *
|
|
|
|
set types_info [listtypes]
|
|
puts "types_info=${types_info}"
|
|
if { [regexp BSplineSurface ${types_info}] } {
|
|
puts "Error in listtypes"
|
|
}
|
|
|
|
igesbrep ${imagedir}/22820.igs bb *
|
|
set bb_info [dump bb]
|
|
if { [regexp BSplineSurface ${bb_info}] } {
|
|
puts "Error in dump bb"
|
|
}
|