
set status [ SclFunction "EXIT GRAPHICS" {
  frm00108={
    {
      exit_mode="E"
    }
  }
}]

set status [ SclFunction "RECALL ANY FILE" {
  file="ore1.str"
  mode="openInNewLayer"
}]

set status [ SclFunction "VIEW BY BEARING" {
  frm00289={
    {
      bearing="75"
      dip="-20"
    }
  }
}]

set status [ SclFunction "DRAW SEGMENTS" {
  frm00089={
    {
      range1=""
      range2=""
      range3=""
      ifld_num="d1"
      textalignment="<"
      position="First point"
      layer_name="ore1.str"
    }
  }
}]

puts ""
puts ""
puts "Click in graphics to continue."
puts ""

SclPause

set status [ SclFunction "TRIANGULATE MANY SEGMENTS" {
  frm00459={
    {
      _action=display
      iobj="1"
      itrisol="1"
    }
  }
  frm00651={
    {
      _action=display
      theopt1="Y"
      theopt2="R"
      theopt3="S"
    }
  }
  frm00655={
    {
      _action=display
      str_seg="SEG"
      str_no="1"
      seg_rg="1,13"
    }
  }
}]


set status [ SclFunction "NEIGHBOURS AND VALIDATE OBJECT" {
  frm00659={
    {
      _action=display
      ob_num=""
      location="valid"
      rid="1"
      col_selfint="cyan"
      col_dup="yellow"
      col_touch="orange"
    }
  }
  frm00121={
    {
      _action="apply"
    }
  }
}]

set status [ SclFunction "SET OBJECT DIRECTION" {
  frm00464={
    {
      _action=display
      range=""
      solid="Y"
    }
  }
}]



set status [ SclFunction "FILE SAVE" {
  frmsaveFileAs={
    {
      AutoCAD={
        version="Autocad 18"
      }
      output_file="surpac2str:ore1"
      outputExt=".dtm"
      Datamine={
        binary_precision="Single"
      }
      Surpac={
        FileFormat="text"
        ForceValidation="true"
        Purpose=""
        ForceCompatibility="true"
        range=""
      }
      output_type="Surpac DTM Files"
    }
  }
}]

puts ""
puts ""
puts "macro 04a_create_and_validate_solid  completed."
puts ""

