######################################################################
#
# Macro Name    : plotting/_01e_autoplot_multiple_solid_sections.tcl
#
# Version       : Surpac 6.4
#
# Creation Date : Fri Dec 28 13:54:23 2012
#
# Description   : 
#
######################################################################

set plot_ed [SclSystemOption get {plot_editor}]
puts "plot editor setting was initially $plot_ed and is now surpac"
SclSystemOption set "plot_editor" "surpac"

file delete "multi_solid_section.dwf"
file delete "multi_solid_section_01.dwf"
file delete "multi_solid_section_02.dwf"
file delete "multi_solid_section_03.dwf"

# create MULT title block 

set status [ SclFunction "SHEET ENTITIES" {} ]

set status [ SclFunction "TOOL MODE TRADITIONAL" {} ]

catch {set status [ SclFunction "PLOT DELETE TITLE" {
  frm00831={
    {
      title_id="MULT"
    }
  }
}]}

set status [ SclFunction "PLOT COPY TITLE" {
  frm00832={
    {
      old_title_id="NMA3"
      title_id="MULT"
      title_desc="A3 multiple sections"
      border_id="BORD"
      draw_area_id="DRAW"
      corner="lr"
      xoffset="0"
      yoffset="0"
      scale_factor="1"
      rotate_by="0"
      xsize="10"
      ysize="3.15"
      priority="124"
      pen="2"
      font="Default"
      bold_font="N"
      italic_font="N"
      underline_font="N"
      prompt_lines=table { text_prompt text_xpos text_ypos text_height text_max_length text_pen } {
        { "Title Line 1" "1.25" "1.85" "0.25" "7.5" "1" }
        { "Title Line 2" "1.25" "1.35" "0.25" "7.5" "1" }
        { "Title Line 3" "1.25" "0.85" "0.25" "7.5" "1" }
      }
    }
  }
}]

set status [ SclFunction "WINDOW IN SHEET ENTITY" {
  window_drag=table { winx1 winy1 winx2 winy2 objectx1 objecty1 objectz1 objectx2 objecty2 objectz2 } {
    { "0.512" "-0.724" "0.265" "-0.889" "117.968" "5.330" "0.000" "88.167" "-2.728" "0.000" }
    { "-0.678" "0.032" "-0.124" "-0.476" "97.344" "5.717" "0.000" "114.212" "-0.508" "0.000" }
  }
}]

set status [ SclFunction "PLOT DELETE TITLE ITEM" {
  select_plot_element={
    {
      objectx="106.738"
      objecty="0.734"
    }
  }
}]

set status [ SclFunction "PLOT INSERT TITLE SECTION INFO" {
  digitise_plot_position={
    {
      objectx="106.628"
      objecty="0.916"
    }
  }
  frm00874={
    {
      easting_suffix="East"
      elevation_prefix="Elevation : "
      northing_prefix="Section : "
      xpos="3.60"
      italic_font="N"
      ypos="0.20"
      oblique_prefix=""
      elevation_suffix="mRL"
      bold_font="N"
      num_decimals="0"
      northing_suffix="North"
      font="Default"
      height="0.20"
      easting_prefix="Section : "
      oblique_suffix=""
      underline_font="N"
      priority="124"
      pen="1"
    }
  }
}]

set status [ SclFunction "PLOT SAVE TITLES" {} ]

set status [ SclFunction "EXIT SHEET ENTITIES" {} ]

SclPause 2

puts ""
puts "MULTI title block created"
puts ""

#macro 1e

set status [ SclFunction "EXIT GRAPHICS" {} ]

set status [ SclFunction "GEOLOGY DATABASE DISCONNECT" {} ]

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

set status [ SclFunction "DRILLHOLE ATTRIBUTES" {
  trace_colour="forest green"
  trace_thickness="1"
  table=""
  field=""
  tick_mark_weight="1"
  show_collars="true"
  cylinder_style="no cylinders"
  cylinder_radius="1"
  cylinder_maximum="50"
}]

set status [ SclFunction "DRILLHOLE COLLARS" {
  show_collars="true"
  collar_marker="(+)"
  collar_marker_size="0.5"
  position="along path"
  num_rows="0"
}]

set status [ SclFunction "DRILLHOLE GEOLOGY" {
  num_rows="1"
  tbl={
    "geology"
  }
  fld={
    "rock"
  }
  position={
    "left"
  }
  size={
    "1"
  }
  offset={
    "0"
  }
}]

set status [ SclFunction "DRILLHOLE LABELS" {
  tick_length="1"
  num_rows="2"
  tbl={
    "sample"
    "geology"
  }
  fld={
    "gold"
    "rock"
  }
  position={
    "right"
    "left"
  }
  alignment={
    "left"
    "right"
  }
  offset={
    "1"
    "2"
  }
  decimals={
    "2"
    "-1"
  }
  use_styles={
    "true"
    "true"
  }
  colour={
    ""
    ""
  }
  combine={
    "true"
    "true"
  }
  font_style={
    "Default"
    "Default"
  }
  font_size={
    "1"
    "1"
  }
  font_units={
    "oru"
    "oru"
  }
}]

set status [ SclFunction "DRILLHOLE GRAPHS" {
  num_rows="0"
}]

set status [ SclFunction "DRILLHOLE DEPTH MARKERS" {
  position="left"
  alignment="right"
  use_styles="true"
  colour=""
  font_style="Default"
  font_units="oru"
  font_size="1"
  major="10"
  minor="0"
  major_length="3"
  minor_length="1"
  offset="5"
  decimals="2"
  display="false"
}]

set status [ SclFunction "DRILLHOLE APPARENT DIP MARKERS" {
  num_rows="0"
}]

set status [ SclFunction "RECALL ANY FILE" {
  file="section_7320_north+solid.swa"
  mode="openInNewLayer"
}]

set status [ SclFunction "AUTOPLOT" {
  frm01120={
    {
      _action=display
      outputPrefix="multi_solid_section"
      fit="Manual Scale"
      autogroup="Yes"
      minscale="637.44"
      uniform_scale="Yes"
      xscale="1000"
      sheet="A1"
      orient="Landscape"
      drawsp="VA1B"
      grid="ZXA3"
      border_id="BORD"
      title="MULT"
      unit="M"
      xref=""
      yref=""
      include_plan_strip="Yes"
      plan_draw="VA1T"
      plan_position="top"
      display_section_line="Yes"
      plan_grid="YXA3"
      plan_xgli="100"
      plan_ygli="100"
      plan_xline="F"
      plan_yline="F"
      include_note="No"
      note_corner="UL"
      create_batched_sections="Yes"
      extra_section_count="3"
      reverse_section_direction="No"
      section_ref_corner_source="Relative"
      image_plot="No"
      dpi="100"
      legendElements=table { include_legend legend_name x_position y_position nrows } {
        { "yes" "surpac\\geology\\rock" "0" "0" "4" }
        { "yes" "surpac\\sample\\gold" "0" "5.93" "3" }
        { "no" "ore_solid1.str\\Strings" null null null }
        { "no" "topo1.str\\Strings" null null null }
      }
      legendElementsImg=table { include_legendImg legend_nameImg x_positionImg y_positionImg nrowsImg } {
        { "yes" "surpac\\geology\\rock" "0" "0" "4" }
        { "yes" "surpac\\sample\\gold" "0" "5.93" "3" }
        { "no" "ore_solid1.dtm\\DTM\'s and 3DM\'s" null null null }
        { "no" "ore_solid1.str\\Strings" null null null }
        { "no" "topo1.str\\Strings" null null null }
      }
      font="Default"
      bold_font="N"
      italic_font="N"
      underline_font="N"
      height="0.18"
      legend_item_height="1"
      legend_margin="0.25"
      planesToPlot={
        {
          plot_plane=null
        }
      }
    }
  }
  frm00232={
    {
      _action=display
      line1=""
      line2="Drillholes and Solid Model"
      line3=""
    }
  }
  world_drag={
    {
      snap_mode="off"
      snap_projection="off"
      objectx="0.000"
      objecty="0.000"
      objectz="0.000"
      dx="0.000"
      dy="0.000"
      dz="0.000"
      function="complete"
    }
  }
  frm00219={
    {
      _action=display
      ygli="50"
      yline="F"
      xgli="100"
      xline="F"
    }
  }
}]

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

SclPause 3

set status [ SclFunction "TOOL MODE TRADITIONAL" {} ]

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

SclPause 3

set status [ SclFunction "TOOL MODE TRADITIONAL" {} ]

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

SclPause 3

set status [ SclFunction "TOOL MODE TRADITIONAL" {} ]

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

SclPause 3

set status [ SclFunction "TOOL MODE TRADITIONAL" {} ]

set status [ SclFunction "PLOT PREVIEW CLEAR ALL PLOTS" {} ]

set status [ SclFunction "EXIT PLOT_PREVIEW" {} ]

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

set status [ SclFunction "GEOLOGY DATABASE DISCONNECT" {} ]


puts ""
SclSystemOption set plot_editor $plot_ed
puts "plot editor setting is now reset to $plot_ed"
puts ""
puts ""
puts "macro _01e_Autoplot_multiple_solid_sections.tcl  completed."
puts ""