tests/caf/nam/A9

   1 set Test "Specific operations 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]:100
  12
  13 #################### two boxes glueing ####################
  14 NameBox D $myLab 20 30 40
  15 set Box1Lab $myLab
  16 NextLabel myLab
  17 NextLabel myNameLab
  18 box b 20 10 20 20 30 40
  19 NameImportShape D $myLab b
  20 set Box2Lab $myLab
  21 NextLabel myLab
  22 NextLabel myNameLab
  23 NameGlue D $myLab $Box1Lab $Box2Lab
  24 Checking "Two boxes glueing"
  25
  26 #################### 3-faces shell and 2-faces shell glueing ####################
  27 restore [locate_data_file HH_O.brep] object
  28 restore [locate_data_file HH_T.brep] tool
  29 global object
  30 NameImportShape D $myLab object
  31 set ObjectLab $myLab
  32 NextLabel myLab
  33 NextLabel myNameLab
  34 global tool
  35 NameImportShape D $myLab tool
  36 set ToolLab $myLab
  37 NextLabel myLab
  38 NextLabel myNameLab
  39 NameGlue D $myLab $ObjectLab $ToolLab
  40 Checking "Two shells glueing"
  41
  42 #################### import box with broken edges and internal vertex at the face ####################
  43 restore [locate_data_file brockenedgesbox.brep] bbox
  44 NameImportShape D $myLab object
  45 Checking "Box with broken edges"