tests/caf/nam/A6

   1 set Test "Primitives naming test"
   2 set IsDone 1
   3 set TestError ""
   4
   5 if {[catch {set TestLab}] == 1} {
   6         NewDocument D
   7         set TestLab 0:1
   8 }
   9
  10 set myLab [set TestLab]:1
  11 set myNameLab [set TestLab]:101
  12
  13 #################### box ####################
  14 NameBox D $myLab 10 20 30
  15 Checking "Box as solid"
  16
  17 #################### cylinder: cutted and full ####################
  18 NameCylinder D $myLab 10 20 1 1
  19 Checking "Cutted cylinder as solid"
  20
  21 NameCylinder D $myLab 20 30 0 1
  22 Checking "Cylinder as solid"
  23
  24 NameCylinder D $myLab 15 15 0 0
  25 Checking "Cylinder as shell"
  26
  27 #################### sphere: cutted and full ####################
  28 NameSphere D $myLab 20 10 15 5 0.1 0.2 0.3 1
  29 Checking "Cutted sphere as solid"
  30
  31 NameSphere D $myLab 5 15 15 5 0.1 0.2 0.3 0
  32 Checking "Cutted sphere as shell"
  33
  34 NameSphere D $myLab 10 5 15 5 0 0 0 1
  35 Checking "Sphere as solid"
  36
  37 NameSphere D $myLab 15 20 15 5 0 0 0 0
  38 Checking "Sphere as shell"
  39
  40 #################### import brep shapes from "forimport" directory ####################
  41
  42 erase
  43 set shapes_list {compound.brep compsol.brep HV_O1.brep HV_T1.brep HW_T0.brep HW_T3.brep SH_O.brep solid1.brep}
  44 foreach shape $shapes_list {
  45     restore [locate_data_file ${shape}] s
  46     disp s
  47     fit
  48     NameImportShape D $myLab s
  49     erase
  50 }
  51
  52 # if {$IsDone==0} {puts "not done"} else {puts done}