OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-09-18 14:27:39 +03:00
Code Activity

0028449: Data Exchange - Wrong orientation of Annotation Plane in GD&T

Browse Source 
Fix orientation.
update test cases
This commit is contained in:
ika
2017-03-22 10:31:58 +03:00
committed by bugmaster
parent 811d6b7d4a
commit ea6e537889
3 changed files with 33 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
tests/bugs/step/bug28449 Normal file
View File

@@ -0,0 +1,26 @@
puts "========"
puts "OCC28449"
puts "========"
puts ""
#################################################
# Wrong orientation of Annotation Plane in GD&T
#################################################
ReadStep Doc [locate_data_file bug26689_nist_ctc_01_asme1_ap242.stp]
set pos [XGetGDTPosition Doc 0:1:4:1]
regexp {normal: +([-0-9.+eE]+) ([-0-9.+eE]+) ([-0-9.+eE]+)} $pos full pos_x pos_y pos_z
regexp {x_direction: +([-0-9.+eE]+) ([-0-9.+eE]+) ([-0-9.+eE]+)} $pos full dir_x dir_y dir_z
set isOK 1
set prec 1e-7
if {[expr abs($pos_x)] > $prec || [expr abs($pos_y + 1)] > $prec || [expr abs($pos_z)] > $prec} {
set isOK 0
}
if {[expr abs($dir_x - 1)] > $prec || [expr abs($dir_y)] > $prec || [expr abs($dir_z)] > $prec} {
set isOK 0
}
if {$isOK == 0} {
puts "Error: wrong Annotation plane"
}