
set status [ SclFunction "DESIGN STRING" {
  frm00071={
    {
      _action=display
      idesign_string="5"
    }
  }
}]

set status [ SclFunction "ZOOM FACTOR" {
  frm00326={
    {
      zoom_factor="1.2"
    }
  }
}]

set status [ SclFunction "ZOOM OUT" {} ]

set status [ SclFunction "DIGITISER SELECT" {
  select_point={
    {
      winx="-0.859"
      winy="-0.015"
      objectx="-63.316"
      objecty="-0.004"
      objectz="5229.338"
    }
  }
}]

set status [ SclFunction "DIGITISER DIGITISE" {
  digitise_point=table { winx winy objectx objecty objectz } {
    { "-0.532" "-0.232" "426.316" "0.031" "5122.374" }
    { "-0.353" "0.047" "694.084" "0.031" "5259.869" }
    { "0.051" "-0.279" "1298.473" "0.031" "5099.459" }
    { "0.404" "-0.256" "1826.357" "0.031" "5110.917" }
  }
}]

set status [ SclFunction "DIGITISER SELECT" {
  select_point={
    {
      winx="0.859"
      winy="0.327"
      objectx="2507.250"
      objecty="-0.004"
      objectz="5396.858"
    }
  }
}]

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

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