
set status [ SclFunction "PICK SEGMENT" {
  prompt="Choose the vertical design segment"
  select_point={
    {
      winx="-0.499"
      winy="-0.204"
      objectx="476.045"
      objecty="-0.004"
      objectz="5140.405"
    }
  }
  dataset="longitudinal profile"
  string="5"
  segment=0
  selected=true
}]

set status [ SclFunction "DESIGN VERTICAL ALIGNMENT" {
  source_dataset="longitudinal profile"
  source_string="5"
  source_segment="0"
  frmvertical_road_table={
    {
      _action=display
      output_string="6"
      chainage="25"
      curve_table=table { length } {
        { "200" }
        { "200" }
        { "300" }
        { "400" }
      }
    }
  }
}]

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

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