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


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

set status [ SclFunction "PICK SEGMENT" {
  prompt="Choose the horizontal design segment"
  select_point={
    {
      winx="0.022"
      winy="0.476"
      objectx="19026.563"
      objecty="57535.641"
      objectz="5144.727"
    }
  }
}]

set status [ SclFunction "DESIGN HORIZONTAL ALIGNMENT" {
  source_dataset="inflection_points.str"
  source_string="1"
  source_segment="0"
  frmhorizontal_road_table={
    {
      _action=display
      output_string="2"
      road_name=""
      initial_chainage="0"
      velocity="50"
      chainage="25"
      curve_table=table { Locked radius transition_length super_elevation } {
        { "N" "800" "11.172" "0.0110728346457" }
        { "N" "300" "29.792" "0.0295275590551" }
        { "N" "300" "29.792" "0.0295275590551" }
        { "N" "300" "29.792" "0.0295275590551" }
        { "N" "400" "22.344" "0.0221456692913" }
        { "N" "500" "17.875" "0.0177165354331" }
      }
    }
  }
}]

set status [ SclFunction "FILE SAVE" {
  frmsaveFileAs={
    {
      _action=display
      AutoCAD={
        version="Autocad 18"
      }
      output_file="surpac2str:design_centreline"
      outputExt=".str"
      saveStyle="N"
      Datamine={
        binary_precision="Single"
      }
      Surpac={
        FileFormat="text"
        ForceValidation="true"
        Purpose=""
        ForceCompatibility="true"
        range="2"
      }
      output_type="Surpac String Files"
    }
  }
  frm00121={
    {
      _action="apply"
    }
  }
}]

puts ""
puts ""
puts "macro 2b_horozontal_design.tcl sucessfully completed."
puts ""
