mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
395d00e058
- Extended command Close with an option -silent
- Extended command Close to handle */-ALL for closing ALL document
- Replaced catch {Close D} by Close D -silent in tests
40 lines
952 B
Plaintext
40 lines
952 B
Plaintext
puts "================"
|
|
puts "0031825: Data Exchange, STEP - NULL dereference while re-exporting model with empty Datum description"
|
|
puts "================"
|
|
puts ""
|
|
|
|
pload OCAF
|
|
param write.step.schema AP242DIS
|
|
Close D_First D_Sec -silent
|
|
|
|
# Read file
|
|
set Path ${imagedir}/${casename}.stp
|
|
ReadStep D_First [locate_data_file bug26689_nist_ctc_04_asme1_ap242.stp]
|
|
set baseDGTDump [XDumpNbDGTs D_First f]
|
|
|
|
WriteStep D_First $Path
|
|
ReadStep D_Sec $Path
|
|
file delete $Path
|
|
set newDGTDump [XDumpNbDGTs D_Sec f]
|
|
XGetOneShape res D_Sec
|
|
|
|
# Checking
|
|
checkshape res
|
|
checknbshapes res -face 518 -wire 623 -compound 1
|
|
|
|
set isOK 1
|
|
set nb_ref [llength $newDGTDump]
|
|
for { set i 0 } { $i < $nb_ref } { incr i } {
|
|
set refstr [lindex $baseDGTDump $i]
|
|
set curstr [lindex $newDGTDump $i]
|
|
if {[string equal $refstr $curstr] == 0} {
|
|
set isOK 0
|
|
}
|
|
}
|
|
if {$isOK == 0} {
|
|
puts "Error: wrong export DGT and PMI"
|
|
}
|
|
|
|
# set default parameter
|
|
param write.step.schema AP214IS
|