tests/gdt/dimensions/A8

   1 # test annotation plane
   2 box b 10 10 10
   3 explode b e
   4
   5 NewDocument D_init
   6 XAddShape D_init b
   7 XAddDimension D_init b_1
   8 #0:1:4:1
   9 XSetDimensionType D_init 0:1:4:1 14
  10 XSetDimensionValue D_init 0:1:4:1 10
  11 XSetGDTPosition D_init 0:1:4:1 -5 0 7 -1 0 0 0 1 0
  12 # Presentation
  13 line l -5 0 0 0 0 1
  14 mkedge prs l 0 10
  15 XSetGDTPresentation D_init 0:1:4:1 prs presentation
  16 # Export
  17 set isOK 1
  18 set filename $imagedir/${casename}_D_init.stp
  19 if { [catch { WriteStep D_init $filename } catch_result] } {
  20   puts "Error: File was not written - exception"
  21   set isOK 0
  22   }
  23 # Import
  24 if {$isOK} {
  25   if { [catch { ReadStep D $filename } catch_result] } {
  26     puts "Error: File was not read - exception"
  27     set isOK 0
  28     }
  29   }
  30 # Reference data
  31 if {$isOK} {
  32 set c_value "10"
  33 set c_type "Size_CurveLength"
  34 set c_pos {position: -5 0 7
  35 normal: -1 0 0
  36 x_direction: 0 1 0
  37 }
  38 }