Arc/Info Training Class Handouts
--------------------------------------------------
/geowork/training/whatisgis2.txt
--------------------------------------------------
THE STRUCTURE OF A GIS
REAL WORLD
1) SENSORS - filters
data capture perception
people, satellites, GPS, inventories, cameras
2) DATA - filtered observations in storage
attribute lists, inventories, spatial coordinates
digital images, photography, maps
3) ANALYSIS - manipulation of observations for a purpose
integration and evaluation of attributes, images and maps.
4) OUTPUT - products and conclusions concerning a problem or a request.
results of the integration and evaluation in the form of:
1 - Conclusions
2 - Reports
3 - Maps
5) ACTION - political or administrative
A GIS USUALLY INCLUDES
2) DATA,
3) ANALYSIS,
4) OUTPUT
SOMETIMES INCLUDES
1) SENSORS
ONLY RARELY INCLUDES
5) ACTION
--------------------------------------------------
/geowork/training/whatisgis3.txt
--------------------------------------------------
COMPONENTS OF A GIS
Geographic Relational Feature
Features Linkages Attributes
graphic data non-graphic data
points x,y coordinates land & housing data
lines subdivision code violations data
polygons street address utility attributes
meter number
These define Identifiers contained These contain
feature's in both the graphic descriptive data
location in space. & non-graphic data on the geographic
CARTOGRAPHIC RELATIONAL ATTRIBUTES
MAPPING ANALYSIS INVENTORY
CARTOGRAPHIC GEOGRAPHIC ATTRIBUTE
DATA INPUT ANALYSIS DATA INPUT
DATA OUTPUT DATA OUTPUT
--------------------------------------------------
/geowork/training/filestructure.wat
--------------------------------------------------
FILESTRUCTURE.WAT ARC/INFO FILE STRUCTURE AND COVERAGE
COMPONENTS
Arc: /* CREATE A WORKSPACE CALLED COVERS AND MOVE TO IT
Arc: createworkspace covers
Arc: &workspace covers
Arc: ls
Submitting command to Operating System ...
Arc: /* COPY SAMPLE COVERAGES
Arc: copy /geowork/training/point point
Copied /geowork/training/point to point
Arc: copy /geowork/training/line line
Copied /geowork/training/line to line
Arc: copy /geowork/training/poly poly
Copied /geowork/training/poly to poly
Arc: /* CHECK OUT THE COVERAGE SUB-DIRECTORIES
Arc: /* change directories
Arc: w point
WARNING: New location is not a workspace.
Arc: ls
Submitting command to Operating System ...
Arc: w .. /*go up one level
Arc: pwd
Submitting command to Operating System ...
Arc: w line /* go to the line directory
WARNING: New location is not a workspace.
Arc: ls
Submitting command to Operating System ...
Arc: w ..
Arc: w poly /* go to poly directory
WARNING: New location is not a workspace.
Arc: ls
Submitting command to Operating System ...
Arc: w ..
Arc: /* NOW OPEN TABLES AND LOOK AT COVERAGES
Arc: tables
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
TABLES Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Enter Command: dir /*shows all info files in directory
TYPE NAME INTERNAL NAME NO. RECS LENGTH EXTERNL
------------------------------------------------------------------------------
DF POINT.TIC ARC0000DAT 0 12 XX
DF POINT.BND ARC0001DAT 1 16 XX
DF LINE.TIC ARC0002DAT 0 12 XX
DF LINE.BND ARC0003DAT 1 16 XX
DF POLY.TIC ARC0004DAT 0 12 XX
DF POLY.BND ARC0005DAT 1 16 XX
Enter Command: /* note that there are no .pat or .aat files
Enter Command: /* these coverages have not been built or cleaned
Enter Command: sel point.tic
0 Records Selected.
Enter Command: /* note that there are no data here
Enter Command: quit
Leaving TABLES...
Arc: /* NOW BUILD THE POINT COVERAGE WITH THE POINT OPTION
Arc: build
Usage: BUILD {POLY | LINE | POINT | NODE | ANNO.}
Arc: build point point
Building points...
Arc: /* RETURN TO TABLES AND VIEW THE RESULTS
Arc: tables
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
TABLES Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Enter Command: dir
TYPE NAME INTERNAL NAME NO. RECS LENGTH EXTERNL
------------------------------------------------------------------------------
DF POINT.TIC ARC0000DAT 0 12 XX
DF POINT.BND ARC0001DAT 1 16 XX
DF LINE.TIC ARC0002DAT 0 12 XX
DF LINE.BND ARC0003DAT 1 16 XX
DF POLY.TIC ARC0004DAT 0 12 XX
DF POLY.BND ARC0005DAT 1 16 XX
DF POINT.PAT ARC0006DAT 4 16 XX
Enter Command: /* note that the point.pat was created
Enter Command: /* now sel and view each file
Enter Command: sel point.tic
0 Records Selected.
Enter Command: li
Record IDTIC XTIC YTIC
Enter Command: /* note still no tics
Enter Command: sel point.bnd
1 Records Selected.
Enter Command: li
Record XMIN YMIN XMAX YMAX
1 -0.713 -0.411 0.059 0.287
Enter Command: sel point.pat
4 Records Selected.
Enter Command: li
Record AREA PERIMETER POINT# POINT-ID
1 0.000 0.000 1 1
2 0.000 0.000 2 2
3 0.000 0.000 3 3
4 0.000 0.000 4 4
Enter Command: quit
Leaving TABLES...
Arc: /* NOW BUILD THE LINE COVERAGE
Arc: build
Usage: BUILD {POLY | LINE | POINT | NODE | ANNO.}
Arc: build line line
Building lines...
Arc: /* NOW OPEN A SECOND SCREEN AND START ARCEDIT
Arc: /*
Arc: /* arc: arcedit
Arc: /* display 9999
Arc: /* editc line
Arc: /* drawe arc,node
Arc: /* draw
Arc: /* NOTE THAT THE ARCS DO NOT HAVE NODES AT
Arc: /* INTERSECTIONS
Arc: /* editf arc
Arc: /* sel
Arc: /*
Arc: /* LEAVE THE SECOND SCREEN OPEN AND USE THE CLEAN
Arc: /* COMMAND IN THIS SCREEN
Arc: clean
Usage: CLEAN {out_cover} {dangle_length} {fuzzy_tolerance}
{POLY | LINE}
Arc: clean line line 0.0 0.001 line
Cleaning /HOME/MIKE/COVERS/LINE
Sorting...
Intersecting...
Assembling arcs...
Arc: /* NOW VIEW THE COVERAGE AGAIN IN THE SECOND SCREEN
Arc: /*
Arc: /* arcedit: editc line
Arc: /* drawe arc,node
Arc: /* draw
Arc: /* NOTE THAT NODES WERE CREATED AT EACH INTERSECTION
Arc: /* SELECT AN ARC
Arc: /*
Arc: /* editf arc
Arc: /* sel
Arc: /*
Arc: /* LEAVE SECOND SCREEN OPEN AND START TABLES IN THIS SCREEN
Arc: tables
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
TABLES Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Enter Command: dir /*note the .aat file
TYPE NAME INTERNAL NAME NO. RECS LENGTH EXTERNL
------------------------------------------------------------------------------
DF POINT.TIC ARC0000DAT 0 12 XX
DF POINT.BND ARC0001DAT 1 16 XX
DF LINE.TIC ARC0002DAT 0 12 XX
DF LINE.BND ARC0003DAT 1 16 XX
DF POLY.TIC ARC0004DAT 0 12 XX
DF POLY.BND ARC0005DAT 1 16 XX
DF POINT.PAT ARC0006DAT 4 16 XX
DF LINE.AAT ARC0007DAT 12 28 XX
Enter Command: sel line.aat /* view the contents
12 Records Selected.
Enter Command: li
Record FNODE# TNODE# LPOLY# RPOLY# LENGTH LINE# LINE-ID
1 4 1 0 0 0.024 1 1
2 3 4 0 0 0.023 2 2
3 2 5 0 0 0.021 3 3
4 4 5 0 0 0.242 4 2
5 5 6 0 0 0.025 5 2
6 7 8 0 0 0.022 6 4
7 5 8 0 0 0.215 7 3
8 8 9 0 0 0.240 8 4
9 9 4 0 0 0.216 9 1
10 9 10 0 0 0.015 10 4
11 8 11 0 0 0.015 11 3
12 12 9 0 0 0.017 12 1
Enter Command: /* IN SECOND SCREEN DRAW THE ARC AND NODE IDS
Enter Command: /* arcedit: drawe arc ids node ids
Enter Command: /* draw
Enter Command: /* NOTE THAT FROMNODE 3 GOES TO 4 AND 4 GOES TO 5
Enter Command: /* THESE ARE ALL PART OF LINE-ID 2
Enter Command: /* IN THIS SCREEN ISSUE THE DIR COMMAND AGAIN
Enter Command: DIR /*NOTE THERE IS NO LINE.NAT
TYPE NAME INTERNAL NAME NO. RECS LENGTH EXTERNL
------------------------------------------------------------------------------
DF POINT.TIC ARC0000DAT 0 12 XX
DF POINT.BND ARC0001DAT 1 16 XX
DF LINE.TIC ARC0002DAT 0 12 XX
DF LINE.BND ARC0003DAT 1 16 XX
DF POLY.TIC ARC0004DAT 0 12 XX
DF POLY.BND ARC0005DAT 1 16 XX
DF POINT.PAT ARC0006DAT 4 16 XX
DF LINE.AAT ARC0007DAT 12 28 XX
Enter Command: /* QUIT AND BUILD LINE WITH THE NODE OPTION
Enter Command: QUIT
Leaving TABLES...
Arc: build
Usage: BUILD {POLY | LINE | POINT | NODE | ANNO.}
Arc: build line node
Building nodes...
Arc: /* NOW GO BACK INTO TABLES AND VIEW THE RESULTS
Arc: tables
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
TABLES Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Enter Command: dir
TYPE NAME INTERNAL NAME NO. RECS LENGTH EXTERNL
------------------------------------------------------------------------------
DF POINT.TIC ARC0000DAT 0 12 XX
DF POINT.BND ARC0001DAT 1 16 XX
DF LINE.TIC ARC0002DAT 0 12 XX
DF LINE.BND ARC0003DAT 1 16 XX
DF POLY.TIC ARC0004DAT 0 12 XX
DF POLY.BND ARC0005DAT 1 16 XX
DF POINT.PAT ARC0006DAT 4 16 XX
DF LINE.AAT ARC0007DAT 12 28 XX
DF LINE.NAT ARC0008DAT 12 12 XX
Enter Command: /* NOTE LINE.NAT - NOW SELECT AND VIEW IT
Enter Command: sel line.nat
12 Records Selected.
Enter Command: li
Record ARC# LINE# LINE-ID
1 1 1 1
2 3 2 2
3 2 3 3
4 1 4 4
5 3 5 5
6 5 6 6
7 6 7 7
8 6 8 8
9 8 9 9
10 10 10 10
11 11 11 11
12 12 12 12
Enter Command: /* NOW QUIT FROM TABLES AND BUILD THE POLYGON COVER
Enter Command: quit
Leaving TABLES...
Arc: build
Usage: BUILD {POLY | LINE | POINT | NODE | ANNO.}
Arc: build poly poly
Building polygons...
An intersection was detected while building polygons.
Seg1 = -0.55786 -0.09202 -0.26794 -0.09202
Seg2 = -0.53516 -0.06829 -0.53310 -0.32417
Intersection coordinate = -0.53497 -0.09202
Use CLEAN instead of BUILD or alter the fuzzy tolerance if using CLEAN.
Arc: /* NOTE THE ERROR MESSAGE - YOU CANNOT BUILD A POLYGON COVERAGE
Arc: /* WITH OVERLAPING ARCS
Arc: /* IN THE SECOND SCREEN DRAW THE COVERAGE POLY
Arc: /*
Arc: /* arcedit: editc poly
Arc: /* drawe arc id node id label id
Arc: /* draw
Arc: /* NOW CLEAN THE POLY COVERAGE
Arc: clean
Usage: CLEAN {out_cover} {dangle_length} {fuzzy_tolerance}
{POLY | LINE}
Arc: clean poly poly 0.0 0.001 poly
Cleaning /HOME/MIKE/COVERS/POLY
Sorting...
Intersecting...
Assembling polygons...
Arc: /* IN THE SECOND SCREEN DRAW THE POLY COVERAGE AGAIN
Arc: /* NOTE THE NEW NODES INSERTED
Arc: /* NOW OPEN TABLES AND VIEW THE RESULTS
Arc: tables
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
TABLES Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Enter Command: dir
TYPE NAME INTERNAL NAME NO. RECS LENGTH EXTERNL
------------------------------------------------------------------------------
DF POINT.TIC ARC0000DAT 0 12 XX
DF POINT.BND ARC0001DAT 1 16 XX
DF LINE.TIC ARC0002DAT 0 12 XX
DF LINE.BND ARC0003DAT 1 16 XX
DF POLY.TIC ARC0004DAT 0 12 XX
DF POLY.BND ARC0005DAT 1 16 XX
DF POINT.PAT ARC0006DAT 4 16 XX
DF LINE.AAT ARC0007DAT 12 28 XX
DF LINE.NAT ARC0008DAT 12 12 XX
DF POLY.PAT ARC0010DAT 2 16 XX
Enter Command: /* NOTE THAT POLY NOW HAS A .PAT FILE BUT NOT AN .AAT OR
Enter Command: /* .NAT. IF YOU WISH TO HAVE A LINE FILE OR A NODE FILE
Enter Command: /* WITH YOUR COVERAGE, YOU MUST BUILD THE POLY COVER
Enter Command: /* WITH THE LINE AND NODE OPTION.
Enter Command: /* NOW SELECT AND VIEW THE .PAT CONTENTS
Enter Command: sel poly.pat
2 Records Selected.
Enter Command: li
Record AREA PERIMETER POLY# POLY-ID
1 -0.052 0.912 1 0
2 0.052 0.912 2 1
Enter Command: /* NOTE THAT THERE ARE TWO POLYGONS
Enter Command: /* RECORD # 1 IS CALLED THE UNIVERSAL POLYGON
Enter Command: /* IT ALWAYS HAS A NEGATIVE AREA AND AN ID = 0
Enter Command: /* NOW QUIT AND DELETE YOUR COVERAGES
Enter Command: quit
Leaving TABLES...
Arc: ls
Submitting command to Operating System ...
Arc: kill point all
Killed point with the ALL option
Arc: kill line all
Killed line with the ALL option
Arc: kill poly all
Killed poly with the ALL option
Arc: /* QUIT ARC, RETURN TO YOUR TOP DIRECTOR AND DELETE
Arc: /* WORKSPACE COVERS
Arc: quit
Exiting ARC ...
--------------------------------------------------
/geowork/training/exercise-dig.txt
--------------------------------------------------
EXERCISE DIGITIZER Digitize a Coverage
arc: &workspace
createworkspace haii
&workspace haii
&station 9999
digitizer 9100 /dev/ttya
arcedit: (create and digitize the tic coverage)
coordinate digitizer
create ticcov
Tic-id: 5 A 1
Tic-id: 6 A 1
(remainder)
Tic-id: 0 A
(enter initial boundary at lower left and upper right)
save
drawe tic id
draw
(create, register and digitize the Haii and harah boundaries)
create haii02 ticcov
coordinate digitizer default
tic-id: 5 A 1
tic-id: 6 A 1
(remainder)
tic-id: 0 A
nodesnap closest 0.05
drawe arc node labels ids
editf arc
add (REMEMBER: arcs must start and end with a node)
(add arcs, '2' for nodes and '1' for vertices)
user-id: (add arc)
user-id: (add arc)
(remainder)
user-id: (press 9 to end)
save
drawe node dangle (Check for errors)
draw
quit
--------------------------------------------------
/geowork/training/commands1.txt
--------------------------------------------------
ARCEDIT COMMANDS
arc: arcedit open arcedit module
display 9999 open a display window
editc <coverage name> set edit coverage
mape <coverage name> sets the map extent on screen
drawe <arc | node | label | poly>
or <arc id | node id | label id>
or <node errors | node dangle> sets the draw environment
backc <coverage name> sets the background coverage
backe <same options as drawe> sets the back draw environment
draw draws the coverages on the screen
editf <arc | node | label | poly> sets the edit feature
sel <one | many | poly | all> works on the edit feature
asel <one |many | poly> add to the selected features
unsel <one |many | poly> deletes from the selected features
nsel selects the set of unselected features
drawse draws the selected set of features
on the screen
setdrawsymbol <symbol> {color} sets the color of the draw symbol
coordinate <digitizer | mouse | keyboard> sets the source of the
input.
add *lets you add features of the type
set by editf to the coverage.
--------------------------------------------------
/geowork/training/haii2/selput.wat
--------------------------------------------------
Arc: /* SELPUT.WAT
Arc: /* CREATE A COVERAGE BY USING SELECT AND PUT IN ARCEDIT
Arc: /* ATTACH TO YOUR WORKSPACE HAII
Arc: &workspace haii
Arc: /* COPY THE STREET CENTERLINE COVERAGE FOR YANBU
Arc: copy /geowork/layers/cenlin roads
Copied /geowork/layers/cenlin to roads
Arc: /* NOW OPEN ARCEDIT AND DRAW THE COVERAGE
Arc: arcedit
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
ARCEDIT (COGO) Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Arcedit: display 9999 3
WARNING the Map extent is not defined
Arcedit: editc roads
The edit coverage is now /HOME/MIKE/HAII/ROADS
Defaulting the map extent to the BND of /HOME/MIKE/HAII/ROADS
Arcedit: drawe arc node
Arcedit: draw
Please wait...
Arcedit: /* SET THE BACKGROUND COVER TO BE HAII02
Arcedit: backc haii02
/HOME/MIKE/HAII/HAII02
is now background coverage 1 with draw symbol 1
Arcedit: backc haii02 2
/HOME/MIKE/HAII/HAII02
is now background coverage 1 with draw symbol 2
Arcedit: backe arc
Arcedit: draw
Please wait...
Arcedit: /* NOW SELECT ALL ARCS OUTSIDE OF THE HAII02 BOUNDARY
Arcedit: /* AND DELETE THEM
Arcedit: /* USE THE SEL POLY COMMAND FIRST - MAKE SEVERAL POLYGONS
Arcedit: /* AROUND THE OUTSIDE ROAD ARCS AND DELETE THEM
Arcedit: /* ONE POLYGON AT A TIME
Arcedit: drawe node off
Arcedit: draw
Arcedit: editf arc
3750 element(s) for edit feature ARC
Coverage has no COGO attributes
Arcedit: sel poly
Define the polygon
<1,2 to enter, 4 to remove last point, 5 to remove polygon, 9 to end>
1989 element(s) now selected
Arcedit: drawse
Please wait...
Arcedit: delete
1989 arc(s) deleted
Arcedit: sel poly
Define the polygon
<1,2 to enter, 4 to remove last point, 5 to remove polygon, 9 to end>
746 element(s) now selected
Arcedit: drawse
Please wait...
Arcedit: delete
746 arc(s) deleted
Arcedit: /* NOW ZOOM INTO THE REMAINING COVERAGE
Arcedit: /* USE THE EXTENT OPTION IN THE PAN/ZOOM BUTTON
Arcedit: /* NOW A GOOD WAY TO HIGHLIGHT YOUR OUTER BOUNDARY
Arcedit: /* GO INTO ARCPLOT AND DRAW THE HAII02 ARCS
Arcedit: arcplot
AP: linecolor red
AP: arcs haii02
AP: quit
Arcedit: /* NOW SEL THE REMAINING OUTSIDE ARCS AND DELETE
Arcedit: sel many
1 = Select 2 = Next 3 = Who 9 = Quit
Arc 1360 User-ID: 1415 with 2 points
1 = Select 2 = Next 3 = Who 9 = Quit
Arc 1358 User-ID: 1413 with 2 points
1 = Select 2 = Next 3 = Who 9 = Quit
Arc 1354 User-ID: 1409 with 2 points
1 = Select 2 = Next 3 = Who 9 = Quit
No match found
1 = Select 2 = Next 3 = Who 9 = Quit
No match found
1 = Select 2 = Next 3 = Who 9 = Quit
Arc 1504 User-ID: 1562 with 2 points
1 = Select 2 = Next 3 = Who 9 = Quit
Arc 3130 User-ID: 3232 with 2 points
1 = Select 2 = Next 3 = Who 9 = Quit
224 element(s) now selected
Arcedit: /* MAKE SURE ALL THE ARCS YOU WANT TO REMOVE ARE YELLOW
Arcedit: /* ALSO MAKE SURE THAT NONE OF THE ARC YOU WANT TO SAVE
Arcedit: /* ARE YELLOW
Arcedit: /* IF THEY ARE USE UNSEL MANY TO REMOVE THEM FROM THE
Arcedit: /* SELECTED SET
Arcedit: unsel many
1 = Select 2 = Next 3 = Who 9 = Quit
Arc 2345 User-ID: 2422 with 2 points
1 = Select 2 = Next 3 = Who 9 = Quit
223 element(s) now selected
Arcedit: /* WHEN YOU ARE SURE, USE THE DELETE COMMAND
Arcedit: delete
223 arc(s) deleted
Arcedit: /* NOTE ANY REMAINING SMALL ARCS YOU DID NOT GET
Arcedit: /* ZOOM IN AND USE THE SEL POLY OPTION TO SELECT AND
Arcedit: /* DELETE THEM - OR THE SEL MANY OPTION
Arcedit: sel poly
Define the polygon
<1,2 to enter, 4 to remove last point, 5 to remove polygon, 9 to end>
28 element(s) now selected
Arcedit: drawse
Please wait...
Arcedit: delete
28 arc(s) deleted
Arcedit: sel many
1 = Select 2 = Next 3 = Who 9 = Quit
Arc 1950 User-ID: 2019 with 2 points
1 = Select 2 = Next 3 = Who 9 = Quit
Arc 2046 User-ID: 2116 with 2 points
1 = Select 2 = Next 3 = Who 9 = Quit
Arc 1956 User-ID: 2025 with 2 points
1 = Select 2 = Next 3 = Who 9 = Quit
Arc 2985 User-ID: 3075 with 2 points
1 = Select 2 = Next 3 = Who 9 = Quit
4 element(s) now selected
Arcedit: delete
4 arc(s) deleted
Arcedit: sel poly
Define the polygon
<1,2 to enter, 4 to remove last point, 5 to remove polygon, 9 to end>
12 element(s) now selected
Arcedit: drawse
Please wait...
Arcedit: delete
12 arc(s) deleted
Arcedit: sel many
1 = Select 2 = Next 3 = Who 9 = Quit
Arc 2060 User-ID: 2130 with 2 points
1 = Select 2 = Next 3 = Who 9 = Quit
Arc 1810 User-ID: 1877 with 2 points
1 = Select 2 = Next 3 = Who 9 = Quit
2 element(s) now selected
Arcedit: delete
2 arc(s) deleted
Arcedit: sel
Point to the feature to select
Enter point
Arc 2101 User-ID: 2171 with 2 points
1 element(s) now selected
Arcedit: delete
1 arc(s) deleted
Arcedit: draw
Arcedit: sel poly
Define the polygon
<1,2 to enter, 4 to remove last point, 5 to remove polygon, 9 to end>
3 element(s) now selected
Arcedit: drawse
Please wait...
Arcedit: delete
3 arc(s) deleted
Arcedit: sel many
1 = Select 2 = Next 3 = Who 9 = Quit
Arc 3129 User-ID: 3231 with 2 points
1 = Select 2 = Next 3 = Who 9 = Quit
Arc 3117 User-ID: 3218 with 2 points
1 = Select 2 = Next 3 = Who 9 = Quit
2 element(s) now selected
Arcedit: delete
2 arc(s) deleted
Arcedit: sel poly
Define the polygon
<1,2 to enter, 4 to remove last point, 5 to remove polygon, 9 to end>
5 element(s) now selected
Arcedit: drawse
Please wait...
Arcedit: delete
5 arc(s) deleted
Arcedit: sel many
1 = Select 2 = Next 3 = Who 9 = Quit
Arc 1344 User-ID: 1399 with 2 points
1 = Select 2 = Next 3 = Who 9 = Quit
1 element(s) now selected
Arcedit: delete
1 arc(s) deleted
Arcedit: /* NOW SAVE YOUR COVERAGE AND BUILD IT AS A LINE
Arcedit: save
Saving changes for /HOME/MIKE/HAII/ROADS
Saving arcs...
734 arc attribute record(s) written to /HOME/MIKE/HAII/ROADS
734 arc(s) written to /HOME/MIKE/HAII/ROADS
from the original 3750, 0 added and 3016 deleted
Reopening arcs...
Please wait...
BND replaced into /HOME/MIKE/HAII/ROADS
Re-establishing edit feature ARC
Arcedit: draw
Arcedit: quit
Leaving ARCEDIT...
Arc: build
Usage: BUILD {POLY | LINE | POINT | NODE | ANNO.}
Arc: build roads line
Building lines...
--------------------------------------------------
/geowork/training/generatepoint.wat
--------------------------------------------------
EXERCISE 1 GENERATEPOINT.WAT
POINT GENERATION EXERCISE
Arc: precision double
Arc: generate point1
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
GENERATE Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Generate: points
Enter Points.
Terminate input by entering END at ID,X,Y: prompt.
ID,X,Y: 112,3822777.8548,2639680.2763
ID,X,Y: 167,3822803.0265,2639659.1547
ID,X,Y: 166,3822791.4734,2639645.3863
ID,X,Y: 115,3822766.3017,2639666.5079
ID,X,Y: end
Generate: quit
Externalling BND and TIC...
Arc: build point1 point
Building points...
Arc: arcedit
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
ARCEDIT (COGO) Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Arcedit: display 9999 3
WARNING the Map extent is not defined
Arcedit: editc point1
The edit coverage is now /HOME/MIKE/POINT1
Defaulting the map extent to the BND of /HOME/MIKE/POINT1
Arcedit: drawe point,point id
Arcedit: draw
Please wait...
Arcedit: editf point
4 element(s) for edit feature POINT
Arcedit: sel
Point to the feature to select
Enter point
Label 1 User-ID: 112 (3822777.855,2639680.276) Angle 0.000 Scale 1.000
1 element(s) now selected
Arcedit: list
Record AREA PERIMETER POINT1# POINT1-ID
1 0.00000 0.00000 1 112
Arcedit: sel all
Please wait...
4 element(s) now selected
Arcedit: list
Record AREA PERIMETER POINT1# POINT1-ID
1 0.00000 0.00000 1 112
2 0.00000 0.00000 2 167
3 0.00000 0.00000 3 166
4 0.00000 0.00000 4 115
Arcedit: quit
Leaving ARCEDIT...
Arc: vi point.txt
Submitting command to Operating System ...
Arc: cat point.txt
Submitting command to Operating System ...
112,3822777.8548,2639680.2763
167,3822803.0265,2639659.1547
166,3822791.4734,2639645.3863
115,3822766.3017,2639666.5079
Arc: precision double
Arc: generate point2
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
GENERATE Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Generate: input point.txt
Generate: points
Creating points with coordinates loaded from point.txt
Generate: quit
Externalling BND and TIC...
Arc: build point2 point
Building points...
Arc: arcedit
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
ARCEDIT (COGO) Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Arcedit: display 9999 3
WARNING the Map extent is not defined
Arcedit: editc point2
The edit coverage is now /HOME/MIKE/POINT2
Defaulting the map extent to the BND of /HOME/MIKE/POINT2
Arcedit: drawe point,point ids
Arcedit: draw
Please wait...
Arcedit: backc /geowork/layers/subdiv 2
/GEOWORK/LAYERS/SUBDIV
is now background coverage 1 with draw symbol 2
Arcedit: backe arcs,nodes
Arcedit: draw
Please wait...
Arcedit: editf point
4 element(s) for edit feature POINT
Arcedit: sel
Point to the feature to select
Enter point
Label 3 User-ID: 166 (3822791.473,2639645.386) Angle 0.000 Scale 1.000
1 element(s) now selected
Arcedit: list
Record AREA PERIMETER POINT2# POINT2-ID
3 0.00000 0.00000 3 166
Arcedit: sel all
Please wait...
4 element(s) now selected
Arcedit: list
Record AREA PERIMETER POINT2# POINT2-ID
1 0.00000 0.00000 1 112
2 0.00000 0.00000 2 167
3 0.00000 0.00000 3 166
4 0.00000 0.00000 4 115
Arcedit: quit
Leaving ARCEDIT...
--------------------------------------------------
/geowork/training/generateline.wat
--------------------------------------------------
EXERCISE 2 GENERATELINE.WAT
LINE COVERAGE GENERATION EXERCISE
Arc: precision double
Arc: generate line1
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
GENERATE Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Generate: lines
Enter Lines.
Terminate Line by entering END at X,Y: prompt.
Terminate input by entering END at ID: prompt.
ID: 01020500001
X,Y: 3822777.8548,2639680.2763,112
X,Y: 3822803.0265,2639659.1547,167
X,Y: end
ID: 01020500001
X,Y: 3822803.0265,2639659.1547,167
X,Y: 3822791.4734,2639645.3863,166
X,Y: end
ID: 01020500001
X,Y: 3822791.4734,2639645.3863,166
X,Y: 3822766.3017,2639666.5079,115
X,Y: 3822777.8548,2639680.2763,112
X,Y: end
ID: end
Generate: quit
Externalling BND and TIC...
Arc: vi testline2.txt
Submitting command to Operating System ...
Arc: cat testline2.txt
Submitting command to Operating System ...
01020500001
3822777.8548,2639680.2763,112
3822803.0265,2639659.1547,167
end
01020500001
3822803.0265,2639659.1547,167
3822791.4734,2639645.3863,166
end
01020500001
3822791.4734,2639645.3863,166
3822766.3017,2639666.5079,115
end
01020500001
3822766.3017,2639666.5079,115
3822777.8548,2639680.2763,112
end
end
Arc: precision double
Arc: generate line2
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
GENERATE Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Generate: input testline2.txt
Generate: lines
Creating Lines with coordinates loaded from testline2.txt
Generate: quit
Externalling BND and TIC...
Arc: build line1 line
Building lines...
Arc: build line2 line
Building lines...
Arc: arcedit
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
ARCEDIT (COGO) Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Arcedit: display 9999 3
WARNING the Map extent is not defined
Arcedit: editc line2
The edit coverage is now /HOME/MIKE/LINE2
Defaulting the map extent to the BND of /HOME/MIKE/LINE2
Arcedit: drawe arc,node,arc ids
Arcedit: draw
Please wait...
Arcedit: backc /geowork/layers/subdiv 2
/GEOWORK/LAYERS/SUBDIV
is now background coverage 1 with draw symbol 2
Arcedit: backe arc
Arcedit: draw
Please wait...
Arcedit: arcplot
AP: linecolor red
AP: arcarrows
Character string expected.
Usage: ARCARROWS {item | symbol} {lookup_table}
AP: arcarrows line2
AP: quit
Arcedit: editf arc
4 element(s) for edit feature ARC
Coverage has no COGO attributes
Arcedit: sel
Point to the feature to select
Enter point
Arc 3 User-ID: 1020500001 with 2 points
1 element(s) now selected
Arcedit: list
ecord FNODE# TNODE# LPOLY# RPOLY# LENGTH LINE2# LINE2-ID
3 0 0 0 0 32.85934 3 *******
Arcedit: sel all
Please wait...
4 element(s) now selected
Arcedit: res length gt 20
2 element(s) now selected
Arcedit: drawse
Please wait...
Arcedit: sel all
Please wait...
4 element(s) now selected
Arcedit: list
Record FNODE# TNODE# LPOLY# RPOLY# LENGTH LINE2# LINE2-ID
1 0 0 0 0 32.85934 1 *******
2 0 0 0 0 17.97340 2 *******
3 0 0 0 0 32.85934 3 *******
4 0 0 0 0 17.97340 4 *******
Arcedit: quit
Leaving ARCEDIT...
--------------------------------------------------
/geowork/training/cogotraverse.wat
--------------------------------------------------
EXERCISE 3 COGOTRAVERSE.WAT
COGO TRAVERSE EXERCISE
Arc: createcogo
Usage: CREATECOGO {ARC | COGOPOINT} {DOUBLE | SINGLE | tic_bnd_cover}
Arc: createcogo arc traverse1 double
Creating coverage TRAVERSE1 from $ARCHOME/TEMPLATE/COGOEDIT/DOUBLECOGO
Copied $ARCHOME/TEMPLATE/COGOEDIT/DOUBLECOGO to TRAVERSE1
Coverage TRAVERSE1 is built for lines and has AAT COGO items
Arc: arcedit
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
ARCEDIT (COGO) Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Arcedit: cogoenv traverse1 point1
The edit coverage is now /HOME/MIKE/TRAVERSE1
WARNING the Map extent is not defined
Defaulting the map extent to the BND of /HOME/MIKE/TRAVERSE1
Please wait...
0 element(s) for edit feature ARC
Please wait...
The cogopointcoverage is now /HOME/MIKE/POINT1
4 cogopoint(s) with next cogopointnumber 168
Current cogopointitem is $ID
The snap coverage is now /HOME/MIKE/TRAVERSE1
Edit feature is FREE
4 element(s) for snap feature TIC
Type in "menu" to use the menu
Type in "abb" to use cogoedit abbreviations
Arcedit: traverse
Usage: TRAVERSE {* | xy | P} {* | xy | P | SAME}
{BEARING | ANGLE | BACKSIGHT {* | xy | P}}
{FORESIGHT <* | xy | P> }
Usage: TRAVERSE EDIT {COURSES | TAKEOFF {* | xy | P} |
TIE {* | xy | P | SAME}}
Usage: TRAVERSE EDIT | BACKSIGHT {* | xy | P} |
FORESIGHT <* | xy | P> >
Usage: TRAVERSE ADJUST {COMPASS | TRANSIT | CRANDALL |
LEASTSQUARE {VARIANCE } {AREA }}
Usage: TRAVERSE REVERSE | BACKSIGHT {* | xy | P}>
{FORESIGHT <* | xy | P> }
Usage: TRAVERSE
Arcedit: traverse open p112 angle 270
course (1): 130 32.859
course (2):
Please wait...
Please wait...
Please wait...
Please wait...
Open angle traverse with 1 courses
direction from backsight S00-00-00W
Course Types: 0 curve(s), 1 straight(s), 0 sideshot(s)
Takeoff point 3822777.85 2639680.28
Calculated end 3822803.03 2639659.15
Total length 32.86
Arcedit: traverse open p167 angle 270
Please wait...
course (1): 220 17.973
course (2):
Open angle traverse with 1 courses
direction from backsight S00-00-00W
Course Types: 0 curve(s), 1 straight(s), 0 sideshot(s)
Takeoff point 3822803.03 2639659.15
Calculated end 3822791.47 2639645.39
Total length 17.97
Arcedit: traverse open p166 angle 270
Please wait...
course (1): 310 32.859
course (2):
Open angle traverse with 1 courses
direction from backsight S00-00-00W
Course Types: 0 curve(s), 1 straight(s), 0 sideshot(s)
Takeoff point 3822791.47 2639645.39
Calculated end 3822766.30 2639666.51
Total length 32.86
Arcedit: traverse open p115 angle 270
Please wait...
course (1): 40 17.973
course (2):
Open angle traverse with 1 courses
direction from backsight S00-00-00W
Course Types: 0 curve(s), 1 straight(s), 0 sideshot(s)
Takeoff point 3822766.30 2639666.51
Calculated end 3822777.85 2639680.28
Total length 17.97
Arcedit: editc traverse1
The edit coverage is now /HOME/MIKE/TRAVERSE1
Arcedit: drawe point,point ids
Arcedit: draw
Arcedit: quit
Keep all edit changes (Y/N) : y
This will replace all changes back into the original coverage(s) and/or INFO file(s)
Do you really want to do this (Y/N) : y
Saving changes for /HOME/MIKE/TRAVERSE1
Saving arcs...
4 arc attribute record(s) written to /HOME/MIKE/TRAVERSE1
4 arc(s) written to /HOME/MIKE/TRAVERSE1
from the original 0, 4 added and 0 deleted
Saving tics...
** NOTE ** Tic(s) unchanged
BND replaced into /HOME/MIKE/TRAVERSE1
Saving set tolerances to TOL file...
Saving changes for cogopoint cover /HOME/MIKE/POINT1
8 label attribute record(s) written to /HOME/MIKE/POINT1
8 label(s) written to /HOME/MIKE/POINT1
from the original 4, 4 added and 0 deleted
BND replaced into /HOME/MIKE/POINT1
Please wait...
Leaving ARCEDIT...
Arc: build traverse1 line
Building lines...
Arc: arcedit
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
ARCEDIT (COGO) Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Arcedit: editc traverse1
The edit coverage is now /HOME/MIKE/TRAVERSE1
WARNING the Map extent is not defined
Defaulting the map extent to the BND of /HOME/MIKE/TRAVERSE1
Arcedit: drawe arc,node,node id
Arcedit: draw
Please wait...
Arcedit: backc line1 2
/HOME/MIKE/LINE1
is now background coverage 1 with draw symbol 2
Arcedit: backe arc
Arcedit: draw
Please wait...
Arcedit: arcplot
AP: linecolor red
AP: arcs line1
AP: quit
Arcedit: editc point1
The edit coverage is now /HOME/MIKE/POINT1
Arcedit: drawe point,point ids
Arcedit: draw
Please wait...
Arcedit: removeback all
Removing backcover: /HOME/MIKE/LINE1
Arcedit: draw
Arcedit: editf point
8 element(s) for edit feature POINT
Arcedit: sel point1-id gt 167
4 element(s) now selected
Arcedit: drawse
Please wait...
Arcedit: delete
4 label(s) deleted
Arcedit: draw
Arcedit: save
Saving changes for /HOME/MIKE/POINT1
Saving labels...
4 label attribute record(s) written to /HOME/MIKE/POINT1
4 label(s) written to /HOME/MIKE/POINT1
from the original 8, 0 added and 4 deleted
Reopening labels...
Please wait...
BND replaced into /HOME/MIKE/POINT1
Saving set tolerances to TOL file...
Re-establishing edit feature POINT
Arcedit: quit
Leaving ARCEDIT...
--------------------------------------------------
/geowork/training/subdiv.txt
--------------------------------------------------
STRUCTURE OF THE SUBDIV DATABASE FILE (.AAT)
COLUMN ITEM NAME WIDTH OUTPUT TYPE N.DEC ALTERNATE NAME INDEXED?
1 FNODE# 4 10 B - -
5 TNODE# 4 10 B - -
9 LPOLY# 4 10 B - -
13 RPOLY# 4 10 B - -
17 LENGTH 8 12 F 3 -
25 SUBDIV# 4 10 B - -
29 SUBDIV-ID 4 10 B - -
33 GEO 10 10 C - -
43 REF 10 10 C - -
53 MIX 2 7 B - -
55 MANTEKA 2 7 B - -
57 HAII 2 7 B - -
59 HARAH 2 7 B - -
61 BLOCK 2 7 B - -
63 LOTNUM 2 7 B - -
65 LOTUSE 20 20 C - -
85 NRP 10 10 C - -
95 NRP2 10 10 C - -
105 E 8 15 F 4 -
113 N 8 15 F 4 -
121 E2 8 15 F 4
129 N2 8 15 F 4 -
137 AZ 14 14 C - -
151 DIST 8 15 F 3 -
159 AREA_ 8 15 F 2 -
167 CURVE 2 2 C - -
169 CVNUM 8 8 C - -
177 DELTA_ 12 12 C - -
189 RADIUS_ 8 15 F 3 -
197 TANGENT_ 8 15 F 3 -
205 LENGTH_ 8 15 F 3 -
213 CCE 8 15 F 4 -
221 CCN 8 15 F 4 -
229 DATA 30 30 C - -
259 DUMMY 2 2 C - -
261 RES 28 28 C - -
289 LINE 3 3 I - -
292 ETYPE 1 1 C - -
1
FNODE# = 0
TNODE# = 0
LPOLY# = 0
RPOLY# = 0
LENGTH = 0.000
SUBDIV# = 1
SUBDIV-ID = 2
GEO =
REF = ALBATHNA
MIX = 0
MANTEKA = 1
HAII = 15
HARAH = 4
BLOCK = 5
LOTNUM = 1
LOTUSE =
NRP = 3
NRP2 = 1
E = 3817576.0000
N = 2639150.0000
E2 = 3817740.3047
N2 = 2639389.3449
AZ = 34 28 7.3
DIST = 290.314
AREA_ = 8009.07
CURVE = F
CVNUM =
DELTA_ =
RADIUS_ = 0.000
TANGENT_ = 0.000
LENGTH_ = 0.000
CCE = 0.0000
CCN = 0.0000
DATA = PID G-0387/0398/0401
DUMMY =
RES =
LINE = 1
ETYPE = L
--------------------------------------------------
/geowork/training/exercise-onscreen.txt
--------------------------------------------------
EXERCISE ON-SCREEN DIGITIZING Create a master tic coverage
PURPOSE: DIGITIZE STEET INTERSECTION TICS NECESSARY FOR
REGISTERING A MAP ON THE DIGITIZER
arc: create mastertics
arcedit:
display 9999
editc mastertics
drawe tic ids
draw
mape /geowork/layers/primrd
backc /geowork/layers/primrd 2
backc /geowork/layers/cenlin 3
backe arc
draw
USING ARCEDIT COMMANDS AND WINDOWS ZOOM FUNCTIONS
ADD FOUR TICS NUMBERED 15 THROUGH 18 AT THE CENTER OF THE FOUR
MAJOR INTERSECTIONS SURROUNDING HARAH AL-LULU
editf tic
add
(change user-id to start with 15 - click right mouse button)
New user-id: 15
(tic) user-id: 15 coordinate = (enter coordinate w/mouse)
(add all remaining tics)
(tic) user-id: (press 9 to quit)
save
quit
Notes: (1=left button on mouse, 2=middle button on mouse
3=right button on mouse
4, 5 and 6 are the same with the 'shift' key
7, 8 and 9 are the same with the 'control' key)
--------------------------------------------------
/geowork/training/haii2/exercise-dig.txt
--------------------------------------------------
EXERCISE DIGITIZER Create, Register & Digitize a Coverage
PURPOSE: Digitize a the boundary lines of Harah Al-Lulu
arc:
&workspace haii
display 9999
digitizer 9100 /dev/ttya
arcedit:
create harah05 mastertics
coordinate digitizer default
tic-id: 15 A 1
tic-id: 16 A 1
tic-id: 17 A 1
tic-id: 18 A 1
tic-id: 0 A (to end input)
nodesnap closest 0.05
drawe arc node labels ids
editf arc
add (REMEMBER: arcs must start and end with a node)
(add arcs, '2' for nodes and '1' for vertices)
user-id: (add arc)
user-id: (add arc)
(remainder)
user-id: (press 9 to end)
save
drawe node dangle (Check for errors)
draw
quit
arc: build harah05 line (build your coverage as a line)
--------------------------------------------------
/geowork/training/arc-command.txt
--------------------------------------------------
ARC COMMANDS
HELP opens the ARCDOC menu
COMMANDS lists ARC commands
(For Coverage and Workspace Management)
CREATEWORKSPACE create an ARC/INFO Workspace
DELETEWORKSPACE deletes an ARC/INFO Workspace
COPYWORKSPACE copies an ARC/INFO workspace to another directory
LISTWORKSPACES lists the ARC/INFO workspaces in your current directory
WORKSPACE lists your current workspace or attaches to
a workspace you specify
LISTCOVERAGES lists the map coverages in your workspace
DESCRIBE describes a coverage
COPY copies an ARC/INFO coverage
KILL kills an ARC/INFO coverage
RENAME renames an ARC/INFO coverage
RENAMEWORKSPACE renames an ARC/INFO workspace
(Topology Generation)
BUILD creates or updates a feature attribute table
CLEAN creates new topology and builds the feature
attribute table
(Creating Coverages)
PRECISION specifies if coverage is single or double precision
CREATE creates an empty coverage
DIGITIZER sets the digitizer device
COORDINATE specifies the peripheral (mouse, digitizer or keyboard)
from which input will come.
GENERATE creates a new point or line coverage from coordinates.
--------------------------------------------------
/geowork/training/ae-command.txt
--------------------------------------------------
ARCEDIT COMMANDS
DISPLAY sets the screen display
MAPEXTENT sets the mapextent of the coverage to be displayed
on the screen
EDITCOVERAGE sets the coverage to be edited
DRAWENVIRONMENT sets the features of the edit coverage to be displayed
on the screen
DRAW draws the edit coverage, back coverages and specified
features on the screen
BACKCOVERAGE sets the coverage to be displayed in the background
(cannot be edited)
BACKENVIRONMENT sets the features of the back coverage to be displayed
on the screen
EDITFEATURE sets the feature to be edited
SELECT selects a subset of the edit features
ASELECT adds to the selected subset of edit features
NSELECT selects all unselected edit features
RESELECT selects a subset of the edit features
UNSELECT removes one or more features from the selected set.
DRAWSE draws the selected set of features
DELETE deletes the selceted set of features
ADD adds features to the coverage
LIST list the attributes of the selected features
SAVE saves changes made in ARCEDIT
OOPS undo the last command
CREATE creates and empty ARC/INFO coverage
COORDINATE sets the source of coordinate input
(mouse, digitizer, keyboard)
NODESNAP sets the distance within which nodes will snap together
PUT puts a selected set of features in a new or
existing coverage
--------------------------------------------------
/home/hanson/addxy-pointnode.aml
--------------------------------------------------
/* USING ADDXY AND POINTNODE TO ATTACH POINT ATTRIBUTES
/* TO ARC NODES
/* USE ARC: ADDXY TO ADD POINT COORDINATES TO THE POINT2.PAT FILE
TABLES
SEL POINT2.PAT
LI
QUIT
/* adds cogo items to coverage line2
ADDXY
ADDXY POINT2 POINT
TABLES
SEL POINT2.PAT
LI
N
QUIT
ARCEDIT
DISPLAY 9999 3
EDITC LINE2
DRAWE ARC,NODE,NODE IDS
DRAW
EDITF NODE
SEL
QUIT
/* USE POINTNODE TO ADD NODE ATTRIBUTES TO LINE2 COVERAGE
POINTNODE
POINTNODE POINT2 LINE2 2
ARCEDIT
DISPLAY 9999 3
EDITC LINE2
DRAWE ARC,NODE,NODE IDS
DRAW
EDITF NODE
SEL
LIST
SEL ALL
LIST
QUIT
TABLES
SEL LINE2.NAT
ITEMS
LI
SEL LINE2.AAT
IT
LI
QUIT
--------------------------------------------------
/geowork/training/nodepoint.wat
--------------------------------------------------
EXERCISE 5 NODEPOINT.WAT
Arc: /* CREATE A POINT COVERAGE FROM NODES IN A LINE COVERAGE
Arc: /* USE ARC: NODEPOINT
Arc: NODEPOINT
Usage: NODEPOINT
Arc: NODEPOINT LINE2 NODE2
Converting nodes from LINE2 into points for NODE2
Building the INFO TIC & BND files for NODE2
4 point(s) generated
Arc: ARCEDIT
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
ARCEDIT (COGO) Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Arcedit: DISPLAY 9999 3
WARNING the Map extent is not defined
Arcedit: EDITC NODE2
The edit coverage is now /HOME/MIKE/NODE2
Defaulting the map extent to the BND of /HOME/MIKE/NODE2
Arcedit: DRAWE POINT,POINT IDS
Arcedit: DRAW
Please wait...
Arcedit: EDITF POINT
4 element(s) for edit feature POINT
Arcedit: SEL
Point to the feature to select
Enter point
Label 3 User-ID: 167 (3822803.027,2639659.155) Angle 0.000 Scale 1.000
1 element(s) now selected
Arcedit: LIST
3
AREA = 0.00000
PERIMETER = 0.00000
NODE2# = 3
NODE2-ID = 167
X-COORD = 3822803.02650
Y-COORD = 2639659.15470
Arcedit: SEL ALL
Please wait...
4 element(s) now selected
Arcedit: LIST
1
AREA = 0.00000
PERIMETER = 0.00000
NODE2# = 1
NODE2-ID = 112
X-COORD = 3822777.85480
Y-COORD = 2639680.27630
2
AREA = 0.00000
PERIMETER = 0.00000
NODE2# = 2
NODE2-ID = 115
X-COORD = 3822766.30170
Y-COORD = 2639666.50790
3
AREA = 0.00000
PERIMETER = 0.00000
NODE2# = 3
NODE2-ID = 167
X-COORD = 3822803.02650
Y-COORD = 2639659.15470
4
AREA = 0.00000
Continue? > N <
Arcedit: QUIT
Leaving ARCEDIT...
Arc: BUILD
Usage: BUILD {POLY | LINE | POINT | NODE | ANNO.}
Arc: BUILD NODE2 POINT
Building points...
Arc: TABLES
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
TABLES Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Enter Command: SEL NODE2.PAT
4 Records Selected.
Enter Command: ITEMS
COLUMN ITEM NAME WIDTH OUTPUT TYPE N.DEC ALTERNATE NAME INDEXED?
1 AREA 8 18 F 5 -
9 PERIMETER 8 18 F 5 -
17 NODE2# 4 5 B - -
21 NODE2-ID 4 5 B - -
25 X-COORD 8 18 F 5 -
33 Y-COORD 8 18 F 5 -
Enter Command: LIST
1
AREA = 0.00000
PERIMETER = 0.00000
NODE2# = 1
NODE2-ID = 112
X-COORD = 3822777.85480
Y-COORD = 2639680.27630
2
AREA = 0.00000
PERIMETER = 0.00000
NODE2# = 2
NODE2-ID = 115
X-COORD = 3822766.30170
Y-COORD = 2639666.50790
3
AREA = 0.00000
PERIMETER = 0.00000
NODE2# = 3
NODE2-ID = 167
X-COORD = 3822803.02650
Y-COORD = 2639659.15470
4
AREA = 0.00000
Continue? > N <
Enter Command: SEL NODE2.NAT
Unable to Select File.
Enter Command: QUIT
Leaving TABLES...
Arc: BUILD NODE2 NODE
Building nodes...
Arc: TABLES
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
TABLES Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Enter Command: SEL NODE2.NAT
0 Records Selected.
Enter Command: QUIT
Leaving TABLES...
Arc: KILL NODE2 ALL
Killed NODE2 with the ALL option
--------------------------------------------------
/geowork/training/addcogoatt-arccogo.wat
--------------------------------------------------
EXERCISE 6 ADDCOGOATT-ARCCOGO.WAT
Arc: /* ADD AZIMUTH AND OTHER COGO ATTRIBUTES TO A LINE FILE CREATED
Arc: /* FROM COORDINATES
Arc: /* USE ARC: ADDCOGOATT TO ADD EMPTY COGO ATTRIBUTE ITEMS TO AN
Arc: /* EXISTING ARC COVERAGE.
Arc: TABLES
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
TABLES Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Enter Command: SEL LINE2.AAT
4 Records Selected.
Enter Command: ITEMS
COLUMN ITEM NAME WIDTH OUTPUT TYPE N.DEC ALTERNATE NAME INDEXED?
1 FNODE# 4 5 B - -
5 TNODE# 4 5 B - -
9 LPOLY# 4 5 B - -
13 RPOLY# 4 5 B - -
17 LENGTH 8 18 F 5 -
25 LINE2# 4 5 B - -
29 LINE2-ID 4 5 B - -
Enter Command: QUIT
Leaving TABLES...
Arc: ADDCOGOATT
Usage: ADDCOGOATT
Arc: ADDCOGOATT LINE2
Joining /home/mike/info!arc!line2.AAT and $ARCHOME/template/cogoedit/info!ARC!cogoatt to create /home/mike/info!arc!line2.AAT
Arc: TABLES
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
TABLES Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Enter Command: SEL LINE2.AAT
4 Records Selected.
Enter Command: ITEMS
COLUMN ITEM NAME WIDTH OUTPUT TYPE N.DEC ALTERNATE NAME INDEXED?
1 FNODE# 4 5 B - -
5 TNODE# 4 5 B - -
9 LPOLY# 4 5 B - -
13 RPOLY# 4 5 B - -
17 LENGTH 8 18 F 5 -
25 LINE2# 4 5 B - -
29 LINE2-ID 4 5 B - -
33 ANGLE 10 10 C - -
43 DISTANCE 8 8 C - -
51 RADIUS 8 8 C - -
59 DELTA 10 10 C - -
69 TANGENT 8 8 C - -
77 ARCLENGTH 8 8 C - -
85 SIDE 1 1 C - -
86 RADIUS2 8 8 C - -
94 TANGENT2 8 8 C - -
Enter Command: LI
1
FNODE# = 1
TNODE# = 3
LPOLY# = 0
RPOLY# = 0
LENGTH = 32.85934
LINE2# = 1
LINE2-ID = *******
ANGLE =
DISTANCE =
RADIUS =
DELTA =
TANGENT =
ARCLENGTH =
SIDE =
RADIUS2 =
TANGENT2 =
2
FNODE# = 3
TNODE# = 4
LPOLY# = 0
RPOLY# = 0
LENGTH = 17.97340
Continue? > N <
Enter Command: QUIT
Leaving TABLES...
Arc: /* USE ARCCOGO TO CALCULATE COGO ATTRIBUTE ITEMS
Arc: ARCCOGO
Usage: ARCCOGO
{BEARING | NORTHBEARING | AZIMUTH | SOUTHAZIMUTH | POLAR}
{DMS | DEGREES | GRADS | GCC} {decimal_places} {rotation_angle}
{scale_factor}
Arc: ARCCOGO LINE2 LINE2 RADIUS AZIMUTH DMS
Creating output COGO coverage LINE2...
Coverage LINE2 already exists
Arc: ARCCOGO LINE2 LINE3 RADIUS AZIMUTH DMS
Creating output COGO coverage LINE3...
WARNING Existing data in cogo attribute items will be lost
Processing coverage LINE2 arcs.....
Arc: TABLES
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
TABLES Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Enter Command: SEL LINE3.AAT
4 Records Selected.
Enter Command: LIST
1
FNODE# = 0
TNODE# = 0
LPOLY# = 0
RPOLY# = 0
LENGTH = 32.85934
LINE3# = 1
LINE3-ID = *******
ANGLE = N130-00-00
DISTANCE = 32.86
RADIUS =
DELTA =
TANGENT =
ARCLENGTH =
SIDE =
RADIUS2 =
TANGENT2 =
2
FNODE# = 0
TNODE# = 0
LPOLY# = 0
RPOLY# = 0
LENGTH = 17.97340
Continue? > N <
Enter Command: QUIT
Leaving TABLES...
--------------------------------------------------
/geowork/training/addcogoatt-arccogo.aml
--------------------------------------------------
/* ADD AZIMUTH AND OTHER COGO ATTRIBUTES TO A LINE FILE CREATED
/* FROM COORDINATES
/* USE ARC: ADDCOGOATT TO ADD EMPTY COGO ATTRIBUTE ITEMS TO AN
/* EXISTING ARC COVERAGE.
TABLES
SEL LINE2.AAT
ITEMS
QUIT
ADDCOGOATT LINE2
TABLES
SEL LINE2.AAT
ITEMS
LI
QUIT
/* USE ARCCOGO TO CALCULATE COGO ATTRIBUTE ITEMS
ARCCOGO LINE2 LINE3 RADIUS AZIMUTH DMS
TABLES
SEL LINE3.AAT
LIST
QUIT
--------------------------------------------------
/geowork/training/pilotwork1.wat
--------------------------------------------------
Arc: /* PILOT WORK EXERCISE # 1
Arc: /* CREATE LINE COVERAGES FOR MULTIPLE LOTS IN HARAH AL-NAWA
Arc: /* FROM COORDINATES IN LAND COORDINATE DIAGRAMS (LCDs)
Arc: /* STEP 1
Arc: /*
Arc: /* CREATE A NEW VI FILE CALLED 'LINE05A.TXT'
Arc: /*
Arc: /* vi line05a.txt
Arc: /* STEP 2
Arc: /*
Arc: /* ENTER COORDINATE DATA USING THE SAME PROCEDURES AS
Arc: /* PRACTICED IN EXERCISE 2
Arc: /* REMEMBER - TWO 'END' ENTRIES COME ONLY AT THE END OF
Arc: /* THE FILE.
Arc: /* INPUT COORDINATES FOR 10 LOTS FROM MAP SHEETS YOU ARE
Arc: /* GIVEN.
Arc: /* REMEMBER TO FILE YOUR INPUT
Arc: /* STEP 3
Arc: /*
Arc: /* CREATE A NEW VI FILE CALLED 'LINE05B.TXT'
Arc: /*
Arc: /* vi line05b.txt
Arc: /* STEP 4
Arc: /*
Arc: /* ENTER COORDINATE DATA USING THE SAME PROCEDURES AS
Arc: /* PRACTICED IN EXERCISE 2
Arc: /* REMEMBER - TWO 'END' ENTRIES COME ONLY AT THE END OF
Arc: /* THE FILE.
Arc: /* INPUT COORDINATES FOR 10 LOTS FROM MAP SHEETS YOU ARE
Arc: /* GIVEN.
--------------------------------------------------
/geowork/training/pilotwork2.aml
--------------------------------------------------
/* PILOT WORK EXERCISE 2 PILOTWORK2.AML
/* GENERATE LINE COVERAGES FROM VI FILES
precision double
generate line05a
input line05a.txt
lines
quit
generate line05b
input line05b.txt
lines
quit
build line05a line
build line05b line
arcedit
display 9999 3
editc line05a
drawe arc,node,node ids,arc ids
draw
editc line05b
mape line05b
draw
backc line05a 2
backe arc
draw
quit
/* CREATE A POINT FILE FOR EACH LINE COVERAGE
/* FIRST, COPY EACH .TXT FILE
&sys cp line05a.txt point05a.txt
&sys cp line05b.txt point05b.txt
/* NOW EDIT EACH .TXT FILE IN VI AND DELETE ALL LINES EXCEPT
/* ONE FOR EACH UNIQUE POINT
/* NOW YOU HAVE A POINT.TXT FILE SIMILAR TO THE ONE YOU
/* CREATED IN EXERCISE 1.
/* NOW YOU WILL USE TABLES AND INFO TO REORDER THESE FILES SO
/* THAT THE ID, X-COORD AND Y-COORD ARE IN THE PROPER ORDER.
tables
define point05
x-coord
8
15
f
4
y-coord
8
15
f
4
ref
4
4
i
~
sel point05
add from point05a.txt
li
sel point05
unload point05a1.txt ref x-coord y-coord delimited
quit
tables
sel point05
purge
y
add from point05b.txt
li
sel point05
unload point05b1.txt ref x-coord y-coord delimited
quit
cat point05b1.txt
/* NOW GENERATE POINT COVERAGES
precision double
generate point05a
input point05a1.txt
points
quit
generate point05b
input point05b1.txt
points
quit
build point05a point
build point05b point
arcedit
display 9999 3
editc point05a
drawe point,point ids
draw
backc point05b 2
backe point,point ids
draw
quit
/* NOW USE ADDXY AND POINTNODE TO ATTACH POINT ATTRIBUTES
/* TO ARC NODES
addxy point05a point
addxy point05b point
build point05a point
build point05b point
pointnode point05a line05a 1
pointnode point05b line05b 1
arcedit
editc line05a
drawe arc,node,node ids
draw
backc line05b 2
backe arc,node,node ids
draw
editf node
sel
list
editc line05b
draw
editf node
sel
list
quit
--------------------------------------------------
/geowork/training/pilotwork2.wat
--------------------------------------------------
Arc: /* PILOT WORK EXERCISE 2 PILOTWORK2.WAT
Arc: /* GENERATE LINE COVERAGES FROM VI FILES
Arc: precision double
Arc: generate line05a
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
GENERATE Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Generate: input line05a.txt
Generate: lines
Creating Lines with coordinates loaded from line05a.txt
Generate: quit
Externalling BND and TIC...
Arc: generate line05b
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
GENERATE Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Generate: input line05b.txt
Generate: lines
Creating Lines with coordinates loaded from line05b.txt
Generate: quit
Externalling BND and TIC...
Arc: build line05a line
Building lines...
Arc: build line05b line
Building lines...
Arc: arcedit
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
ARCEDIT (COGO) Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Arcedit: display 9999 3
WARNING the Map extent is not defined
Arcedit: editc line05a
The edit coverage is now /HOME/MIKE/LINE05A
Defaulting the map extent to the BND of /HOME/MIKE/LINE05A
Arcedit: drawe arc,node,node ids,arc ids
Arcedit: draw
Please wait...
Arcedit: editc line05b
The edit coverage is now /HOME/MIKE/LINE05B
Arcedit: mape line05b
Arcedit: draw
Please wait...
Arcedit: backc line05a 2
/HOME/MIKE/LINE05A
is now background coverage 1 with draw symbol 2
Arcedit: backe arc
Arcedit: draw
Arcedit: quit
Leaving ARCEDIT...
Arc: /* CREATE A POINT FILE FOR EACH LINE COVERAGE
Arc: /* FIRST, COPY EACH .TXT FILE
Arc: quit
Exiting ARC ...
cp line05a.txt point05a.txt
cp line05b.txt point05b.txt
/* NOW EDIT EACH .TXT FILE IN VI AND DELETE ALL LINES EXCEPT
/* ONE FOR EACH UNIQUE POINT
/* NOW YOU HAVE A POINT.TXT FILE SIMILAR TO THE ONE YOU
/* CREATED IN EXERCISE 1.
/* NOW YOU WILL USE TABLES AND INFO TO REORDER THESE FILES SO
/* THAT THE ID, X-COORD AND Y-COORD ARE IN THE PROPER ORDER.
Arc: tables
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
TABLES Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Enter Command: define point05
1
Item Name: x-coord
Item Width: 15
Item Output Width: 15
Item Type: c
16
Item Name: y-coord
Item Width: 15
Item Output Width: 15
Item Type: c
31
Item Name: ref
Item Width: 4
Item Output Width: 4
Item Type: i
35
Item Name:
Enter Command: sel point05
0 Records Selected.
Enter Command: add from point05a.txt
Enter Command: li
Record X-COORD Y-COORD REF
1 3822866.3027 2639572.7122 161
2 3822877.6052 2639573.7010 162
3 3822878.7061 2639561.1180 163
4 3822867.4036 2639560.1292 171
5 3822865.8539 2639575.4447 176
6 3822854.8099 2639574.4785 177
7 3822853.7445 2639586.6557 173
8 3822861.3002 2639587.3167 174
9 3822865.0937 2639584.1336 175
Enter Command: quit
Leaving TABLES...
Arc: info
arc
SEL POINT05 /* NOTE THAT INFO IS CASE SENSITIVE
/* THIS CREATES AN OUTPUT FILE WITH COMMAS
OUTPUT /HOME//POINT05A1.TXT
PRINT REF,',',X-COORD,',',Y-COORD
PRINT ' '
Q STOP
Arc: TABLES
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
TABLES Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Enter Command: SEL POINT05
9 Records Selected.
Enter Command: PURGE
Do you want to purge all selected records (Y or N)? : Y
0 Records Selected.
Enter Command: ADD FROM POINT05B.TXT
Enter Command: LI
Record X-COORD Y-COORD REF
10 3822855.1086 2639571.7328 160
11 3822866.3027 2639572.7122 161
12 3822867.4036 2639560.1292 171
13 3822856.2095 2639559.1498 169
14 3822854.8099 2639574.4785 177
15 3822843.5082 2639573.4897 178
16 3822842.4426 2639585.6669 172
17 3822853.7445 2639586.6557 173
Enter Command: QUIT
Leaving TABLES...
Arc: INFO
arc
SEL POINT05 /*NOTE THAT INFO IS CASE SENSITIVE
/*THIS CREATES AN OUTPUT FILE WITH COMMAS
OUTPUT /HOME//POINT05B1.TXT
PRINT REF,',',X-COORD,',',Y-COORD
PRINT ' '
Q STOP
Arc: cat point05b1.txt
Submitting command to Operating System ...
Arc: /* NOW GENERATE POINT COVERAGES
Arc: precision double
Arc: generate
Usage: GENERATE
Arc: generate point05a
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
GENERATE Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Generate: input point05a1.txt
Generate: points
Creating points with coordinates loaded from point05a1.txt
Unexpected End-Of-File Encountered while reading INPUT file.
Generate: quit
Externalling BND and TIC...
Arc: generate point05b
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
GENERATE Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Generate: input point05b1.txt
Generate: points
Creating points with coordinates loaded from point05b1.txt
Unexpected End-Of-File Encountered while reading INPUT file.
Generate: quit
Externalling BND and TIC...
Arc: build point05a point
Building points...
Arc: build point05b point
Building points...
Arc: arcedit
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
ARCEDIT (COGO) Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Arcedit: display 9999 3
WARNING the Map extent is not defined
Arcedit: editc point05a
The edit coverage is now /HOME/MIKE/POINT05A
Defaulting the map extent to the BND of /HOME/MIKE/POINT05A
Arcedit: drawe point,point ids
Arcedit: draw
Please wait...
Arcedit: backc point05b 2
/HOME/MIKE/POINT05B
is now background coverage 1 with draw symbol 2
Arcedit: backe point,point ids
Arcedit: draw
Please wait...
Arcedit: quit
Leaving ARCEDIT...
Arc: /* NOW USE ADDXY AND POINTNODE TO ATTACH POINT ATTRIBUTES
Arc: /* TO ARC NODES
Arc: addxy
Usage: ADDXY {POINT | NODE}
Arc: addxy point05a point
Adding X,Y Coordinates to point05a.PAT
Arc: addxy point05b point
Adding X,Y Coordinates to point05b.PAT
Arc: build point05a point
Building points...
Arc: build point05b point
Building points...
Arc: pointnode
Usage: POINTNODE {search_radius}
Arc: pointnode point05a line05a 1
Building nodes...
Making nodes in line05a from points in point05a...
Arc: pointnode point05b line05b 1
Building nodes...
Making nodes in line05b from points in point05b...
Arc: arcedit
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
ARCEDIT (COGO) Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Arcedit: editc line05a
The edit coverage is now /HOME/MIKE/LINE05A
WARNING the Map extent is not defined
Defaulting the map extent to the BND of /HOME/MIKE/LINE05A
Arcedit: drawe arc,node,node ids
Arcedit: draw
Please wait...
Please wait...
Arcedit: backc line05b 2
/HOME/MIKE/LINE05B
is now background coverage 1 with draw symbol 2
Arcedit: backe arc,node,node ids
Arcedit: draw
Please wait...
Please wait...
Arcedit: editf node
9 element(s) for edit feature NODE
Coverage has node attributes
Arcedit: sel
Point to the feature to select
Enter point
Node 8 User-ID: 163 (3822878.706,2639561.118)
1 element(s) now selected
Arcedit: list
Record ARC# LINE05A# LINE05A-ID X-COORD Y-COORD
8 2 8 163 3822878.70610 2639561.11800
Arcedit: editc line05b
Please wait...
The edit coverage is now /HOME/MIKE/LINE05B
Arcedit: draw
Arcedit: editf node
8 element(s) for edit feature NODE
Coverage has node attributes
Arcedit: sel
Point to the feature to select
Enter point
Node 5 User-ID: 161 (3822866.303,2639572.712)
1 element(s) now selected
Arcedit: list
Record ARC# LINE05B# LINE05B-ID X-COORD Y-COORD
5 1 5 161 3822866.30270 2639572.71220
Arcedit: quit
Leaving ARCEDIT...
--------------------------------------------------
/geowork/training/pilotwork3.wat
--------------------------------------------------
/* PILOT WORK EXERCISE 3 PILOTWORK3.WAT
/* GENERATE COGO ATTRIBUTES FOR YOUR TWO LINE COVERAGES
/* FIRST COPY YOUR LINE COVERAGES TO NEW FILES
/*
/* arc: copy line05a line05a-1
/* copy line05b line05b-1
/* NOW CREATE YOUR NEW COVERAGES USING ADDCOGOATT AND ARCCOGO
/*
/* arc: addcogoatt line05a-1
/* arc: addcogoatt line05b-1
/* arc: arccogo line05a-1 line05a-2 radius azimuth dms
/* arc: arccogo line05b-1 line05b-2 radius azimuth dms
/* NOW KILL YOUR INTERMEDIATE COVERAGES
/*
/* arc: kill line05a-1 all
/* arc: kill line05b-1 all
--------------------------------------------------
/geowork/training/append.wat
--------------------------------------------------
Arc: /* PILOT WORK EXERCISE 3A APPEND.WAT
Arc: /* APPENDING COVERAGES
Arc: /* NOW APPEND YOUR TWO COVERAGES, LINE05A AND LINE05B TOGETHER
Arc: append
Usage: APPEND
{NOTEST | template_cover | feature_class...feature_class}
{NONE | FEATURES | TICS | ALL}
Arc: append line05 line
Enter Coverages to be APPENDed (Type END or a blank line when done):
=====================================================================
Enter the 1st coverage: line05a
Enter the 2nd coverage: line05b
Enter the 3rd coverage:
Done entering coverage names (Y/N)? y
Do you wish to use the above coverages (Y/N)? y
Appending coverages...
Arc: describe line05 /*DESCRIBE YOUR COVERAGE
Description of DOUBLE precision coverage line05
FEATURE CLASSES
Number of Attribute Spatial
Feature Class Subclass Features data (bytes) Index? Topology?
------------- -------- --------- ------------ ------- ---------
ARCS 17 292
NODES 17
SECONDARY FEATURES
Tics 4
Arc Segments 17
TOLERANCES
Fuzzy = 0.002 N Dangle = 0.000 N
COVERAGE BOUNDARY
Xmin = 3822842.443 Xmax = 3822878.706
Ymin = 2639559.150 Ymax = 2639587.317
Continue? > n <
Arc: arcedit /* VIEW YOUR COVERAGE
Copyright (C) 1982-1995 Environmental Systems Research Institute, Inc.
All rights reserved.
ARCEDIT (COGO) Version 7.0.3 (Mon Mar 13 22:21:55 PST 1995)
Arcedit: display 9999 3
WARNING the Map extent is not defined
Arcedit: editc line05
The edit coverage is now /GEOWORK/TRAINING/LINE05
Defaulting the map extent to the BND of /GEOWORK/TRAINING/LINE05
Arcedit: drawe arc ids nodes ids
Arcedit: draw
Please wait...
Arcedit: /* SELECT YOUR ARCS AND NODES AND CHECK YOUR ITEMS
Arcedit: /* NOW QUIT
Arcedit: quit
Leaving ARCEDIT...
/* NOW WE ARE GOING TO UPDATE THE CAMP 5 SUBDIV COVERAGE USING APPEND
/* FIRST COPY SUBDIV05 FROM /GEOWORK/TRAINING
Arc: copy /geowork/training/subdiv05
Arc: append
Usage: APPEND
{NOTEST | template_cover | feature_class...feature_class}
{NONE | FEATURES | TICS | ALL}
Arc: append subdiv05-1 line node
Enter Coverages to be APPENDed (Type END or a blank line when done):
=====================================================================
Enter the 1st coverage: subdiv05
Enter the 2nd coverage: line05
Enter the 3rd coverage: end
Appending coverages...
Arc: /* NOW START ARCEDIT AND CHECK YOUR COVERAGE
/* WHEN YOU ARE THROUGH KILL SUBDIV05-1
--------------------------------------------------
/geowork/training/append.aml
--------------------------------------------------
/* PILOT WORK EXERCISE 3A APPEND.WAT
/* APPENDING COVERAGES
/* NOW APPEND YOUR TWO COVERAGES, LINE05A AND LINE05B TOGETHER
append line05 line
line05a
line05b
~
y
y
/*
describe line05 /* DESCRIBE YOUR COVERAGE
arcedit /* VIEW YOUR COVERAGE
display 9999 3
editc line05
drawe arc ids nodes ids
draw
/* SELECT YOUR ARCS AND NODES AND CHECK YOUR ITEMS
/* NOW QUIT
quit
--------------------------------------------------
/geowork/training/pilotwork123.aml
--------------------------------------------------
/* ---------------------------------------------------------
/* PILOTWORK123.AML - AML TO GENERATE SUBDIV LINE COVERAGES
/* FOR NEW LOTS WHICH CONTAIN ALL ITEMS
/* IN THE .AAT AS CONTAINED ON THE
/* CONVERTED SYNERCOM SUBDIV COVERAGES.
/* ---------------------------------------------------------
/* WRITTEN BY MICHAEL J. BREEDLOVE - 4/10/96
/* ---------------------------------------------------------
&sv path = [pathname test]
&sv path3 = [before %path% test]
&s file := file.dat
&sv fg = fgdl1
&s loc := [open %file% openstatus -r]
&if %openstatus% <> 0 &then
&return &warning unable to open file.dat
&s I := [unquote [read %loc% readstatus]]
&sv .NAME = %I%
&sv .TITLE := [quote %.NAME%]
&if %readstatus% <> 0 &then
&return &warning unable to open file.dat
&do &until [null %I%]
&type %I%
&type %.NAME%
&type %.TITLE%
/* DELETES OLD COVERAGES
&if [exists line%I% -directory] &then
&do
kill line%I% all
&type Deleted 'old' version of line%I% !!!
&end
&if [exists point%I% -directory] &then
&do
kill point%I% all
&type Deleted 'old' version of point%I% !!!
&end
&if [exists point%I%-1 -directory] &then
&do
kill point%I%-1 all
&type Deleted 'old' version of point%I% !!!
&end
&if [exists point%I%-2 -directory] &then
&do
kill point%I%-2 all
&type Deleted 'old' version of point%I% !!!
&end
rm point%I%1.txt
/* READS POINT.TXT FILE AND OUTPUTS IN CORRECT FORMAT
tables
sel point05
purge
y
add from point%I%.txt
sel point05
unload point%I%1.txt ref x-coord y-coord delimited init
quit
&data arc info
ARC
output %path3%point%I%1.txt append
print ' '
q stop
&end
/* CREATES POINT COVERAGE
precision double
generate point%I%
input point%I%1.txt
points
input tty
quit
build point%I% point
/* ADDS X,Y COORDINATES TO .PAT FILE
addxy point%I% point
build point%I% point
/* CREATES LINE COVERAGE
precision double
generate line%I%
input line%I%.txt
lines
quit
build line%I% line
build line%I% node
/* ADDS ITEMS TO .NAT FOR RELATING
additem line%I%.nat line%I%.nat fnode# 4 5 b
additem line%I%.nat line%I%.nat tnode# 4 5 b
tables
sel line%I%.nat
calc fnode# = line%I%-id
calc tnode# = line%I%-id
quit
/* MOVES POINT FILE ITEMS TO LINE.NAT
pointnode point%I% line%I% 1
/* ADDS OTHER SUBDIV ITEMS TO LINE.AAT
additem line%I%.aat line%I%.aat arc-id 4 5 b
additem line%I%.aat line%I%.aat geo 10 10 c
additem line%I%.aat line%I%.aat ref 10 10 c
additem line%I%.aat line%I%.aat mix 2 7 b
additem line%I%.aat line%I%.aat manteka 2 7 b
additem line%I%.aat line%I%.aat haii 2 7 b
additem line%I%.aat line%I%.aat harah 2 7 b
additem line%I%.aat line%I%.aat block 2 7 b
additem line%I%.aat line%I%.aat lotnum 2 7 b
additem line%I%.aat line%I%.aat lotuse 20 20 c
additem line%I%.aat line%I%.aat nrp 10 10 i
additem line%I%.aat line%I%.aat nrp2 10 10 i
additem line%I%.aat line%I%.aat e 8 15 f 4
additem line%I%.aat line%I%.aat n 8 15 f 4
additem line%I%.aat line%I%.aat e2 8 15 f 4
additem line%I%.aat line%I%.aat n2 8 15 f 4
additem line%I%.aat line%I%.aat az 14 14 c
additem line%I%.aat line%I%.aat dist 8 15 f 3
additem line%I%.aat line%I%.aat area_ 8 15 f 2
additem line%I%.aat line%I%.aat curve 2 2 c
additem line%I%.aat line%I%.aat cvnum 8 8 c
additem line%I%.aat line%I%.aat delta_ 12 12 c
additem line%I%.aat line%I%.aat radius_ 8 15 f 3
additem line%I%.aat line%I%.aat tangent_ 8 15 f 3
additem line%I%.aat line%I%.aat length_ 8 15 f 3
additem line%I%.aat line%I%.aat cce 8 15 f 4
additem line%I%.aat line%I%.aat ccn 8 15 f 4
additem line%I%.aat line%I%.aat data 30 30 c
additem line%I%.aat line%I%.aat dummy 2 2 c
additem line%I%.aat line%I%.aat res 28 28 c
additem line%I%.aat line%I%.aat line 3 3 i
additem line%I%.aat line%I%.aat etype 1 1 c
additem line%I%.aat line%I%.aat parcelid 11 11 i
/* REDEFINES PARCELID INTO MANTEKA, HAII, HARAH, BLOCK, &LOT
tables
sel line%I%.aat
calc parcelid = line%I%-id
calc line%I%-id = $recno
calc arc-id = line%I%-id
redefine
/* REDEFINED FIELD FOR MANTEKA
297
r1
2
2
i
/* REDEFINED FIELD FOR HAII
299
r2
2
2
i
/* REDEFINED FIELD FOR HARAH
301
r3
2
2
i
/* REDEFINED FIELD FOR BLOCK
303
r4
2
2
i
/* REDEFINED FIELD FOR LOT
305
r5
3
3
i
~
/* CALCULATES ITEMS EQUAL TO REDEFINED ITEMS
sel line%I%.aat
calc manteka = r1
calc haii = r2
calc harah = r3
calc block = r4
calc lotnum = r5
quit
/* MOVES REF# AND X,Y COORDINATES FROM .NAT TO .AAT
&data arc info
ARC
CALC $CASE-FLAG = 1
SEL LINE%I%.NAT
REL LINE%I%.AAT BY FNODE#
NEXT
CALC $1NRP = LINE%I%-ID
CALC $1E = X-COORD
CALC $1N = Y-COORD
REL LINE%I%.AAT BY TNODE#
NEXT
CALC $1NRP2 = LINE%I%-ID
CALC $1E2 = X-COORD
CALC $1N2 = Y-COORD
QUIT
STOP
&end
/* CREATES COGO FILE ATTRIBUTES
copy LINE%I% LINE%I%-1
addcogoatt LINE%I%-1
arccogo LINE%I%-1 LINE%I%-2 radius azimuth dms
kill line%I%-1 all
/* RELATES AND MOVES COGO ATTRIBUTES TO LINE.AAT
&data arc info
ARC
CALC $CASE-FLAG = 1
SEL LINE%I%.AAT
REL LINE%I%-2.AAT BY ARC-ID
MOVE $1ANGLE TO AZ
CALC DIST = $1DISTANCE
Q STOP
&end
dropitem line%I%.aat line%I%.aat r1
dropitem line%I%.aat line%I%.aat r2
dropitem line%I%.aat line%I%.aat r3
dropitem line%I%.aat line%I%.aat r4
dropitem line%I%.aat line%I%.aat r5
dropitem line%I%.aat line%I%.aat arc-id
kill line%I%-2 all
&s I := [unquote [read %loc% readstatus]]
&sv .NAME = %I%
&sv .TITLE := [quote %.NAME%]
&END
&RETURN
--------------------------------------------------
/geowork/training/haii2/addlabels.aml
--------------------------------------------------
/* ADDING LABEL POINTS TO A POLYGON COVERAGE
/* FIRST DESCRIBE YOUR COVERAGE HAII02
describe haii02
/* NOW OPEN ARCEDIT AND ADD LABEL POINTS
arcedit
display 9999 3
editc haii02
drawe arc label ids
draw
editf label
/* THE FIRST LABEL YOU ADD WILL BE NUMBER 1 AND WILL
/* INCREMENT BY ONE WITH EACH NEW LABEL.
/* START WITH CAMP1 AND PROCEED UPWARD TO CAMP 7.
add
/* NOW SAVE YOUR COVERAGE AND BUILD IT AS A POLYGON.
save
quit
build haii02 poly
/* NOW DESCRIBE YOUR COVERAGE
describe haii02
/* NOW COPY HAII02, DELETE LABELS AND USE CREATELABELS TO GENERATE
/* NEW LABELS
copy haii02 haii02a
arcedit
drawe arc labels ids
draw
editc haii02a
drawe arc labels ids
draw
editf label
sel all
drawse
delete
draw
save
quit
build haii02a poly
createlabels haii02a
build haii02a poly
/* NOW OPEN ARCEDIT AND CHECK YOUR COVERAGE
arcedit
editc haii02a
drawe arc label ids
draw
/* NOTE THE DIFFERENCES
/* NOW QUIT AND DELETE HAII02A
quit
kill haii02a all
--------------------------------------------------
/geowork/training/arclabel1.aml
--------------------------------------------------
/* ARCLABEL1.WAT
/* USE ARCLABEL, CREATELABELS AND IDEDIT TO GENERATE LABELS
/* POINTS WITH PARCELID VALUES
/* START WITH LINE05A
/* FIRST BUILD LINE05A AS A POLYGON COVERAGE
copy line05a line05ap
build line05ap poly
/* NOW USE ARCLABEL TO CREATE LABELS ON EACH ARC
arclabel
arclabel line05ap line05ap right 2 parcelid
build line05ap poly
/* NOW OPEN ARCEDIT AND REVIEW THE RESULTS
arcedit
display 9999 3
editc line05ap
drawe arc label ids
draw
/* NOTE HOW ARCLABEL PUT LABELS ALONG EACH ARC
quit
/* NOW USE CREATELABELS AND IDEDIT
createlabels
createlabels line05ap
idedit
idedit line05ap poly
/* NOW CHECK THE COVERAGE IN ARCEDIT
arcedit
editc line05ap
drawe arc label id
draw
/* NOTE THERE IS NOW ONLY ONE LABEL PER POLYGON
drawe arc id node id
draw
/* NOTE THAT YOUR ARC AND NODE ATTRIBUTES REMAIN
/* SELECT ONE AND CHECK IT OUT
editf arc
sel
list
editf node
sel
list
quit
/* NOW REPEAT THIS EXERCISE FOR LINE05B
copy line05b line05bp
build line05bp poly
arclabel
arclabel line05bp line05bp right 2 parcelid
build line05bp poly
createlabels
createlabels line05bp
idedit
idedit line05bp poly
--------------------------------------------------
/geowork/training/appendunion.aml
--------------------------------------------------
/* APPENDUNION.AML
/* USING IDENTITY, INTERSECT, UNION AND APPEND
/* FIRST TRY IDENTITY - LOOK IT UP IN ARCDOC
/* WHAT DOES IT DO?
identity
identity line05ap line05bp identity1 poly 0.001 join
/* NOW DO THE SAME WITH COVERAGE EDIT2
identity
identity line05ap edit2 identity2 poly 0.001 join
/* NOW CHECK THESE OUT IN ARCEDIT
arcedit
display 9999 3
editc identity1
drawe arc node arc ids node ids
draw
drawe poly
draw
editf poly
sel
list
backc line05bp 2
backe arc
draw
editf arc
sel
list
/* NOTE THAT THERE ARE NO ARC ATTRIBUTES LISTED
/* NOW BUILD THE COVERAGE AS A LINE AND CHECK AGAIN
quit
build identity1 line
tables
sel identity1.aat
it
li
build identity2 line
quit
tables
sel identity2.aat
dir
dir iden*
quit
build identity2 line
tables
sel identity2.aat
li
quit
arcedit
editc identity2
drawe arc node arc ids node ids
draw
editf poly
sel
list
editf arc
sel
list
/* NOW CHANGE EDITCOVERAGE
editc identity1
draw
editf arc
sel
list
/* NOTE THAT YOU HAVE LOST YOUR ATTRIBUTES THAT WERE ATTACHED TO THE
/* LINE COVERAGE AND POLYGON COVERAGE PRIOR TO THE IDENTITY
/* HOWEVER, THE EDIT (HARAH) CODE IS NOW ATTACHED TO THE POLYGON
/* NOTE ALSO THAT THE ARCS OF THE IDENTITY COVER ARE NOT IN THE COVER
/* NOW USE THE IDENTITY COMMAND WITH LINE05A (LINE COVER)
quit
identity
identity line05a edit2 identity3 line 0.001 join
arcedit
editc identity3
drawe arc node arc id node id
draw
editf arc
sel
list
/* NOTE THAT WITH THE LINE OPTION, ALL ATTRIBUTES ARE STILL
/* ATTACHED AS IS THE EDIT (HARAH) CODE.
/* NO ARCS FROM EDIT2 ARE IN THE COVERAGE
QUIT
/* NOW KILL THE COVERS YOU CREATED
kill identity1 all
kill identity2 all
kill identity3 all
/* NOW USE THE INTERSECT COMMAND
intersect
intersect line05ap line05bp intersect1 poly 0.001 join
intersect line05ap edit2 intersect2 poly 0.001 join
intersect
intersect line05a edit2 intersect3 line 0.001 join
/* NOW BUILD THE COVERAGES
build intersect1 line
build intersect2 line
build intersect3 line
/* CHECK THEM IN ARCEDIT
arcedit
editc intersect1
drawe arc node poly arc id node id
draw
/* NOTE THAT ONLY THOSE FEATURES COMMON TO BOTH POLYGON COVERS WERE
/* SAVED
editf arc
sel
list
/* NOTE THAT THE LINE ATTRIBUTES ARE GONE
/* NOTE THAT THE NODE NUMBERS HAVE CHANGED
editc intersect2
draw
/* NOTE THAT ONLY FEATURES OF THE IN COVER ARE INCLUDED
editf arc
sel
list
/* NOTE THAT THE LINE ATTRIBUTES ARE GONE
/* NOTE THAT THE NODE NUMBERS CHANGED - THIS WAS THE POLY OPTION
editc intersect3
draw
editf arc
sel
list
/* NOTE THAT THE LINE ATTRIBUTES ARE STILL THERE AS ARE THE
/* NODE NUMBERS, BUT NO ITEMS FROM EDIT2 WERE PUT IN THE .AAT
list
quit
/* NOW KILL THE COVERS YOU CREATED
kill intersect1 all
kill intersect2 all
kill intersect3 all
/* NOW USE THE UNION COMMAND
/* NOTE THAT UNION CAN ONLY BE USED WITH 2 POLYGON COVERAGES
union
union line05ap line05bp union1 0.001 join
union line05ap edit2 union2 0.001 join
/* NOW BUILD YOUR COVERAGES AS LINES
build union1 line
build union2 line
/* NOW LOOK AT THEM
arcedit
editc union1
drawe arc node arc id node id poly
draw
/* NOTE THAT ALL ARCS FROM BOTH COVERS ARE IN NEW COVER
editf arc
sel
list
/* NOTE THAT THE ARC ATTRIBUTES ARE GONE AND THE NODE
/* NUMBERS ARE DIFFERENT
editf poly
sel
list
/* EDIT UNION2
editc union2
draw
editf arc
sel
list
/* NOTE THAT ARC ATTRIBUTES ARE GONE AND NODE NUMBERS
/* ARE DIFFERENT.
editf poly
sel
list
/* NOTE THAT THE ATTRIBUTES FROM BOTH COVERS ARE INCLUDED
/* IN THE .PAT FILE
quit
/* NOW KILL YOUR COVERAGES
kill union1 all
kill union2 all
/* NOW TRY THE COMMAND APPEND
append
append append1 poly line node
line05ap
line05bp
end
append append2 line node
line05a
line05b
end
append append3 poly line node
line05ap
line05bp
edit2
~
y
y
/* NOTE THAT APPEND REQUIRES THAT THE ATTRIBUTE DEFINITIONS
/* MUST BE EXACTLY THE SAME.
arcedit
editc append1
drawe arc node arc id node id poly
draw
/* NOTE THAT ALL ARCS FROM BOTH COVERS ARE HERE
editf arc
sel
list
/* NOTE THAT NODE NUMBERS ARE THE SAME AND ALL ARC ATTRIBUTES
/* ARE RETAINED.
editc append2
draw
editc append1
draw
editf poly
editf node
sel
list
/* NOTE THAT ALL NODE ATTRIBUTES ARE STILL HERE
editc append2
draw
editf arc
sel
list
editf append3
editc append3
draw
/* NOTE THAT APPEND DID NOT TAKE EDIT2 BECAUSE THE ATTRIBUTES
/* WERE DIFFERENT
quit
build append1 poly
clean
clean append1 append1 0.0 0.001 poly
arcedit
editc append1
drawe arc node arc id node id poly
draw
/* NOTE THAT COMMON ARCS NOW BECAME ONE
quit
kill append1 all
kill append2 all
kill append3 all
--------------------------------------------------
/geowork/training/haii2/e-anno.aml
--------------------------------------------------
/* ADDING AND EDITING ENGLISH ANNOTATION IN ARCEDIT E-ANNO.WAT
/* FIRST CLIP THE STREET CENTERLINE COVERAGE FOR AL-MARJAN
Arc: clip
Usage: CLIP
{POLY | LINE | POINT | NET | LINK | RAW} {fuzzy_tolerance}
arc: clip /geowork/layers/cenlin edit1 cenlin04 line 0.001
/* THEN EDIT YOUR STREET CENTERLINE COVERAGE AND ADD STREET NAMES
arcedit
display 9999 3
editc cenlin04
drawe arc anno
draw
/* THE PROPER SEQUENCE IS TO ISSUE THE ADD COMMAND,
/* TYPE IN YOUR TEST
/* ISSUE THE ANNOPLACE COMMAND
/*
/* THEN CLICK ON TWO OR MORE POINTS ALONG THE
/* STREET ARC STARTING AT THAT LOCATION YOU
/* WANT THE TEXT TO START. THE BOTTOM LEFT
/* CORNER OF THE ENGLISH TEXT WILL START HERE
/* AND CONTINUE ALONG YOUR POINTS AS STRAIGHT
/* LINES OR CURVES.
add
Shareh Al-Suwari
annoplace
/* CHANGE ITS LOCATION MANY TIMES TO GET THE FEEL OF THIS PROCEDURE
annoplace
annoplace
annoplace
/* NOW THE OTHER STREETS AS SHOWN ON YOUR BACKCOVERAGE
add
Shareh Al-Fanar
~
annoplace
add
Shareh Radwa
~
annoplace
add
Shareh Al-Malik Saud
~
annoplace
add
Shareh Al-Malik Kahled
~
annoplace
add
Shareh Al-Amir Abdullah
~
annoplace
add
Shareh Al-Marjan
~
annoplace
add
Shareh Al-Kohr
~
annoplace
/* NOW TRY THE MOVE COMMAND
move
/* DRAW THE BACKCOVERAGE SUBDIV04A AND CHECK THE LOCATION OF YOUR
/* TEXT RELATIVE TO THE LOT LINES
backc subdiv04a 3
backe arc
draw
/* NOW TRY CHANGING THE TEXT SIZE
sel all
drawse
calc $size = 100
calc $size = 10
calc $size = 20
calc $size = 12
calc $size = 10
/* NOW SELECT THE MAJOR OUTSIDE STREETS AND MAKE LARGER
sel many
calc $size = 20
calc $size = 15
/* NOW SAVE THIS AND OPEN SUBDIV04A TO ADD ANNO
save
editc subdiv04a
draw
drawe label
draw
/* NOTE ALL THE LOT ANNOTATION
/* NOW SELECT ONE ANNOTATION AND DO A LIST $ALL
/* NOW DO SOME OF THE FOLLOWING COMMANDS
sel $level eq 1
sel $level eq 2
sel $level eq 3
sel $level eq 4
sel $level eq 5
drawse
sel $level eq 6
sel $level eq 7
sel $level eq 8
drawse
/* NOTE THAT ANNOLEVEL 5 = LOT MEASUREMENTS
/* ANNOLEVEL 8 = LOT AREA AND NUMBER
/* NOW WE WILL ADD LEVEL 1 - PLACE NAMES
editf anno
annolevel 1
add
Girls
School
No. 1
~
backc hscape04
backc hscape04 2
backe arc
draw
add
CATV
Site
Dar Al-Marjan
~
sel /* Dar Al-Marjan
calc $size = 5
calc $size = 6
add
Park
~
annoplace
sel many
list $level,$text,$size
~
res $size ne 6
calc $size = 10
calc $size = 12
list $size
save
quit
--------------------------------------------------
/geowork/training/haii2/reselect.aml
--------------------------------------------------
/* RESELECT.WAT CREATING COVERAGES USING ARC: RESELECT
/* CREATE A BOUNDARY POLYGON COVERAGE FOR HARAH AL-MARJAN
/* FIRST COPY THE HARAH BOUNDARY COVERAGE
copy /geowork/training/haii/harah02 harah02
/* NOW USE THE ARC COMMAND 'RESELECT' TO CREATE A BOUNDARY
/* COVERAGE FOR HARAH AL-MARJAN.
reselect
reselect harah02 harah0204 poly # poly
res harah02-id eq 4
~
n
n
/* NOW VIEW YOUR COVERAGE
arcedit
display 9999 3
editc harah0204
drawe arc label ids
draw
backc harah02 2
backe arc
draw
/* ZOOM OUT FROM CENTER OR RESET THE MAPEXTENT
mape harah02
draw
quit
--------------------------------------------------
/geowork/training/haii2/parcel1.aml
--------------------------------------------------
/* PARCEL1.AML - CLIPS COVERAGES TO BE USED IN CREATING A
/* LANDUSE COVERAGE AND A RESIDENTIAL BUILDINGS
/* COVERAGE AND ADDS A PARCELID ITEM
/* TO THE SUBDIV COVERAGE.
/* CLIPS FIVE COVERAGES
clip /geowork/layers/subdiv harah0204 subdiv0204 line 0.001
clip /geowork/layers/resbldg harah0204 resbldg0204 line 0.001
clip /geowork/layers/primrd harah0204 primrd0204 line 0.001
clip /geowork/layers/secnrd harah0204 secnrd0204 line 0.001
clip /geowork/layers/terrds harah0204 terrds0204 line 0.001
/* NOW ADD AN ITEM CALLED PARCELID TO SUBDIV0204.AAT
additem subdiv0204.aat subdiv0204.aat parcelid 11 11 i
/* NOW CALCULATE THE VALUE OF PARCELID IN TABLES
tables
sel subdiv0204.aat
calc parcelid = ( manteka * 1000000000 ) + ( haii * 10000000 ) ~
+ ( harah * 100000 ) + ( block * 1000 ) + lotnum
&return
--------------------------------------------------
/geowork/training/haii2/project/clip.aml
--------------------------------------------------
/* PILOT WORK EXERCISE 4 CLIPPING COVERAGES
/* CLIP.AML STEP 1 - POLYGON DATABASE DEVELOPMENT
/*
/* USING AN INTERACTIVE MENU, THIS AML ALLOWS THE USER TO SELECT
/* A HARAH BOUNDARY COVERAGE AND THEN CLIPS ROADS, BUILDINGS AND
/* SUBDIVISION LINES.
/* THIS IS THE FIRST STEP IN CREATING POLYGON COVERAGES FOR
/* SUBDIVISIONS AND BUILDINGS.
/*
/*
/* COVERS BEING CLIPPED ARE LINE COVERAGES CONVERTED FROM THE
/* THE SYNERCOM SYSTEM. THE CLIP COVERAGE WAS CREATED FROM
/* THE CENLIN COVERAGE IN /GEOWORK/LAYERS AND MODIFIED BY
/* ON-SCREEN DIGITIZING TO CREATE HARAH BOUNDARIES. FOR
/* HAII AL-NAWA, THESE RESIDE IN A COVERAGE CALLED HAII02
/* IN /GEOWORK/TRAINING/HAII.
/*
/* THE FOLLOWING COVERAGES ARE CLIPPED. THEIR NAMES ARE CONTAINED
/* IN FILE CLIP.DAT
/*
/* /geowork/layers/subdiv
/* /geowork/layers/resbldg
/* /geowork/layers/primrd
/* /geowork/layers/secnrd
/* /geowork/layers/terrds
/* /geowork/layers/facbldg
/* /geowork/layers/impbld
/* /geowork/layers/commerc
/* /geowork/layers/medfac
/* /geowork/layers/hscape
/*
/* THE FOLLOWIN SECTION SETS THE PATHNAMES
&sv path = [pathname test]
&sv path3 = [before %path% test]
&sv .path = /geowork/layers/
&sv .path1 = /geowork/training/haii/
/* POPUP MENU LETS USER SELECT HARAH BOUNDARY COVERAGE FOR CLIPPING
&terminal 9999
&s harah = [getcover %.path1%harah* -poly 'CHOOSE A HARAH COVERAGE']
/* EXTRACTS THE NUMBER OF THE HARAH FROM THE COVERAGE NAME
&s num = [after %harah% harah]
/* READS THE FILE CONTAINING THE COVERAGE NAMES
&s file := %.path1%clip.dat
&sv fg = fgdl1
&s loc := [open %file% openstatus -r]
&if %openstatus% <> 0 &then
&return &warning unable to open file.dat
&s I := [unquote [read %loc% readstatus]]
&sv cover = %I%
&if %readstatus% <> 0 &then
&return &warning unable to open file.dat
/* LOOP FOR PROCESSING MULTIPLE COVERAGES
&do &until [null %I%]
&type %I%
/* DELETES OLD COVERAGES
&if [exists %cover%%num% -directory] &then
&do
kill %cover%%num% all
&type Deleted 'old' version of %cover%%num% !!!
&end
/* CLIPS THE COVERAGES BY THE HARAH BOUNDARIES
clip %.path%%cover% %harah% %path3%%cover%%num% line 0.001
&s I := [unquote [read %loc% readstatus]]
&sv cover = %I%
&END
/* NOW ADD AN ITEM CALLED PARCELID TO THE SUBDIV .AAT FILE
additem subdiv%num%.aat subdiv%num%.aat parcelid 11 11 i
/* NOW OPEN TABLES AND CALCULATE VALUES FOR PARCELID IN SUBDIV .AAT FILE
tables
sel subdiv%num%.aat
calc parcelid = ( manteka * 1000000000 ) + ( haii * 10000000 )~
+ ( harah * 100000 ) + ( block * 1000 ) + lotnum
/* THE PARCELID SHOULD NOW BE AN ELEVEN DIGIT NUMBER
/*
/* manteka,haii,harah,block,lotnum
/* 2 2 2 2 3
--------------------------------------------------
/geowork/training/haii2/project/convertcovers.aml
--------------------------------------------------
/* ----------------------------------------------------------
/* CONVERTCOVERS.AML - Adds items, drops items and alters items
/* to make primrd, secnrd and terrds coverages
/* with item definitions consistent with the
/* subdiv coverage AND the Al-Marjan clip cover.
/* This program must be run prior to appending.
/* STEP 2 - FOR CREATING SUBDIVISION AND BUILDING POLYGON COVERS
/* -------------------------------------------------------------
/* THE FOLLOWIN SECTION SETS THE PATHNAMES
&sv path = [pathname test]
&sv path3 = [before %path% test]
&sv .path = /geowork/layers/
&sv .path1 = /geowork/training/haii/
/* POPUP MENU LETS USER SELECT HARAH BOUNDARY COVERAGE FOR CLIPPING
&terminal 9999
&s harah = [getcover %.path1%harah* -poly 'CHOOSE A HARAH COVERAGE']
/* EXTRACTS THE NUMBER OF THE HARAH FROM THE COVERAGE NAME
&s num = [after %harah% harah]
&goto section2
/* -------------------------------------------------------------
/* THIS SECTION PROCESSES THE ROADS COVERAGES
/* --------------------------------------------------------------
/* READS INPUT TEXT FILE FOR DEFINING MULTIPLE COVERAGES
&s file := %.path1%cover.dat
&sv fg = fgdl1
&s loc := [open %file% openstatus -r]
&if %openstatus% <> 0 &then
&return &warning unable to open file.dat
&s I := [unquote [read %loc% readstatus]]
&sv cover = %I%
&if %readstatus% <> 0 &then
&return &warning unable to open file.dat
/* LOOP FOR PROCESSING MULTIPLE COVERAGES
&do &until [null %I%]
&type %I%
/* DELETES OLD COVERAGES
&if [exists %cover%%num%c -directory] &then
&do
kill %cover%%num%c all
&type Deleted 'old' version of %cover%%num%c !!!
&end
/* THIS SECTION COPIES THE COVERAGE,
/* THEN DROPS, ADDS AND ALTERS ITEM DEFINITIONS.
copy %cover%%num% %cover%%num%c
tables
dropitem %cover%%num%c.aat seg cod nam stat cntnr cntor const lanes base
dropitem %cover%%num%c.aat wear lstpvd cond slope xslo res data line etype
dropitem %cover%%num%c.aat station station2
quit
&if %I% eq primrd &then
dropitem %cover%%num%c.aat %cover%%num%c.aat med
tables
additem %cover%%num%c.aat mix 2 7 b # ref
additem %cover%%num%c.aat manteka 2 7 b # mix
additem %cover%%num%c.aat haii 2 7 b # manteka
additem %cover%%num%c.aat harah 2 7 b # haii
additem %cover%%num%c.aat block 2 7 b # harah
additem %cover%%num%c.aat lotnum 2 7 b # block
additem %cover%%num%c.aat lotuse 20 20 c # lotnum
additem %cover%%num%c.aat nrp 10 10 c # lotuse
additem %cover%%num%c.aat nrp2 10 10 c # nrp
additem %cover%%num%c.aat az 14 14 c
additem %cover%%num%c.aat dist 8 15 f 3
additem %cover%%num%c.aat area_ 8 15 f 2
additem %cover%%num%c.aat curve 2 2 c
additem %cover%%num%c.aat cvnum 8 8 c
additem %cover%%num%c.aat delta_ 12 12 c
additem %cover%%num%c.aat radius_ 8 15 f 3
additem %cover%%num%c.aat tangent_ 8 15 f 3
additem %cover%%num%c.aat length_ 8 15 f 3
additem %cover%%num%c.aat cce 8 15 f 4
additem %cover%%num%c.aat ccn 8 15 f 4
additem %cover%%num%c.aat data 30 30 c
additem %cover%%num%c.aat dummy 2 2 c
additem %cover%%num%c.aat res 28 28 c
additem %cover%%num%c.aat line 3 3 i
additem %cover%%num%c.aat etype 1 1 c
additem %cover%%num%c.aat parcelid 11 11 i
quit
tables
sel %cover%%num%c.aat
alter fnode#
fnode#
5
b
~
alter tnode#
tnode#
5
b
~
alter lpoly#
lpoly#
5
b
~
alter rpoly#
rpoly#
5
b
~
alter length
length
18
f
5
~
alter %cover%%num%c#
%cover%%num%c#
5
b
~
alter %cover%%num%c-id
%cover%%num%c-id
5
b
~
alter e
e
~
~
4
~
alter n
n
~
~
4
~
alter e2
e2
~
~
4
~
alter n2
n2
~
~
4
~
quit
&s I := [unquote [read %loc% readstatus]]
&sv cover = %I%
&type 'finish one'
&END
/* -----------------------------------------------------------------
/* THIS SECTION PROCESSES THE CLIP COVERAGE
/* -----------------------------------------------------------------
&label section2
/* DELETES OLD COVERAGES
&sv cover = harah
&if [exists %cover%%num% -directory] &then
&do
kill %cover%%num% all
&type Deleted 'old' version of %cover%%num% !!!
&end
copy %harah% %cover%%num%c
build %cover%%num%c line
tables
additem %cover%%num%c.aat geo 10 10 c
additem %cover%%num%c.aat ref 10 10 c
additem %cover%%num%c.aat mix 2 7 b # ref
additem %cover%%num%c.aat manteka 2 7 b # mix
additem %cover%%num%c.aat haii 2 7 b # manteka
additem %cover%%num%c.aat harah 2 7 b # haii
additem %cover%%num%c.aat block 2 7 b # harah
additem %cover%%num%c.aat lotnum 2 7 b # block
additem %cover%%num%c.aat lotuse 20 20 c # lotnum
additem %cover%%num%c.aat nrp 10 10 c # lotuse
additem %cover%%num%c.aat nrp2 10 10 c # nrp
additem %cover%%num%c.aat e 8 15 f 4
additem %cover%%num%c.aat n 8 15 f 4
additem %cover%%num%c.aat e2 8 15 f 4
additem %cover%%num%c.aat n2 8 15 f 4
additem %cover%%num%c.aat az 14 14 c
additem %cover%%num%c.aat dist 8 15 f 3
additem %cover%%num%c.aat area_ 8 15 f 2
additem %cover%%num%c.aat curve 2 2 c
additem %cover%%num%c.aat cvnum 8 8 c
additem %cover%%num%c.aat delta_ 12 12 c
additem %cover%%num%c.aat radius_ 8 15 f 3
additem %cover%%num%c.aat tangent_ 8 15 f 3
additem %cover%%num%c.aat length_ 8 15 f 3
additem %cover%%num%c.aat cce 8 15 f 4
additem %cover%%num%c.aat ccn 8 15 f 4
additem %cover%%num%c.aat data 30 30 c
additem %cover%%num%c.aat dummy 2 2 c
additem %cover%%num%c.aat res 28 28 c
additem %cover%%num%c.aat line 3 3 i
additem %cover%%num%c.aat etype 1 1 c
additem %cover%%num%c.aat parcelid 11 11 i
dropitem %cover%%num%c.pat harah
quit
/* ------------------------------------------------------------
/* THIS SECTION PROCESSES THE SUBDIVISION COVERAGE
/* ------------------------------------------------------------
&s file := %.path1%sub.dat
&sv fg = fgdl1
&s loc := [open %file% openstatus -r]
&if %openstatus% <> 0 &then
&return &warning unable to open file.dat
&s I := [unquote [read %loc% readstatus]]
&sv cover := %I%
&if %readstatus% <> 0 &then
&return &warning unable to open file.dat
&do &until [null %I%]
&type %I%
/* DELETES OLD COVERAGES
&if [exists %cover%%num%c -directory] &then
&do
kill %cover%%num%c all
&type Deleted 'old' version of %cover%%num%c !!!
&end
copy %cover%%num% %cover%%num%c
tables
sel %cover%%num%c.aat
alter fnode#
fnode#
5
b
~
alter tnode#
tnode#
5
b
~
alter lpoly#
lpoly#
5
b
~
alter rpoly#
rpoly#
5
b
~
alter length
length
18
f
5
~
alter %cover%%num%c#
%cover%%num%c#
5
b
~
alter %cover%%num%c-id
%cover%%num%c-id
5
b
~
quit
&s I := [unquote [read %loc% readstatus]]
&sv cover = %I%
&END
&RETURN
--------------------------------------------------
/geowork/training/haii2/editpoly.aml
--------------------------------------------------
/* EDITPOLY.WAT CLEAN AND CORRECT NODE ERRORS IN
/* POLYGON COVERAGES
/* NOW CLEAN THE FIVE COVERAGES YOU CLIPPED IN EXERCISE 4
/* AS POLYGONS
clean subdiv0204 sub0204p 0.0 0.001 poly
clean resbldg0204 res0204p 0.0 0.001 poly
clean primrd0204 prim0204p 0.0 0.001 poly
clean secnrd0204 sec0204p 0.0 0.001 poly
clean terrds0204 ter0204p 0.0 0.001 poly
/* NOW CHECK SUBDIV04P AND RESBLDG04P FOR NODE ERRORS AND
/* FIX THEM
arcedit
display 9999 3
/* FIRST CHECK SUB0204P
editc sub0204p
drawe arc node dangle
draw
/* GOOD COVERAGE, NO ERRORS, AREN'T YOU HAPPY?
/* NOW CHECK RES0204P
editc res0204p
draw
/* NOTE ALL THE NODE ERRORS - THESE ARE COMBINATIONS OF
/* UNDERSHOOTS AND OVERSHOOTS. FIRST, BEFORE TRYING TO
/* FIX ALL OF THESE MANUALLY, TRY A NEW CLEAN WITH GREATER
/* TOLERANCES.
quit
clean resbldg0204 res0204p-1 2.0 0.5 poly
/* NOW CHECK THIS NEW COVERAGE
arcedit
editc resbldg04p-1
drawe arc node dangle
draw
/* NOW, TO BE SURE YOU DIDN'T LOSE ANYTHING, DRAW
/* RES0204P AS A BACKCOVER
backc res0204p 2
backe arc
draw
quit
/* NOW DELETE AND RENAME YOUR GOOD COVERAGE
kill res0204p all
rename res0204p-1 res0204p
/* NOW CHECK TER0204P - NOTE ALL THE DANGLES
/* FIND 2 DANGLES THAT SHOULD CLOSE WITH THE GREATEST DISTANCE BETWEEN
/* USING THE DISTANCE COMMAND.
/* I FOUND ONE WITH 3.5 METERS
/* NOW RECLEAN TERRDS0204C WITH 2 DIFFERENT FUZZY TOLLERANCES
clean terrds0204 ter0204p-1 0.0 3.5 poly
clean terrds0204 ter0204p-2 0.0 0.5 poly
/* NOW DRAW TER0204P-1 WITH TER0204P AS A BACKGROUND COVER
/* NOTE ALL THE CHANGES! VERY BAD!
arcedit
editc ter0204p-1
drawe arc node dangle
backc ter0204p 2
backe arc
draw
/* NOW CHECK TER0204P-2 - THIS ONE IS BETTER
editc ter0204p-2
draw
/* LESSON - BE VERY CAREFUL WITH CLEAN!
/* NOW DELETE TER0204P AND TER0204P-1 AND RENAME TER0204P-2
kill ter0204p all
kill ter0204p-1 all
rename ter0204p-2 ter0204p
/* NOW KILL THE FOLLOWING COVERS TO CONSERVE SPACE
kill subdiv0204 all
kill primrd0204 all
kill secnrd0204 all
kill terrds0204 all
kill resbldg0204 all
--------------------------------------------------
/geowork/training/haii2/project/append.aml
--------------------------------------------------
/* APPENDING FIVE COVERAGES TO CREATE ONE SUBDIVISION COVER
/* AND FIXING NODE ERRORS IN ARCEDIT
/* APPEND.WAT
/* STEP 3 - FOR CREATING SUBDIVISION COVERAGE
/* FIRST, COPY SUB0204P TO SUB0204A
copy sub0204p sub0204a
/* NOW USE SELECT AND PUT IN ARCEDIT TO ADD THE ROAD
/* COVERAGES AND THE HARAH BOUNDARY.
arcedit
display 9999 3
editc prim0204p
drawe arc node dangle
draw
editf arc
sel all
drawse
put sub0204a
y
editc sec0204p
draw
editf arc
sel all
drawse
put sub0204a
y
editc ter0204p
draw
editf arc
sel all
drawse
put sub0204a
y
editc harah0204
draw
editf arc
sel all
drawse
put sub0204a
y
/* NOW QUIT AND BUILD OR CLEAN SUB0204A
quit
build sub0204a poly
/* NOTE THAT YOU WILL NEED TO USE CLEAN
clean sub0204a sub0204a 0.0 0.001 poly
/* NOW CHECK YOUR COVERAGE IN ARCEDIT TO SEE IF ALL ARC
/* ATTRIBUTES ARE STILL THERE
arcedit
editc sub0204a
drawe arc anno
draw
/* ZOOM IN AND LOOK AT ANNOTATION
/* THEN SELECT AND CHECK ATTRIBUTES OF ARCS
editf arc
sel
list
/* NOW CHECK FOR AND FIX ALL NODE ERRORS
drawe node dangle
draw
/* USING A COMBINATION OF THE FOLLOWING COMMANDS, FIX THE
/* COVERAGE SO THERE ARE NO MORE DANGLES AND SO THAT EVERY
/* POLYGON CLOSES:
/*
/* USE: NODESNAP
/* EDITF ARC, SEL, EXTEND
/* EDITF NODE, MOVE
/* EDITF ARC, ADD
/* EDITF ARC, DELETE
/* NOW SAVE YOUR COVERAGE AND REBUILD AS A POLYGON
save
quit
build sub0204a poly
--------------------------------------------------
/geowork/training/haii2/project/arclabel.aml
--------------------------------------------------
/* USING ARCLABEL, CREATELABELS AND IDEDIT TO CREATE LABELS
/* FOR ALL POLYGONS CONTAINING PARCELID AS THE ID
/* STEP 5 - FOR CREATING SUBDIVISION POLYGON COVERAGE
arclabel
/* FIRST COPY SUB0204A TO SUB0204A-1
copy sub0204a sub0204a-1
/* NOW USE ARCLABEL
arclabel sub0204a-1 sub0204a-1 right 1 parcelid
build sub0204a-1 poly
/* CHECK YOUR WORK IN ARCEDIT
arcedit
display 9999 3
editc sub0204a-1
drawe arc label
draw
quit
/* NOW USE CREATELABELS AND IDEDIT
createlabels
createlabels sub0204a-1
idedit
idedit sub0204a-1 poly
/* CHECK YOUR WORK IN ARCEDIT
arcedit
editc sub0204a-1
drawe arc label
draw
editf label
sel sub0204a-1-id gt 0
drawse
sel sub0204a-1-id gt 1000000000
drawse
sel sub0204a-1-id lt 1000000000 and sub0204a-1-id gt 0
drawse
list
/* NOTE THAT YOU HAVE ONE LOT WHICH HAS A BAD LOT NUMBER
/* FIRST SELECT THE LOT'S ARCS AND SEE WHAT THE PARCELID
/* FOR EACH IS. CAN YOU RECODE TO LABEL USING THESE?
/* IF NOT, LOOK IT UP IN THE LCDS
/* AND CHANGE IT.
/* MAKE THIS CHANGE, THEN SAVE YOUR COVERAGE.
save
quit
/* NOW DELETE SUB0204A AND RENAME SUB0204A-1
kill sub0204a all
rename sub0204a-1 sub0204a
/* NOW PERFORM THE SAME PROCEDURES FOR RES0204P
copy res0204p res0204p-1
arclabel
arclabel res0204p-1 res0204p-1 right 1 bnum
build res0204p-1 poly
arcedit
editc res0204p-1
drawe arc label
draw
quit
createlabels
createlabels res0204p-1
idedit
idedit res0204p-1 poly
arcedit
editc res0204p-1
drawe arc label
draw
editf label
sel res0204p-1-id gt 0
drawse
/* NOTE THAT SOME BNUM VALUES WERE O
/* CHECK SUM OUT BY SELECTING THE ARCS
EDITF ARC
sel many
list bnum
editf label
sel
list
calc res0204p-1-id = 4236
editf arc
sel poly
list bnum
editf label
calc res0204p-1-id = 4235
/* REMEMBER YOU WILL HAVE TO MAKE SUCH QUALITY CONTROL CHECKS
/* AND CLEAN UP THE ERRORS
save
/* DELETE RES0204P AND RENAME RES0204P-1
kill res0204p all
rename res0204p-1 res0204p
quit
--------------------------------------------------
/geowork/training/haii2/project/joinitem.aml
--------------------------------------------------
/* USING JOINITEM TO MERGE INFO FILES JOINITEM.WAT
/* JOINITEM YOUR VIOLATIONS INFO FILE WITH THE SUBDIVISION
/* COVERAGE .PAT
/* FIRST, COPY THE VIOLATIONS DATA FILE
copyinfo /geowork/training/haii/info!arc!violations violations
/* NOW ADDITEM PARCELID TO SUB0204A.PAT AND CALCULATE IT
/* EQUAL TO SUB0204A-ID
additem sub0204a.pat sub0204a.pat parcelid 11 11 i
tables
sel sub0204a.pat
it
calc parcelid = sub0204a-id
li
li parcelid
res parcelid gt 0
asel
calc sub0204a-id = sub0204a# - 1
quit
/* DO AN IDEDIT
idedit sub0204a poly
/* NOW DO THE JOINITEM, CHECK THE .PAT FILE IN TABLES AND SEE
/* HOW THE TWO FILES WERE MERGED.
copy sub0204a violations
joinitem violations.pat violations violations.pat parcelid parcelid
/* NOW LOOK AT THE .PAT FILE
tables
sel violations.pat
it
res exist gt 0
li
quit
--------------------------------------------------
/geowork/training/haii2/project/relate.aml
--------------------------------------------------
/* CREATING RELATE FILES FOR USE IN ARC/INFO
/* RELATE.WAT
relate
/* USE RELATE ADD TO CREATE A RELATE FILE LINKING
/* YOUR VIOLATIONS INFO FILE TO SUB0204A
relate add
violations
/geowork/training/haii/project/info!arc!violations
info
parcelid
parcelid
linear
rw
~
/* NOW USE RELATE SAVE TO SAVE THE RELATE FILE AS
/* VIOLATIONS.REL
relate save violations.rel
/* NOW CHECK YOUR FILE IN ARCEDIT
arcedit
display 9999 3
editc sub0204a
drawe arc label
draw
/* USE RELATE RESTORE TO 'RESTORE' YOUR RELATE FILE
relate restore violations.rel
relate list
editf label
sel all
res violations//exist eq 1
drawse
/* NOW CHECK OUT HOW YOU USE DRAWE TO FILL POLYGONS
/* IN DIFFERENT COLORS
drawe
drawe polygon fill
editf polygon
sel violations//exist eq 1
drawse
setdrawsymbol 2
res violations//violation cn 'ROOM'
setdrawsymbol 3
sel violations//violation cn 'FENCE'
setdrawsymbol 4
quit
--------------------------------------------------
/geowork/training/haii2/project/character.aml
--------------------------------------------------
/* SETTING LINE, MARKER, SHADE AND TEXT SYMBOL CHARACTERISTICS
/* USE YOUR COVERAGE 'SUB0204A' AND EXPERIMENT
arcplot
display 9999 3
mape sub0204a
/* SET YOUR LINESET TO COLOR.LIN (DEFAULT IS PLOTTER.LIN)
/* EXPERIMENT WITH VARIOUS LINE SYMBOLS
lineset color.lin
/* USE THE AML [GETSYMBOL -LINE] COMMAND TO PICK A SYMBOL
&terminal 9999
linesymbol [getsymbol -line]
arcs sub0204a
/* NOW CHANGE THE LINE COLOR
linecolor yellow
arcs sub0204a
/* NOW CHANGE THE LINE SIZE
linesize .05
arcs sub0204a
/* NOW CLEAR THE SCREEN AND CHANGE THE LINECOLOR AND SIZE
clear
linesize 0
linecolor white
arcs sub0204a
/* NOW CHECK OUT THE MARKER SYMBOLS
markerset plotter.mrk
markersymbol [getsymbol -marker]
labels sub0204a
clear
arcs sub0204a
markercolor 2
labels sub0204a noids
markercolor blue
labels sub0204a noids
markersize .1
markercolor yellow
labels sub0204a noids
markersize 1.0
labels sub0204a noids
/* NOW TRY MARKEROFFSET AND MARKERANGLE
clear
arcs sub0204a
markersize 0
markersymbol [getsymbol -marker]
/* HINT! PICK A MARKER THAT WILL LOOK DIFFERENT WHEN YOU ROTATE IT
labels sub0204a noids
markerangle
markerangle 90
labels sub0204a noids
markeroffset
markeroffset 2 2
markercolor red
labels sub0204a noids
/* NOTE THAT THE OFFSET WAS IN INCHES, NOT IN MAP UNITS
/* NOW CHECK OUT SOME TEXT SYMBOL CHARACTERISTICS
clear
arcs sub0204a
textsymbol [getsymbol -text]
/* NOW ZOOM INTO ABOUT 1/4 OF YOUR MAP
mape *
clear
arcs sub0204a
labeltext
labeltext sub0204a sub0204a-id
/* NOW MAKE THEM SMALLER AND CHANGE THE COLOR
clear
arcs sub0204a
textinfo
textsize .05
textcolor red
labeltext sub0204a sub0204a-id
textscale
textscale 1.5
textcolor 3
labeltext sub0204a sub0204a-id
textangle 180
textcolor 2
labeltext sub0204a sub0204a-id
quit
--------------------------------------------------
/geowork/training/haii2/project/symboldump.aml
--------------------------------------------------
/* USING SYMBOLDUMP TO CHECK SYMBOLSET FILES
/* SYMBOLDUMP.WAT
arcplot
display 9999 3
lineset plotter.lin
symboldump line screen 1 100
lineset color.lin
symboldump line screen 1 100
linedelete all
lineset bw.lin
symboldump line screen 1 100
linedelete all
/* NOW CHECK OUT THE MARKER SETS
markerset plotter.mrk
symboldump marker screen 1 100
markerdelete all
markerset color.mrk
symboldump marker screen 1 100
markerdelete all
/* CHECK OUT THE SHADE SETS
shadeset plotter.shd
symboldump shade screen 1 100
shadedelete all
shadeset color.shd
symboldump shade screen 1 100
shadedelete all
shadeset rainbow.shd
symboldump shade screen
shadedelete all
shadeset /geobase/ptone.shd
symboldump shade screen
/* CHECK OUT THE TEXTSETS
textset plotter.txt
symboldump text screen
textdelete all
textset color.txt
symboldump text screen
textdelete all
textset font.txt
symboldump text screen
quit
--------------------------------------------------
/geowork/training/haii2/project/features.aml
--------------------------------------------------
/* SYMBOLIZING GEOGRAPHIC FEATURES
/* USING VARIOUS DRAWING, LABELING AND SHADING COMMANDS
/* TO SYMBOLIZE ARCS, POINTS, POLYGONS AND NODES IN
/* ARCPLOT.
arcplot
display 9999 3
mape sub0204a
/* ARC FEATURES
textset plotter.txt
lineset plotter.lin
linecolor white
arcs sub0204a
clear
arclines
arclines /* ARCLINES COMMAND
arclines sub0204a 2 /* using symbol number
arcmarkers
arcmarkers /* ARCMARKERS COMMAND
markerset plotter.mrk
res sub0204a line length gt 20
arcmarkers sub0204a 10 # middle
clear
arclines sub0204a 1
asel sub0204a line
clear
arclines sub0204a 1
textset plotter.txt
arctext /* ARCTEXT COMMAND
/* ZOOM INTO 1/4 OF MAP
mape *
clear
arclines sub0204a 1
arctext
textcolor red
textsize .05
res sub0204a line harah eq 4
arctext sub0204a sub0204a-id # line 0.01 cc
clear
arclines sub0204a 1
arcspot
markercolor green
arcspot circle sub0204a 2 3
clear
arclines sub0204a 1
arcspot circle sub0204a .02 3
res sub0204a line length gt 30
arcspot circle sub0204a .08 2
clear
/* SYMBOLIZING POINTS
arclines sub0204a 1
asel sub0204a line
arclines sub0204a 1
markersymbol 3
markersize .05
points
points sub0204a noids
markersymbol 6
markercolor red
markersize .08
points sub0204a noids
clear
arclines sub0204a 1
pointmarkers
pointmarkers sub0204a 10
pointmarkers sub0204a 2
textcolor white
textsize .03
pointtext
pointtext sub0204a sub0204a-id # cc
textsize .07
pointtext sub0204a sub0204a-id # cc
clear
arclines sub0204a
clear
arclines sub0204a 1
res sub0204a poly area gt 300
pointspot
pointspot circle sub0204a .05 3
/* SYMBOLIZING POLYGONS
linecolor yellow
polygons
polygons sub0204a
asel sub0204a poly
polygons sub0204a
res sub0204a poly area gt 400
linecolor red
polygons sub0204a
textcolor green
polygontext
textsize .05
polygontext sub0204a sub0204a-id
textsize .09
labeltext
labeltext sub0204a sub0204a-id # ll
shadesymbol 3
shade
polygonsh
asel sub0204a poly
res sub0204a poly area lt 400
res sub0204a poly area lt 300
polygonsh
polygonsh sub0204a 3
textcolor red
textsize .1
polygontext
polygontext sub0204a sub0204a-id
linecolor white
arcs sub0204a
clear
/* SYMBOLIZING NODES
arclines sub0204a 1
markersymbol 2
markersize .3
nodes
nodes sub0204a noids
quit
--------------------------------------------------
/geowork/training/haii2/query1.aml
--------------------------------------------------
/* USING QUERY TOOLS IN ARC AND ARCPLOT
/* QUERY1.WAT
items
items sub0204a.pat
items sub0204a.aat /* display items for .aat
list
list sub0204a.pat /* all items in .pat
list sub0204a.pat # parcelid /* list only parcelid in .pat
/* NOW USE THESE SAME COMMANDS IN ARCPLOT
arcplot
display 9999
items
items sub0204a poly /* list items in .pat
items violations info /* lists items in info file
list
list sub0204a poly # parcelid /* shows parcelids in .pat
list violations info /* shows all records in violations
/* USING RESELECT IN ARCPLOT
res
asel sub0204a poly
res sub0204a poly parcelid gt 0
res sub0204a poly area gt 900
asel sub0204a poly area gt 500 and area lt 700
res sub0204a poly area gt 500 and area lt 700
nsel sub0204a poly
/*NOTE THE USES OF RES, ASEL AND NSEL
/* NOW USE THE RES AND ADJACENT COMMANDS
mape sub0204a
arcs sub0204a
res
res sub0204a poly one *
polygonsh sub0204a 2
aselect sub0204a poly adjacent
linecolor 3
polygons sub0204a
polygonsh sub0204a 3
/* NOW GET RID OF THE BIG POLYGON
list
list sub0204a poly # area
res sub0204a poly area lt 1000
polygonsh sub0204a 2
linecolor white
arcs sub0204a
/* NOW USE OTHER RESELECT OPTIONS
clear
asel sub0204a poly
arcs sub0204a
res sub0204a poly polygon *
polygonsh sub0204a 7
polygonsh sub0204a 2
/* NOTE THAT THIS GIVES YOU ALL LOTS AT LEAST PARTIALLY
/* IN THE AREA YOU SELECTED
/* NOW USE THE CIRCLE OPTION
asel sub0204a poly
clear
arcs sub0204a
res sub0204a poly circle * 1000
res sub0204a poly circle * 100
polygonsh sub0204a 2
/* NOW AGAIN IT GAVE YOU ALL PARCELS EVEN PARTIALLY IN
/* THE CIRCLE
res
/* NOW USE THE WITHIN OPTION
asel sub0204a poly
clear
arcs sub0204a
res sub0204a poly circle * 100 within
polygonsh sub0204a 2
/* NOTE THAT ONLY THE PARCELS TOTALLY WITHIN THE CIRCLE
/* ARE INCLUDED
/* NOW USE CLEARSELECT
clearselect
polygonsh sub0204a 1
/* NOTE THEY WERE ALL SELECTED BY CLEARSELECT
clear
arcs sub0204a
/* NOW USE IDENTIFY
identify
identify sub0204a poly *
~
/* NOTE THAT IDENTIFY WILL GIVE YOU ALL THE ATTRIBUTES
/* OF A POLYGON OR A LINE.
/* NOW USE STATISTICS ON THE COVERAGE
/* /GEOWORK/TRAINING/HAII/SUBDIV04A
/* TO CREATE SUMMARY STATISTICS BY ZONING CLASS
statistics
list
list /geowork/training/haii/subdiv04a poly
statistics
statistics /geowork/training/haii/subdiv04a poly landuse landstat
sum area
mean area
max area
min area
std area
end
/* NOW LIST YOUR INFO FILE LANDSTAT
list
list landstat info
/* NOW USE FREQUENCY TO TELL HOW MANY LANDUSE
/* CATEGORIES YOU HAVE AND HOW MANY OCCURANCES
/* ARE IN EACH CATEGORY
/* NOTE THAT THIS COMMAND IS AN 'ARC' COMMAND
quit
frequency
/* FIRST COPY THE INFO FILE
copyinfo /geowork/training/haii/info!arc!subdiv04a.pat lu04a
frequency lu04a lu04a.frq lu
landuse
end
~
y
y
/* NOW CHECK THE INFO FILE LU04A.FRQ IN TABLES
tables
sel lu04a.frq
li
/* NOTE THAT IT HAS SUMMED THE FREQUENCY OF OCCURANCE OF
/* ALL LANDUSE CODES
erase lu04a.frq
y
sel lu04a
erase lu04a
y
--------------------------------------------------
/geowork/training/haii2/setbacks2.aml
--------------------------------------------------
/* USING A BUFFER TABLE TO CREATE SETBACKS
reselect
reselect sub0204a p26 line # line
res parcelid eq 1020400026
~
n
n
/* NOW ADD AN ITEM TO THE .AAT CALLED SIDE
additem p26.aat p26.aat side 1 1 c
/* NOW GO INTO ARCEDIT AND SET SIDE EQ TO F, S, OR B
arcedit
display 9999
editc p26
drawe arc
draw
/* IF YOUR LINE COVERAGE HAS A MISSING ARC, SET THE EDITF TO
/* SUB0204A, SELECT THE MISSING ARC, AND PUT INTO P26.
editc sub0204a
draw
editf arc
sel
put p26
y
/* NOW SET THE EDITC BACK TO P26 AND CODE YOUR LINES
editc p26
draw
editf arc
sel
calc side = 'f'
sel many
calc side = 's'
sel
calc side = 'b'
sel all
list side
quit
y
y
build p26 line
/* NOW CREATE A BUFFER TABLE IN TABLES
tables
define setback.lut
side
1
1
c
dist
4
5
b
~
add
f
4
s
3
b
6
~
quit
/* NOW DO YOUR BUFFER
buffer
buffer p26 buf26 side setback.lut # 0.001 line
/* NOW CHECK IT OUT IN ARCEDIT
arcedit
editc buf26
drawe arc
backc p26 3
backe arc
draw
quit
kill p26 all
kill buf26 all
--------------------------------------------------
/geowork/training/haii2/violmap2.aml
--------------------------------------------------
/********************************************************
/* VIOLMAP2.AML - AML creates violation map for Al-Marjan
/* By: Michael J. Breedlove
/*********************************************************
/* ADDS A REDEFINED ITEM CALLED LOTNUM FOR PLOTTING
tables
sel sub0204a.pat
redefine
33
lotnum
3
3
i
~
q
ap
display 9999 3
/********************************************************
/* KILLS OLD MAP COMP
/********************************************************
&if [exists viol.map -directory] &then
&do
killmap viol.map
&type A copy of the file just been killed
&end
/*********************************************************
/* CREATES THE FIRST MAP COMP AND SETS MAP PARAMETERS
/********************************************************
map viol.map
mape sub0204a
pagesize 30 24
mapunits meters
maplimits 1 1 23 23
mapposition cen cen
clipmapextent off
&sv scale = 2000
mapscale %scale%
/*********************************************************
/* CUSTOM MAP FEATURES
/*********************************************************
/* BACKGROUND ELEMENTS
lineset background.lin
/* linesymbol 149 /* dotted pattern - output 5x larger
linesymbol 1
linecolor 'dark slate gray'
&sv .path = /geowork/layers/
res %.path%subdiv line overlap edit1 poly # within
nsel %.path%subdiv line
arcs %.path%subdiv
res %.path%primrd line overlap edit1 poly # within
nsel %.path%primrd line
arcs %.path%primrd
res %.path%secnrd line overlap edit1 poly # within
nsel %.path%secnrd line
arcs %.path%secnrd
res %.path%terrds line overlap edit1 poly # within
nsel %.path%terrds line
arcs %.path%terrds
/********************************************************
/* MAIN MAP ELEMENTS FOR SELECTED AREA
/********************************************************
/* DRAWS PARCEL OUTLINES AND HIGHLIGHTS VIOLATION PARCELS
lineset plotter.lin
linesymbol 1
relate restore violations.rel
res sub0204a poly violations//exist eq 1
nsel sub0204a poly
linesize .013
polygons sub0204a
asel sub0204a poly
res sub0204a poly violations//exist eq 1
nsel sub0204a poly
res sub0204a poly lotnum gt 0
res sub0204a poly area gt 100
linesize .0175
linesize 0
/* SELECTS AND SHADES VIOLATION PARCELS
relate restore violations.rel
asel sub0204a poly
res sub0204a poly violations//exist eq 1
res sub0204a poly violations//violation nc 'ROOM'
res sub0204a poly violations//violation nc 'FENCE'
shadeset violations.shd
lineset plotter.lin
linesymbol 1
linesize .02
polygonsh sub0204a 51
linecolor 3
polygons sub0204a
asel sub0204a poly
res sub0204a poly violations//violation cn 'ROOM'
polygonsh sub0204a 52
linecolor 4
polygons sub0204a
asel sub0204a poly
res sub0204a poly violations//violation cn 'FENCE'
res sub0204a poly violations//violation nc 'ROOM'
polygonsh sub0204a 50
linecolor 2
polygons sub0204a
linesymbol 1
linesize 0
asel sub0204a poly
/*****************************************************
/* PUTS LOT NUMBERS ON THE MAP - VIOLATION PARCELS ARE
/* IN BOLD PRINT
/*****************************************************
&if %scale% ge 750 &then &goto polytext
textset font.txt
annotext sub0204a all 8
&goto endtext
&label polytext
/* LABELS ALL LOTS EXCEPT VIOLATIONS
res sub0204a poly violations//exist eq 1
nsel sub0204a poly
res sub0204a poly lotnum gt 0
res sub0204a poly area gt 100
textsize 0.08
polygontext sub0204a lotnum
/* LABELS LOTS WITH VIOLATIONS
asel sub0204a poly
res sub0204a poly violations//exist eq 1
textset violations.txt
textsymbol 1
textsize .15
polygontext sub0204a lotnum
asel sub0204a poly
textset plotter.txt
&label endtext
/*******************************************************
/* MAJOR ANNOTATION SECTION
/*******************************************************
&sv path = /geowork/training/haii/
/* ENGLISH SITE ANNOTATION
textset font.txt
annotext %path%subdiv04a all # 1
/* ENGLISH STREET NAMES
textset font.txt
annotext %path%cenlin04 all
/* ARABIC STREET NAMES
textset arabicset
textspacing .2
setarabic nask
textfont 32
annotext %path%arabic04 all
textset font.txt
textspacing 0
/********************************************************
/* TITLE BLOCKS, MAP BOXES, LEGEND AND LOCATOR
/********************************************************
/* MAP BOXES
linesymbol 1
linetype wide
linesize 0.08
box 1 1 29 23
line 23 1 23 23
/* GEOBASE CREDIT
textjustification cc
textquality kern
textspacing 0
textset font.txt
textfont 92534
move 26 1.5
textsize .2
text 'Geobase - Urban Planning'
/* NORTH ARROW
maplimits 2 20 4 22
&sv path2 = /geowork/training/mapsupplies/
mape %path2%north
mapscale automatic
mapposition cen cen
arclines %path2%/north 1
/* MAP TITLE - ENGLISH AND ARABIC
textjustification cc
/* ARABIC TITLE
textquality constant
textspacing .2
textset arabicset
setarabic nask
textfont 31
textsize 2
move 26 21.5
atext 'المنازل'
move 26 20.5
atext 'المخالفه'
move 26 19.5
atext 'المرجان'
/* ENGLISH TITLE
textjustification cc
textquality kern
textspacing 0
textset font.txt
textfont 92534
textsize 0.75
move 26 18.5
text 'HOUSING'
move 26 17.75
text 'VIOLATIONS'
move 26 17
text 'AL-MARJAN'
textsize 0.5
move 26 2
text 'Scale 1:2000'
/* PLOTS YANBU LOGO
textjustification lc
&sv path2 = /geowork/training/mapsupplies/
mape %path2%logo
maplimits 25 2.5 27 4.5
mapposition cen cen
mapscale automatic
arclines %path2%logo 1
/***************************************************
/* LEGEND KEY BLOCK
/***************************************************
/* ARABIC TEXT
textjustification ll
textsize .75
textquality constant
textspacing .2
textset arabicset
setarabic nask
textfont 31
move 25.7 13.2
atext 'سور'
move 25.7 12.2
atext 'بناء'
move 25.7 11.2
atext 'اخرى'
/* ENGLISH TEXT
textjustification ll
textquality kern
textspacing 0
textset font.txt
textfont 92534
move 25 14.75
textsize 0.35
text 'legend'
keyseparation 0.25 0.25
keybox 0.75 0.75
keyposition 25 14
textjustification ll
shadedelete all
shadeset violations.shd
linesymbol 1
textsize 0.2
textquality kern
textfont 92534
keyshade viol-plotter.key
/*******************************************************
/* ENGLISH AND ARABIC CREDITS
/*******************************************************
textjustification cc
/* ARABIC TEXT
textquality constant
textspacing .2
textset arabicset
setarabic nask
textfont 31
move 26 7
textsize .75
atext 'المملكة العربية السعودية'
/* ENGLISH TEXT
textquality kern
textspacing 0
textset font.txt
textfont 92534
move 26 6
textsize 0.3
text 'KINGDOM OF SAUDI ARABIA'
textsize .2
move 26 5
textfile text.key block
map end
&pause
q
/* DROPS ITEM LOTNUM ORIGINALLY ADDED AT BEGINNING OF
/* PROGRAM.
dropitem sub0204a.pat sub0204a.pat lotnum
&RETURN
--------------------------------------------------
/home/hanson/use_grid.aml
--------------------------------------------------
/* USING GRID
grid
/* list grids
listgrids
polygrid
/* CHANGE SUB204A TO A GRID
subgrd = polygrid(/geowork/training/haii/subdiv04a,landuse,#,#,5)
/* NOW DESCRIBE YOUR GRID
describe subgrd
/* NOW LIST THE CONTENTS OF THE .VAT
list subgrd.vat
display 9999
mape subgrd
/* NOW DISPLAY THE GRID USING GRIDSHADES
gridshades subgrd
shadeset /geobase/ptone.shd
clear
gridshades subgrd
shadeset /geobase/geoshade.shd
clear
gridshades subgrd
/* NOW DRAW THE ARCS FROM SUB204A ON TOP
shadeset /geobase/ptone.shd
clear
gridshades subgrd
linecolor black
arcs sub0204a
/* NOW USE CELLVALUE TO CHECK THE VALUES IN YOUR CELLS
cellvalue subgrd *
/* USE GRIDQUERY TO SHOW SELECTED GRIDS
gridquery subgrd value # # value eq 101
gridquery subgrd value # # value eq 602
gridquery subgrd value # # value eq 200
/* NOW CHECK THE CURRENT SETTINGS OF YOUR ANALYSIS ENVIRONMENT
status
/* USE THE SETWINDOW COMMAND TO ALTER YOUR ANALYSIS AREA
setwindow *
gridsh subgrd
/* NOTE THAT THIS DID NOT CHANGE THE MAP EXTENT
status
/* NOW USE SELECT TO CREATE A NEW GRID WHOSE MAP EXTENT
/* WILL BE THAT OF THE NEW WINDOW
out1a = select(subgrd, 'value eq 101')
gridsh out1a
/* CHANGE THE MAP EXTENT
mape out1a
gridsh out1a
linecolor 2
arcs sub0204a
/* NOTE HOW CRUDE YOUR GRIDS ARE AT 5 METERS
/* NOW RESET THE ANALYSIS WINDOW
setwindow maxof
status
gridsh subgrd
mape subgrd
gridsh subgrd
/* NOW USE THE CON STATEMENT TO CHANGE THE VALUES OF
/* ALL COMMUNITY CENTER PARCELS (LU = 602) TO 999
out2a = con(subgrd eq 602, 999, subgrd)
clear
gridsh out2a
cellvalue out2a *
/* NOW USE A FOCALMAX FUNCTION TO RECODE GRIDS WITHIN 50
/* METERS OF A COMMUNITY CENTER GRID TO 999
out3a = focalmax(out2a, rectangle, 20, 20)
/* NOTE THAT WE APPLIED A RECTANGLE 20 CELLS ON A SIDE
gridsh out3a
/* NOW USE THE CON STATEMENT TO SET ALL GRIDS NOT CODED 999 TO 0
out4a = con(out3a eq 999, 999, 0)
gridsh out4a
/* NOW RECODE ALL VILLAS IN SUBGRD TO A VALUE OF 1 AND
/* EVERYTHING ELSE A VALUE OF 0
out5a = con(suggrd eq 101, 1, 0)
clear
gridsh out5a
/* NOW COMBINE THESE COVERAGES - EACH VILLA WITHIN 50
/* METERS OF A COMMUNITY CENTER WILL HAVE A VALUE OF 1000
out6a = out4a + out5a
clear
gridsh out6a
/* NOW CREATE A GRID WHERE ALL VILLAS WITHIN 50 METERS OF
/* A COMMUNITY CENTER HAVE A CODE OF 1 AND ALL OTHERS ARE 0
out7a = con(out6a eq 1000, 1, 0)
clear
gridsh out7a
quit
Files created by Micheal Breedlove
Last modified 16/12/97 by CH