/3.1
(Extension.1
	Name:	"Snap Themes"
	FirstRootClassName:	"List"
	Roots:	2
	Roots:	3
	Roots:	36
	Roots:	37
	Roots:	60
	Roots:	61
	Roots:	62
	Roots:	63
	Roots:	64
	Roots:	65
	Roots:	66
	Roots:	67
	Roots:	68
	Roots:	69
	Roots:	70
	Roots:	71
	Roots:	72
	Roots:	73
	Version:	31
	About:	"Allows theme to theme snapping"
	InstallScript:	74
	UninstallScript:	75
	ExtVersion:	3
)

(List.2
)

(List.3
	Child:	4
	Child:	12
	Child:	20
	Child:	28
)

(List.4
	Child:	5
	Child:	9
	Child:	11
)

(List.5
	Child:	6
	Child:	7
	Child:	8
)

(AVStr.6
	S:	"View"
)

(AVStr.7
	S:	"ButtonBar"
)

(AVStr.8
	S:	"Snap.SetThemes"
)

(Butn.9
	Help:	"Set Snapping Themes//Specify the control theme and snap theme for your snap environment"
	Icon:	10
	Click:	"Snap.SetThemes"
)

(AVIcon.10
	Name:	"untitled.bmp"
	Data:	4e442049 6d616765 00010019 00170000 
	Data:	06d4c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c000c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c000c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c000c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	000000c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c000c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 00000000 
	Data:	0000c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c000c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 000000c0 c0c00000 
	Data:	00000000 00000000 00000000 00000000 
	Data:	c0c0c0c0 c0c0c0c0 c000c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 000000c0 c0c0c0c0 c0000000 
	Data:	c0c0c0c0 c0c00000 00000000 c0c0c0c0 
	Data:	c0c0c0c0 c000c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	000000c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c00000 00c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c000c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 000000c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c000 0000c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c000c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c000 00000000 00000000 00000000 
	Data:	0000c0c0 c0c0c0c0 000000c0 c0c0c0c0 
	Data:	c0c0c0c0 000000c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c000c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 00000000 
	Data:	0000c0c0 c0c0c0c0 c0c0c000 00000000 
	Data:	00c0c0c0 000000c0 c0c0c0c0 c0000000 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c000c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c000 00000000 00c0c0c0 
	Data:	000000c0 c0c00000 00c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c000c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	00000000 00000000 00c0c0c0 00000000 
	Data:	0000c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c000c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c00000 00000000 00000000 
	Data:	0000c0c0 c0c0c0c0 000000c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c000c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c000 
	Data:	00000000 00000000 000000c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c000c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 00000000 00000000 
	Data:	00c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c000c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 00000000 0000c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c000c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	00000000 0000c0c0 c0c0c0c0 c0c0c000 
	Data:	00000000 00c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c000c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c000 
	Data:	00000000 00000000 00000000 0000c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c000c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c000c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c000c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c000c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0000000 00000001 00180007 
	Data:	00200001 00020000 00000000 0000
)

(Numb.11
	N:	26.00000000000000
)

(List.12
	Child:	13
	Child:	17
	Child:	19
)

(List.13
	Child:	14
	Child:	15
	Child:	16
)

(AVStr.14
	S:	"View"
)

(AVStr.15
	S:	"ButtonBar"
)

(AVStr.16
	S:	"Snap.Done"
)

(Butn.17
	Help:	"Set Snapping Done on This Shape//Sets the Boolean field \"Snapped\" to True.  If the Ctrl-Key is pressed sets the filed to False."
	HelpTopic:	" "
	Icon:	18
	Click:	"Snap.Done"
)

(AVIcon.18
	Name:	"T"
	Res:	"Icons.T"

)

(Numb.19
	N:	27.00000000000000
)

(List.20
	Child:	21
	Child:	25
	Child:	27
)

(List.21
	Child:	22
	Child:	23
	Child:	24
)

(AVStr.22
	S:	"View"
)

(AVStr.23
	S:	"ButtonBar"
)

(AVStr.24
	S:	"Snap.CheckSnap"
)

(Butn.25
	Help:	"Check if Snapping is Done//"
	Icon:	26
	Click:	"Snap.CheckSnap"
)

(AVIcon.26
	Name:	"Help"
	Res:	"Icons.Help"

)

(Numb.27
	N:	28.00000000000000
)

(List.28
	Child:	29
	Child:	33
	Child:	35
)

(List.29
	Child:	30
	Child:	31
	Child:	32
)

(AVStr.30
	S:	"View"
)

(AVStr.31
	S:	"ButtonBar"
)

(AVStr.32
	S:	"Snap.RecalcDimensions"
)

(Butn.33
	Help:	"Recalculate  Feature Dimensions//"
	Icon:	34
	Click:	"Snap.ReCalcDimensions"
)

(AVIcon.34
	Name:	"Loop"
	Res:	"Icons.Loop"

)

(Numb.35
	N:	29.00000000000000
)

(List.36
)

(List.37
	Child:	38
)

(List.38
	Child:	39
	Child:	42
	Child:	59
)

(List.39
	Child:	40
	Child:	41
)

(AVStr.40
	S:	"View"
)

(AVStr.41
	S:	"Snap.SetRadius"
)

(ToolMenu.42
	Help:	"Adds points to editable theme in snapping environment"
	Icon:	43
	Cursor:	"Cursors.Default"
	Apply:	"Snap.Point"
	Child:	44
	Child:	46
	Child:	48
	Child:	49
	Child:	51
	Child:	53
	Child:	55
	Child:	57
)

(AVIcon.43
	Name:	"Point"
	Res:	"Icons.Point"

)

(Tool.44
	Help:	"Set Snap Radius//Specify the snap distance for snap environment"
	Icon:	45
	Cursor:	"Cursors.Default"
	Apply:	"Snap.SetRadius"
	Click:	"Snap.CheckGlobals"
)

(AVIcon.45
	Name:	"SelectCircle"
	Res:	"Icons.SelectCircle"

)

(Tool.46
	Help:	"Vertex Snap (Ctrl snaps Vertex Only otherwise entire shape snaps)//Edit vertex in snapping environment.  Use Ctrl-Key to snap only the selected vertex."
	Icon:	47
	Cursor:	"Cursors.SelectEdit"
	Apply:	"Snap.Vertex"
)

(AVIcon.47
	Name:	"SelectEdit"
	Res:	"Icons.SelectEdit"

)

(Tool.48
	Help:	"Adds points to editable theme in snapping environment"
	Icon:	43
	Cursor:	"Cursors.Default"
	Apply:	"Snap.Point"
)

(Tool.49
	Help:	"Adds polylines to editable theme in snapping environment"
	Icon:	50
	Cursor:	"Cursors.Default"
	Apply:	"Snap.Line"
)

(AVIcon.50
	Name:	"Lines"
	Res:	"Icons.Lines"

)

(Tool.51
	Help:	"Add Polygon (Snapped)//Add Polygon to editable theme in snapping environment"
	Icon:	52
	Cursor:	"Cursors.CrossHair"
	Apply:	"Snap.Poly"
)

(AVIcon.52
	Name:	"Poly"
	Res:	"Icons.Poly"

)

(Tool.53
	Help:	"Delete Vertices//Deletes all vertices in the user specified polygon"
	Icon:	54
	Cursor:	"Cursors.Default"
	Apply:	"Snap.DeleteVertices"
)

(AVIcon.54
	Name:	"AlignNone"
	Res:	"Icons.AlignNone"

)

(Tool.55
	Help:	"Transfer Shape//Transfer a selected shape from the control theme to the snap theme"
	Icon:	56
	Cursor:	"Cursors.Default"
	Apply:	"Snap.TransferShape"
)

(AVIcon.56
	Name:	"untitled.bmp"
	Data:	4e442049 6d616765 0001001c 001a0000 
	Data:	0888c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c00000 00c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c00000 00000000 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0000000 000000c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 00000000 0000c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c000 
	Data:	00000000 00c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c00000 00000000 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c000 00000000 00c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 00000000 0000c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0000000 000000c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c00000 00000000 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c00000 
	Data:	00c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c0c0c0 c0c0c0c0 
	Data:	c0c0c0c0 c0c0c0c0 c0c00000 00000001 
	Data:	00180007 00200001 00020000 00000000 
	Data:	0000
)

(Tool.57
	Help:	"Multi-Shape Transfer//Transfer  selected shapes from the control theme to the snap theme"
	Icon:	58
	Cursor:	"Cursors.Default"
	Apply:	"Snap.MultiTransfer"
)

(AVIcon.58
	Name:	"ShiftRight"
	Res:	"Icons.ShiftRight"

)

(Numb.59
	N:	15.00000000000000
)

(Script.60
	Name:	"Snap.Snap"
	SourceCode:	"if ((_snapTheme = NIL) OR (_controlTheme = NIL)) then\n  MsgBox.Warning(\"No snap environment set!\",\"\")\n  return NIL\nend\nif (_snapTheme.GetFTab.GetSelection.Count = 0) then\n'  MsgBox.Warning(_snapTheme.AsString ++ \"must have some selected features!\", \"Wake Up!\")\n  return NIL\nend\n\ntheView = av.GetActiveDoc\nraid = _r\n\nif (raid=nil) then \n  msgBox.warning(\"The Snap distance is not specified\",\"\")\n  return nil \nend\n\ntheBitMap = _snapTheme.GetFTab.GetSelection.Clone\nfor each x in theBitMap\n  _snapTheme.GetFTab.GetS
election.ClearAll\n  _snapTheme.GetFTab.GetSelection.Set(x)\n  if ((self.get(0)=\"vertex\").not) then\n    if (_snapTheme.GetFTab.GetShapeClass.GetClassName.AsString<>\"Point\") then\n      aLine = _snapTheme.GetFTab.ReturnValue(_snapTheme.GetFTab.FindField(\"shape\"), x).AsPolyLine\n      aLine = aLine.ReturnClipped(theView.GetDisplay.ReturnVisExtent)\n    else\n      aLine = _snapTheme.GetFTab.ReturnValue(_snapTheme.GetFTab.FindField(\"shape\"), x)\n    end\n    _controlTheme.SelectByShapes({aLine.ReturnBuffered(_r)}, #VT
AB_SELTYPE_NEW)\n  else\n    _controlTheme.SelectByShapes({circle.maKE(SELF.GET(1),raid)}, #VTAB_SELTYPE_NEW)\n    \n  end\n\n  snapList = List.Make\n  counter = 0\n  for each r in _controlTheme.GetFTab.GetSelection\n    counter = counter + 1\n    av.ShowMsg(\"Creating list of snap features from\" ++ _controlTheme.AsString ++ \"to snap\" ++ _snapTheme.AsString + \"...\")\n    av.SetStatus((counter/_controlTheme.GetFTab.GetSelection.Count)*100)\n    if (self.get(0)<>\"vertex\") then\n      snapList = snapList.Add(_controlTheme.G
etFTab.ReturnValue(_controlTheme.GetFTab.FindField(\"Shape\"), r))\n    else\n      if (_snapTheme.GetFTab.GetShapeClass.GetClassName.AsString<>\"Point\") then\n        s=_controlTheme.GetFTab.ReturnValue(_controlTheme.GetFTab.FindField(\"Shape\"), r).asmultipoint\n        for each p in s.aslist\n          if (circle.maKE(SELF.GET(1),raid).contains(p)) then\n            snaplist.add(p)\n          end\n        end\n      else\n        s=_controlTheme.GetFTab.ReturnValue(_controlTheme.GetFTab.FindField(\"Shape\"), r)\n        s
naplist.add(s)\n      end\n    end\n  end\n  counter = NIL\n  r = NIL\n  av.PurgeObjects\n  \n    snapShape = _snapTheme.GetFTab.ReturnValue(_snapTheme.GetFTab.FindField(\"shape\"), x)\n\n  counter = 0\n  if (snaplist.count=0) then return nil end\n  for each r in snapList\n    counter = counter + 1\n    av.ShowMsg(\"Snapping\" ++ _snapTheme.AsString ++ \"to\"  ++ _controlTheme.AsString + \"...\")\n    av.SetStatus((counter/snapList.Count)*100)\n    snapShape.Snap(r, raid)\n    theShape = snapShape.Clean\n  end\n  counter = NIL\n  snap
Shape = NIL\n  av.PurgeObjects\n\n  _snapTheme.GetFTab.SetValue(_snapTheme.GetFTab.FindField(\"shape\"), x, theShape)\n  _controlTheme.clearselection\n  theShape = NIL\n  av.PurgeObjects\nend\nif (_recalc) then\n  av.Run(\"Snap.RecalcDimensions\",\"\")\nend\nav.ClearMsg\ntheView.GetDisplay.Flush\ntheView.Invalidate\n\n"
)

(Script.61
	Name:	"Snap.CheckGlobals"
	SourceCode:	"if ((_snapTheme = NIL) OR (_controlTheme = NIL)) then\n  av.Run(\"Snap.SetThemes\",{})\nend\n\n"
)

(Script.62
	Name:	"Snap.SetRadius"
	SourceCode:	"if (system.iscontrolkeydown) then\n  _r=MsgBox.input(\"Enter the snap tolerance:\",\"Snap\",\"\")  \n  return nil\nend\n  \ntheView = av.GetActiveDoc\n_r = theView.ReturnUserCircle.GetRadius\n\n"
)

(Script.63
	Name:	"Snap.Vertex"
	SourceCode:	"s=system.iscontrolkeydown\ntheView = av.GetActiveDoc\ntheTheme = theView.GetEditableTheme\nif (theTheme = nil) then\n  theView.SelectToEdit\nelse\n  theTheme.GetFTab.BeginTransaction\n  theTheme.SelectToEdit\n  theTheme.GetFTab.EndTransaction\nend\nif (s) then\n  v=theview.getdisplay.returnuserpoint\n  av.run(\"Snap.Snap\",{\"vertex\",v})\n  'msgbox.info(\"\",\"\")\nelse\n  v=theview.getdisplay.returnuserpoint\n  av.run(\"Snap.Snap\",{\"\",v})\nend"
)

(Nil.64
)

(Script.65
	Name:	"Snap.DeleteVertices"
	SourceCode:	"' this is the script with will delete more than one vertice at a time.\n\n\ntheView  = av.GetActiveDoc \ntheTheme = theView.GetEditableTheme \nif (theTheme=NIL) then return nil end\nuserPoly  = theView.GetDisplay.ReturnUserPolygon\nif (userPoly = NIL) then \n  av.ShowMsg(\"NIL rectangle returned.\")  \n  exit  \n  end \n \nfldShape = theTheme.GetFTab.FindField(\"shape\") \nr = theTheme.GetFTab.GetSelection.GetNextSet(-1) \nshpSelected = theTheme.GetFTab.ReturnValue(fldShape, r) \n \n' Currently multi-part features are not supp
orted, only the first  \n' list of points in the list of lists of points for MultiPoint  \n' objects is considered... \n' \nif (shpSelected.AsList.Count > 1) then \n  MsgBox.Error( \n    \"Unable to delete vertex of multi-part shape at record\"++(r+1).AsString, \n    \"Edit.DeleteVertex\") \n  exit \n  end \nlstVertex = shpSelected.AsList.Get(0) \n \nav.UseWaitCursor \nav.ShowMsg(\"Searching vertices...\") \ntotal = lstVertex.Count \n \nlstNewVertex = {} \nisOriginDeleted = FALSE \nisVertexDeleted = FALSE \n \nfor each i in 0 ..(lst
Vertex.Count - 1) \n  ptVertex = lstVertex.Get(i) \n  if (userPoly.Intersects(ptVertex)) then \n    isVertexDeleted = TRUE \n    ' skip the point, but if it is the origin of a polygon we \n    ' must handle the final shape assembly differently.  Check \n    ' and flag here... \n    if (i = 0) then \n      isOriginDeleted = TRUE \n    end \n  else \n    lstNewVertex.Add(ptVertex) \n  end \n   \n  av.SetStatus((i / total) * 100) \nend \n \nif (lstNewVertex.Count = lstVertex.Count) then \n  av.ClearMsg \n  av.ClearStatus \n  exit
 \n  end \n   \nif (lstNewVertex.Count = 0) then \n  av.ClearMsg \n  av.ClearStatus \n  exit \n  end \n \nif (isVertexDeleted) then \n  if (fldShape.GetType = #FIELD_SHAPEPOLY) then \n    if (lstNewVertex.Count < 4) then  \n      av.ClearStatus \n      av.ShowMsg(\"Can't delete any more vertices\") \n      exit  \n    end \n    if (isOriginDeleted) then \n      pt1 = lstNewVertex.Get(0) \n      lstNewVertex.Add(pt1) \n    end \n    shpNew = Polygon.Make({ lstNewVertex }) \n  else   \n    ' the other possible case is #FIELD_SHAPELI
NE \n    if (lstNewVertex.Count < 2) then \n      av.ClearStatus \n      av.ShowMsg(\"Can't delete any more vertices\") \n      exit \n    end  \n    shpNew = PolyLine.Make({ lstNewVertex }) \n  end \n   \n  ' Push transaction object... \n  'av.Run(\"Edit.PushTransaction\", \n  '  {{\"Edit.UndoVertex\",{r,shpSelected}}, \n   ' {\"Edit.RedoVertex\",{r,shpNew}}}) \n \n  av.SetStatus(100) \n  av.ClearMsg \n  theTheme.GetFTab.SetValue(fldShape, r, shpNew) \n  theTheme.GetFTab.flush \n  theTheme.Invalidate(TRUE) \nelse \n  av.ClearStatus \n
  av.ClearMsg \nend \n   "
)

(Script.66
	Name:	"Snap.TransferShape"
	SourceCode:	"''''''''''''''''''''''''''''''''''''''\n'  Initial set up and error checks:\n''''''''''''''''''''''''''''''''''''''\n\n'  Get the active document, which should be a view.  Bail if not a view:\ntheView=av.GetActiveDoc\ntheProjection = theView.GetProjection\n\np=theview.getdisplay.returnuserpoint\n\n\nif (theView.Is(View).Not) then\n  MsgBox.Error(\"This script must be run from a view. Exiting\",\"Error\")\n  exit\nend\nif (_controltheme=nil) then\n  msgbox.warning (\"No snap environment set!\",\"\")\n  exit\nend\n\ntheInputTheme = _con
troltheme.clone\ntheFtab = theInputTheme.GetFTab\n\nif (_controlTheme.GetFTab.GetSelection.Count > 1) then\n  theInputTheme.SelectByTheme(_controlTheme,#FTAB_RELTYPE_COMPLETELYCONTAINS,0,#VTAB_SELTYPE_NEW)\nelse\n  theftab.selectbypoint(p,0,#VTAB_SELTYPE_NEW)\nend\nTheSelRecs = theFTab.GetSelection\nTheOldSelRecs = theFTab.GetSelection.Clone\n\nif (theSelRecs.Count = 0) then\n  theFtab.GetSelection.SetAll\n  theFtab.UpdateSelection\n  TheSelRecs = theFTab.GetSelection\nend\n \ntheShapeField = theFtab.FindField(\"Shape\")\ntheS
hapeFieldType = theShapefield.GetType\n\nav.GetSymbolWin\n'  Determine the shape class of the input theme, make the appropriate symbol and set the defaults:\nif (theShapeFieldType = #FIELD_SHAPELINE) then \n  theSymbol = Symbol.Make(#SYMBOL_PEN)\n  theSymbol.SetSize(\".1\".AsNumber)\n  av.GetSymbolWin.SetPanel(#SYMBOLWIN_PANEL_PEN)\n\nelseif (theShapeFieldType = #FIELD_SHAPEMULTIPOINT) then\n  theSymbol = Symbol.Make(#SYMBOL_MARKER)\n  theSymbol.SetSize(10)\n  av.GetSymbolWin.SetPanel(#SYMBOLWIN_PANEL_MARKER)\nelseif (the
ShapeFieldType = #FIELD_SHAPEPOINT) then\n  theSymbol = Symbol.Make(#SYMBOL_MARKER)\n  theSymbol.SetSize(10)\n  av.GetSymbolWin.SetPanel(#SYMBOLWIN_PANEL_MARKER)\nelseif (theShapeFieldType = #FIELD_SHAPEPOLY) then\n  theSymbol = Symbol.Make(#SYMBOL_FILL)\n  theSymbol.SetOLWidth(\".1\".AsNumber)\n  av.GetSymbolWin.SetPanel(#SYMBOLWIN_PANEL_FILL)\nend\ntheSymbol.SetColor(Color.GetGreen)\n\nif (av.GetSymbolWin.IsOpen = true) then\n  theSymbol = av.GetSymbolWin.ReturnCurrentSymbol(theSymbol.GetType)\nend\n\ncurrentrec = 0      
 \ntotalrec = theSelRecs.Count\nav.ShowStopButton\nav.ShowMsg(\"Converting  \"+totalrec.AsString+\"  shapes  to  graphics....\")\n \naShapeList=List.Make\nfor each x in theSelRecs\n  \n  '  Show Progress routine:\n  currentrec = currentrec + 1\n  progress = (currentrec / totalrec) * 100\n  proceed = av.SetStatus( progress )\n  if (proceed.Not) then\n    av.ShowMsg( \"Stopped\" )\n    exit\n  end\n\n  aShapeList = aShapeList.Add(theFtab.ReturnValue(theShapeField, x))\n    \nend\n\n\n'****************************************************
**********************************\n\n\nav.showmsg(\"Disolving...\")\ncount=0\nthewhole=aShapeList.get(0)\nfor each s in aShapeList\n  count=count+1\n  progress = (count/ashapelist.count) * 100    \n\n  doMore = av.SetStatus( progress )\n  av.usewaitcursor\n  thing1=s\n  thewhole1=thewhole.returnunion(thing1)\n  thewhole=thewhole1\nend \n\nav.clearmsg\n\nav.getproject.setmodified(true)\n\n\n\n\n'**************************************************************************************\n\n\n\ntheFTab.SetSelection(TheOldSelRecs)\ntheFTab.Updat
eSelection \n \n\nav.ShowMsg(\"Shape  to  graphic  conversion  completed!\")\n\n \n \nr=_snapTheme.GetFTab.addrecord\ncat = MsgBox.ListAsString({\"Village/Hamlet Geen/Parks and Recreation\",\"Trails\",\"Wetlands\"},\"Choose category...\",\"ChooseCategory\")\nif (cat = NIL) then return NIL end\n_snapTHeme.GetFTab.SetValue(_snaptheme.getftab.findfield(\"shape\"),r,thewhole.clean)\n_snapTHeme.GetFTab.SetValue(_snaptheme.getftab.findfield(\"name\"),r,\"NO NAME\")\n_snapTHeme.GetFTab.SetValue(_snaptheme.getftab.findfield(\"category\"),r,cat)\n_
controlTheme.ClearSelection\ntheview.invalidate"
)

(Script.67
	Name:	"Snap.MultiTransfer"
	SourceCode:	"'  View.SelectPoint  (Modified by Mike DeLaune 10/23/97)\n\ntheView = av.GetActiveDoc\nr = theView.ReturnUserRect\n\nif (_controltheme=nil) then\n  msgbox.warning (\"No snap environment set!\",\"\")\n  exit\nend\n\n\ntheThemes = {_controlTheme}\n'\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\n     'Added by Mike DeLaune 10/23/97\nthmNum = theThemes.Count\ntheUnits = TheView.GetUnits\nshapetype = #FIELD_SHAPEPOINT\nSelRecNum = 0\ntheShape = Point.MakeNull\nav.ShowMsg(\" \")\n'\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\" \nif (r.I
sNull) then \n  p = theView.GetDisplay.ReturnUserPoint\n  for each t in theThemes\n    if (t.CanSelect) then\n      t.SelectByPoint(p, #VTAB_SELTYPE_XOR)\n    end\n'\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\n   'Added by Mike DeLaune 10/23/97\n    if (theUnits = #UNITS_LINEAR_FEET) then\n      theFtab = t.GetFtab\n'      Shapetype = theFTab.FindField(\"Shape\").GetType\n      SelRecNum = SelRecNum + theFTab.GetSelection.Count\n      if (SelRecNum = 1) then\n        for each rec in theFTab.GetSelection\n          theS
hapeField = theFtab.FindField(\"Shape\")\n          theShape = theFTab.returnvalue(theShapeField,rec)\n        end\n      end  \n    end\n'\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"        \n  end \nelse  ' If r is not null\n  if (System.IsShiftKeyDown) then\n    op = #VTAB_SELTYPE_OR\n  else\n    op = #VTAB_SELTYPE_NEW\n  end\n  for each t in theThemes\n    if (t.CanSelect) then\n      t.SelectByRect(r, op)\n    end\n'\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\n   'Added by Mike DeLaune 10/23/97\n    if (theUnits = #
UNITS_LINEAR_FEET) then\n      theFtab = t.GetFtab\n'      Shapetype = theFTab.FindField(\"Shape\").GetType\n      SelRecNum = SelRecNum + theFTab.GetSelection.Count\n      if (SelRecNum = 1) then\n        for each rec in theFTab.GetSelection\n          theShapeField = theFtab.FindField(\"Shape\")\n          theShape = theFTab.returnvalue(theShapeField,rec)\n        end\n      end\n    end\n'\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\" \n  end\nend\n'\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\n' Added by Mike Delaune 
10/23/97\n'msgbox.info(selrecnum.asstring,\" \")\nif (SelrecNum = 1) then\n  if(theShape.Is(Polygon))then\n    theAcNum = (theShape.ReturnArea / 43560).SetFormat(\"d.dd\")\n    Acres = av.run(\"aanView.NumComma\",theAcNum)\n    av.ShowMsg(\"Polygon  Size    =    \"+Acres++\" acres.\")\n  elseif(theShape.Is(Polyline)) then\n    thelnNum = theShape.ReturnLength.SetFormat(\"d.dd\")\n    Length = av.run(\"aanView.NumComma\",thelnNum)\n    av.ShowMsg(\"Line  Length    =    \"+Length++\"feet.\")\n  else\n    av.ShowMsg(\"There is  \"+SelRecNum.
AsString++\"  selected point shape(s) in the \"++thmNum.AsString++\"active theme(s).\")\n  end\nelse\n  av.ShowMsg(\"There are  \"+SelRecNum.AsString++\"  selected shape(s) in the \"++thmNum.AsString++\"active theme(s).\")\nend \n'\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\nav.GetProject.SetModified(true)\n"
)

(Script.68
	Name:	"Snap.Poly"
	SourceCode:	"s = system.iscontrolkeydown.not\n\n'  View.PolyTool  (Modified by Mike DeLaune 10/23/97)\n\ntheView = av.GetActiveDoc\n\np = theView.ReturnUserPolygon\ntheTheme = theView.GetEditableTheme\n\nif (p.IsNull) then\n  return nil\nelse\n  if (theTheme <> nil) then\n    theTheme.GetFTab.BeginTransaction\n    thePrj = theView.GetProjection\n    if (thePrj.IsNull.Not) then\n      p = p.ReturnUnprojected(thePrj)\n    end\n    theField = theTheme.GetFTab.FindField(\"Shape\")\n    rec = theTheme.GetFTab.AddRecord\n    theTheme.GetFTab.SetVa
lue(theField, rec, p)\n    theTheme.GetFTab.GetSelection.ClearAll\n    theTheme.GetFTab.GetSelection.Set(rec)\n    theTheme.GetFTab.UpdateSelection\n    theTheme.GetFTab.EndTransaction\n    shp = p\n  else\n    gp = GraphicShape.Make(p)\n    theView.GetGraphics.UnselectAll\n    gp.SetSelected(TRUE)\n    theView.GetGraphics.Add(gp)\n    shp = gp.GetShape\n  end\n  av.GetProject.SetModified(true)\nend\n'\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\n' Added by Mike Delaune 10/23/97\ntheUnits = TheView.GetUnits\nif(theUnits =
 #UNITS_LINEAR_FEET) then\n  theAcNum = (shp.ReturnArea / 43560).SetFormat(\"d.dd\")\n  Acres = av.run(\"aanView.NumComma\",theAcNum)\n  av.ShowMsg(\"Polygon  Acres   =   \"+Acres)\nend  \n'\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\nif (s) then\n  av.run(\"Snap.Snap\",{\"\",0@0})\nend"
)

(Script.69
	Name:	"Snap.Line"
	SourceCode:	"s = system.iscontrolkeydown.not\ntheView = av.GetActiveDoc\nl = theView.ReturnUserPolyLine\ntheTheme = theView.GetEditableTheme\n\nif (l.IsNull) then\n  return nil\nelse\n  if (theTheme <> nil) then\n    theTheme.GetFtab.BeginTransaction\n    thePrj = theView.GetProjection\n    if (thePrj.IsNull.Not) then\n      l = l.ReturnUnprojected(thePrj)\n    end\n    theField = theTheme.GetFTab.FindField(\"Shape\")\n    rec = theTheme.GetFTab.AddRecord\n    theTheme.GetFTab.SetValue(theField, rec, l)\n    theTheme.GetFTab.GetSelection.
ClearAll\n    theTheme.GetFTab.GetSelection.Set(rec)\n    theTheme.GetFTab.UpdateSelection\n    theTheme.GetFtab.EndTransaction\n  else\n    gl = GraphicShape.Make(l)\n    theView.GetGraphics.UnselectAll\n    gl.SetSelected(TRUE)\n    theView.GetGraphics.Add(gl)\n  end\n  av.GetProject.SetModified(true)\nend\n\nif (s) then\n  av.run(\"Snap.Snap\",{\"\",0@0})\nelse\n  v=theview.getdisplay.returnuserpoint\n  av.run(\"Snap.Snap\",{\"vertex\",v})\nend"
)

(Script.70
	Name:	"Snap.SetThemes"
	SourceCode:	"theView = av.GetActiveDoc\n_controlTheme = MsgBox.ListAsString(theView.GetThemes, \"Choose the control theme for snapping:\", \"Snapping - Control Theme\")\nif (_controlTheme = NIL) then return NIL end\n_snapTheme = MsgBox.ListAsString(theView.GetThemes, \"Choose the theme to snap to\" ++ _controlTheme.AsString + \":\", \"Snapping - Snap Theme\")\nif (_snapTheme = NIL) then return NIL end\ntheView.SetEditableTheme(_snapTheme)\nIf (MsgBox.YesNo(\"Automatically recalculate feature dimensions after each edit?\",\"Recalculate Fea
ture Dimensions\",TRUE)) then\n  _recalc=TRUE\nelse\n  _recalc=FALSE\nend"
)

(Script.71
	Name:	"Snap.Done"
	SourceCode:	"if (_snapTheme=nil) then\n  msgbox.warning (\"No snap environment set!\",\"\") return nil\nend\ntheView = av.GetActiveDoc\nsf=_snapTheme.GetFTab.FindField(\"Snapped\")\nif (sf=nil) then\n  if (msgbox.yesno(\"There is no Boolean filed to track snapped shapes.\"+NL+\"Do you want to add one?\",\"Snapped\",TRUE)) then\n    _snapTheme.GetFTab.AddFields({Field.Make(\"Snapped\",#FIELD_LOGICAL,0,1)})\n  else\n    return nil\n  end\nend\nfor each r in _snapTheme.GetFTab.GetSelection\n  if (system.iscontrolkeydown) then\n    _snapTheme.GetFTab.
SetValue(_snapTheme.GetFTab.FindField(\"Snapped\"),r,false)\n  else\n    _snapTheme.GetFTab.SetValue(_snapTheme.GetFTab.FindField(\"Snapped\"),r,true)\n  end\n  system.beep\nend\ntheView.Invalidate\n"
)

(Script.72
	Name:	"Snap.CheckSnap"
	SourceCode:	"if (_snapTheme=nil) then\n  msgbox.warning (\"No snap environment set!\",\"\") return nil\nend\nif (_snapTheme.GetFTab.FindField(\"Snapped\")=NIL) then return NIL end\nfor each r in _snapTheme.GetFTab.GetSelection\n  msgbox.info(_snapTheme.GetFTab.ReturnValue(_snapTheme.GetFTab.FindField(\"Snapped\"),r).AsString,\"Snapped =\")\nend\n"
)

(Script.73
	Name:	"Snap.ReCalcDimensions"
	SourceCode:	"v=av.getactivedoc\nt=v.geteditabletheme\nif (t=nil) then msgbox.warning(\"No editable themes!\",\"\") return nil end\nf=t.getftab\na=f.findfield(\"area\")\np=f.findfield(\"perimeter\")\nac=f.findfield(\"acreage\")\nif (ac=NIL) then\n  ac=f.findfield(\"acres\")\nend\nif (ac=NIL) then\n  ac=f.findfield(\"acre\")\nend\n\nfor each r in f.getselection\n  s=f.returnvalue(f.findfield(\"shape\"),r)\n  if (a<>NIL) then\n    f.setvalue(a,r,s.returnarea)\n  end\n  if (p<>NIL) then\n    f.setvalue(p,r,s.returnlength)\n  end\n  if (v.GetUnits=#UNITS_LINEAR_
FEET) then\n    if (ac<>NIL) then\n      f.setvalue(ac,r,s.returnarea/43560)\n    end\n  end\nend  \n"
)

(Script.74
	Name:	"My Extension Install"
	SourceCode:	"'DO NOT EDIT!!!\n\nif (av.getproject=nil) then return(nil) end\n\n\ntheDocs = SELF.get(0)\ntheControlList = SELF.get(1)\ntheMenuList = SELF.get(2)\ntheToolMenuList=SELF.Get(3)\ntheProject=Av.getproject\n\n\n'Add the Docs\n'\nfor each adoc in theDocs\n theProject.addDoc(adoc)\nend\n\n'Add the Controls\n'\nfor each totalControl in theControlList\n   'The Control list\n   acontrol=totalControl.get(0)\n   \n   'The physical control\n   theControl = totalControl.get(1)\n   \n   'The control Index\n   theCindex=totalControl.get(2)\n\n   'Find
 the DocGUI\n   theControlDoc=av.getproject.findGUI(aControl.get(0))\n     if (theControlDoc=NIL) then   \n       MsgBox.Warning(\"The GUI \"+aControl.get(0)+\" cannot be found in the current project.\",\"Script Eror\")\n       return(nil)\n     end\n   \n   'This finds the control set  \n  thecommand=\"av.getproject.findGUI(\"\"\"+aControl.get(0)+\"\"\").Get\"+acontrol.get(1)\n  thescript1=Script.Make(thecommand)\n  thecontrolset=thescript1.doit(\"\")\n  \n  'Add the control to the control set\n  theControlSet.Add(theControl,theCindex
)\nend\n\n\n'Add the menus\nfor each totalcontrol in theMenuList\n  \n   'The Control list\n   acontrol=totalControl.get(0)\n      mDoc=acontrol.get(0)\n      mMenu=acontrol.get(1)\n      mMenuItem=acontrol.get(2)\n\n   'The physical control\n   theControl = totalControl.get(1)\n   \n   'The control Index\n   theCindex=totalControl.get(2)\n\n   'Find the DocGUI\n   theControlDoc=av.getproject.findGUI(aControl.get(0))\n     if (theControlDoc=NIL) then   \n       MsgBox.Warning(\"The GUI \"+aControl.get(0)+\" cannot be found in the c
urrent project.\",\"Script Eror\")\n       return(nil)\n     end\n   \n  theMbar=av.getproject.findGUI(mDoc).GetMenuBar\n  themenu=theMbar.findbylabel(mMenu)\n  if (themenu=NiL) then\n      themenu=menu.make\n      themenu.setlabel(mMenu)\n      theMbar.add(themenu,999)\n  end\n  \n  themenu.add(thecontrol, theCindex)\nend\n   \n   \n'Add the Tool Menus\n\nfor each totalControl in theToolMenuList\n   'The Control list\n   acontrol=totalControl.get(0)\n   \n   'The physical control\n   theControl = totalControl.get(1)\n   \n   'The con
trol Index\n   theCindex=totalControl.get(2)\n\n   'Find the DocGUI\n   theControlDoc=av.getproject.findGUI(aControl.get(0))\n     if (theControlDoc=NIL) then   \n       MsgBox.Warning(\"The GUI \"+aControl.get(0)+\" cannot be found in the current project.\",\"Script Eror\")\n       return(nil)\n     end\n   \n   'This finds the control set  \n  thecommand=\"av.getproject.findGUI(\"\"\"+aControl.get(0)+\"\"\").Get\"+acontrol.get(1)\n  thescript1=Script.Make(thecommand)\n  thecontrolset=av.getproject.findGUI(aControl.get(0)).GetToolBa
r\n  \n  'Add the control to the control set\n  theControlSet.Add(theControl,theCindex)\nend\n\n\nav.getproject.setmodified(true)\n\n\n'And the scripts add themselves\n"
)

(Script.75
	Name:	"My Extension Uninstall"
	SourceCode:	"'DO NOT EDIT!!!\n_recalc=nil\n_r=nil\n_snapTheme=nil\n_controlTheme=nil\nav.purgeobjects\n'The SELF is the Extension\n\ntheDocs = SELF.get(0)\ntheControlList = SELF.get(1)\ntheMenuList = SELF.get(2)\ntheToolMenuList=SELF.get(3)\ntheProject=Av.getproject\n\n\n'Add the Docs\n'\nfor each adoc in theDocs\n If (theProject.finddoc(adoc.getname)<>NIL) then \n  theAnswer=msgbox.yesno(\"Remove the Document \"+adoc.getname+\"?\",\"Remove Document?\",TRUE)\n  if (theAnswer=TRUE) then theProject.RemoveDoc(adoc) end\n end\nend\n\n'Removethe Controls
\n'\nfor each totalControl in theControlList\n   'Get the control list from the Ext\n   acontrol=totalControl.get(0)\n   \n   'Get the physical Control\n   theControl = totalControl.get(1)\n   \n   'Get the Controls Index\n   theCindex=totalControl.get(2)\n\n   'Find the DocGUI for the Control\n   theControlDoc=av.getproject.findGUI(aControl.get(0))\n     if (theControlDoc=NIL) then   \n       MsgBox.Warning(\"The GUI \"+aControl.get(0)+\" cannot be found in the current project.\",\"Script Eror\")\n       return(nil)\n     end\n  
 \n   'This sequence finds the appropiate control set\n   thecommand=\"av.getproject.findGUI(\"\"\"+aControl.get(0)+\"\"\").Get\"+acontrol.get(1)\n   thescript1=Script.Make(thecommand)\n   thecontrolset=thescript1.doit(\"\")\n\n   'See if the control is in the set , if so remove it\n    if (theControlSet.GetControls.find(theControl)<>NIL) then\n      theControlSet.remove(theControl)\n      if (thecontrol = \"ToolBar\") then\n        theControlSet.selectdefault\n      end\n    end\nend\n\n\n'Remove the Menus\n'\nfor each totalcontrol in 
theMenuList\n  \n   'The Control list\n    acontrol=totalControl.get(0)\n      mDoc=acontrol.get(0)\n      mMenu=acontrol.get(1)\n      mMenuItem=acontrol.get(2)\n\n   'The physical control\n   theControl = totalControl.get(1)\n   \n   'The control Index\n   theCindex=totalControl.get(2)\n\n   'Find the DocGUI\n   theControlDoc=av.getproject.findGUI(aControl.get(0))\n     if (theControlDoc=NIL) then   \n       MsgBox.Warning(\"The GUI \"+aControl.get(0)+\" cannot be found in the current project.\",\"Script Eror\")\n       return(n
il)\n     end\n   \n  theMbar=av.getproject.findGUI(mDoc).GetMenuBar\n  themenu=theMbar.findbylabel(mMenu)\n  if (themenu=NiL) then\n       MsgBox.Warning(\"The menu named \"+mMenu+\" is not here.\",\"Script Eror\")\n      'return(nil)\n  else\n  \n    thething=themenu.getcontrols.find(thecontrol)\n    if (thething<>NIL) then \n      themenu.remove(thecontrol) \n    end\n    'msgbox.info(themenu.GetControls.count.asstring,\"\")\n    if (themenu.GetControls.count<1) then\n      theMbar.remove(themenu)\n    end\n  end\nend\n   \nfor each
 totalControl in theToolMenuList\n   'Get the control list from the Ext\n   acontrol=totalControl.get(0)\n   \n   'Get the physical Control\n   theControl = totalControl.get(1)\n   \n   'Get the Controls Index\n   theCindex=totalControl.get(2)\n\n   'Find the DocGUI for the Control\n   theControlDoc=av.getproject.findGUI(aControl.get(0))\n     if (theControlDoc=NIL) then   \n       MsgBox.Warning(\"The GUI \"+aControl.get(0)+\" cannot be found in the current project.\",\"Script Eror\")\n       return(nil)\n     end\n   \n   'This
 sequence finds the appropiate control set\n   thecontrolset=av.getproject.findGUI(aControl.get(0)).GetToolBar\n\n \n    'See if the control is in the set , if so remove it\n    if (theControlSet.GetControls.find(theControl)<>NIL) then\n \n      theControlSet.remove(theControl)\n      theControlSet.selectdefault\n    end\n\nend\n   \n\n'And the scripts delete themselves\n\n\nav.getproject.setmodified(true)\n"
)