######################################################################
#
# Macro Name    : plotting/_01a_autoplot_3d.tcl
#
# Version       : Surpac 6.4
#
# Creation Date : Fri Dec 28 10:28:08 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"

catch {set status [ SclFunction "EXECUTE OS COMMAND" {
  frm00462={
    {
      os_cmd="del 3d_view*.dwf"
    }
  }
}]}

catch {set status [ SclFunction "EXECUTE OS COMMAND" {
  frm00462={
    {
      os_cmd="del 3d_view*.cf"
    }
  }
}]}

set status [ SclFunction "EXIT GRAPHICS" {} ]

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

set status [ SclFunction "CHECK DATABASE CONNECTED" {
  databasesession="GeologyDatabase"
  databasepurpose="drillholes"
  databasehandle="GEOLOGY"
}]

set status [ SclFunction "GET DATABASE HANDLE" {
  sessionType="GeologyDatabase"
  DatabaseHandle="GEOLOGY"
  DatabaseType="drillholes"
  DatabaseName="surpac"
  result=1
}]

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="O"
  collar_marker_size="0.2"
  position="along path"
  num_rows="0"
}]

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

set status [ SclFunction "DRILLHOLE LABELS" {
  tick_length="1"
  num_rows="0"
}]

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="three_dimensional_view.swa"
  mode="openInNewLayer"
}]

set status [ SclFunction "AUTOPLOT" {
  frm01120={
    {
      _action=display
      outputPrefix="3d_view"
      fit="Fit to Screen"
      autogroup="Yes"
      minscale="3349.905"
      uniform_scale="No"
      sheet="A4"
      orient="Landscape"
      drawsp="DEFAULT"
      border_id="BORD"
      title="NOTB"
      unit="M"
      xref=""
      yref=""
      include_plan_strip="No"
      include_note="No"
      note_corner="UL"
      create_batched_sections="No"
      image_plot="Yes"
      dpi="100"
      legendElements={
        {
          include_legend="no"
          legend_name="topo1.str\\Strings"
          x_position=null
          y_position=null
          nrows=null
        }
      }
      legendElementsImg=table { include_legendImg legend_nameImg x_positionImg y_positionImg nrowsImg } {
        { "no" "ore_solid1.dtm\\Colour banding\\1.1" null null null }
        { "no" "ore_solid1.dtm\\DTM\'s and 3DM\'s" 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
        }
      }
    }
  }
}]

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

SclPause 3

set status [ SclFunction "EXIT PLOT_PREVIEW" {} ]

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