mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
7644c7f4a1
- Add poles with array of descriptions and description names to DimensionObject, - Modify Import/Export STEP, - Add Draw commands for descriptions, - Create test, - Reorganize end script for test/gdt/dimensions.
81 lines
2.2 KiB
Plaintext
81 lines
2.2 KiB
Plaintext
# value
|
|
set value [XGetDimensionValue D 0:1:4:1]
|
|
if { $c_value != 0 && $value != $c_value} {
|
|
puts "Error: wrong value"
|
|
}
|
|
# type
|
|
set type [XGetDimensionType D 0:1:4:1]
|
|
if { $c_type != 0 && [string compare $type $c_type] != 0} {
|
|
puts "Error: wrong type"
|
|
}
|
|
# qualifier
|
|
set qualif [XGetDimensionQualifier D 0:1:4:1]
|
|
if { $c_qalif != 0 && [string compare $qualif $c_qalif] != 0} {
|
|
puts "Error: wrong qualifier"
|
|
}
|
|
# tolerance class
|
|
set classtol [XGetDimensionClassOfTol D 0:1:4:1]
|
|
if { $c_classtol != 0 && $classtol != $c_classtol} {
|
|
puts "Error: wrong class of tolerance"
|
|
}
|
|
# number of decimal digits
|
|
set d [XGetDimensionNbOfDecimalPlaces D 0:1:4:1]
|
|
if { $c_d != 0 && $d != $c_d} {
|
|
puts "Error: wrong number of decimal digits"
|
|
}
|
|
# modifiers
|
|
if { $c_modif != 0 && [string compare $modif $c_modif] != 0} {
|
|
puts "Error: wrong modifiers"
|
|
}
|
|
# direction
|
|
set dir [XGetDimensionDir D 0:1:4:1]
|
|
if { $c_dir != 0 && [string compare $dir $c_dir] != 0} {
|
|
puts "Error: wrong direction"
|
|
}
|
|
#points
|
|
set pnts [XGetDimensionPoints D 0:1:4:1]
|
|
if { $c_pnts != 0 && [string compare $pnts $c_pnts] != 0} {
|
|
puts "Error: wrong points"
|
|
}
|
|
# range
|
|
set range [XGetDimensionRange D 0:1:4:1]
|
|
if { $c_range != 0 && [string compare $range $c_range] != 0} {
|
|
puts "Error: wrong range"
|
|
}
|
|
# modifiers
|
|
set mod [XGetDimensionModifiers D 0:1:4:1]
|
|
if { $c_mod != 0 && [string compare $mod $c_mod] != 0} {
|
|
puts "Error: wrong modifiers"
|
|
}
|
|
# plus minus tolerance
|
|
set plusminus [XGetDimensionPlusMinusTol D 0:1:4:1]
|
|
if { $c_plusminus != 0 && [string compare $plusminus $c_plusminus] != 0} {
|
|
puts "Error: wrong plus minus tolerance"
|
|
}
|
|
# descriptions
|
|
set descriptions [XGetDimensionDescr D 0:1:4:1]
|
|
if {$c_descr != 0} {
|
|
set ref_list [split $descriptions \n]
|
|
set cur_list [split $c_descr \n]
|
|
set nb_ref [llength $ref_list]
|
|
set nb_cur [llength $cur_list]
|
|
if {$nb_ref != $nb_cur} {
|
|
puts "Error: wrong number of descriptions"
|
|
} else {
|
|
for { set i 0 } { $i < $nb_ref } { incr i } {
|
|
set refstr [lindex $ref_list $i]
|
|
set curstr [lindex $cur_list $i]
|
|
set isOK 1;
|
|
|
|
if {[string equal $refstr $curstr] == 0} {
|
|
set isOK 0
|
|
}
|
|
}
|
|
}
|
|
if {$isOK == 0} {
|
|
puts "Error: wrong descriptions"
|
|
}
|
|
}
|
|
|
|
puts "TEST COMPLETED"
|