ARCVIEW 2.1 LAYOUT TEXTFILE TOOL

Places a text file in a layout as a graphic text object.

=======================================================================

INSTALLING THE TEXTFILE TOOL IN THE DEFAULT PROJECT

You can download default.apr from my Web page (see end of this file) or
follow these instructions:

1)  Open default.apr, located in the $HOME directory (usually C:\temp)

2) Create a new script, named Layout.PutTextFile, with the following
text:

'======================================================================
'Layout.PutTextFile
'Create graphic text from text file

'**** get user point and Layout units

theLayout = av.GetActiveDoc
thePoint = theLayout.GetDisplay.ReturnUserPoint

'**** get text

txt_name = FileDialog.Show("*.*", "Text File", "Create Text")
if (txt_name = nil) then
  exit
end
txt_file = TextFile.Make(txt_name, #FILE_PERM_READ)
theText = txt_file.Read(txt_file.GetSize)
txt_file.Close

'**** create graphic text and set as selected

gt = GraphicText.Make(theText,thePoint)
gt.SetDisplay(theLayout.GetDisplay)
theLayout.GetGraphics.UnselectAll
gt.SetSelected(TRUE)
theLayout.GetGraphics.AddName(gt)
av.GetProject.SetModified(true)
'======================================================================

3) Compile and close the script

4) Double click the tool bar, choose "Layout" and "Tools", and create a
new tool

5) Double click "Apply" and select Layout.PutTextFile

6) Double click "Cursor" and select Cursors.Finger

7) Double click "Help" and enter Import Text

8) Double click "Icon" and select Write

9) Close the Customizer and save the project

10) Exit ArcView and you're ready to go!


INSTALLING THE SCALEBAR TOOL IN A SPECIFIC PROJECT

1) Open the desired project

2) Follow steps 2-9 above

=======================================================================

USING THE TEXTFILE TOOL

1) Pick the tool

2) Point to the desired location of the lower left corner of the
text and click once.

3) Enter the filename.  Text will not automatically wrap:  the textfile
must be preformatted with line breaks.

=======================================================================

Mark Cederholm
plp@pierssen.com
http://www.pierssen.com/PC/arcinfo.htm
http://www.pierssen.com/arcview/arcview.htm