/3.1
(Extension.1
	Name:	"DXF Conversion Extension"
	Dependencies:	"$AVBIN/avdlog.dll\n"
	FirstRootClassName:	"AVDLog"
	Roots:	2
	Roots:	25
	Roots:	50
	Roots:	72
	Roots:	143
	Roots:	165
	Roots:	223
	Roots:	245
	Roots:	320
	Roots:	337
	Roots:	338
	Roots:	339
	Roots:	340
	Roots:	341
	Roots:	343
	Roots:	344
	Roots:	346
	Roots:	348
	Roots:	349
	Roots:	350
	Roots:	351
	Roots:	352
	Roots:	353
	Roots:	354
	Roots:	355
	Roots:	356
	Roots:	357
	Version:	31
	About:	"DXF Conversion Extension v2.1.  Creates Drawing Interchange Format files from Feature Themes"
	CanUnloadScript:	358
	UnloadScript:	359
	InstallScript:	360
	UninstallScript:	361
	ExtVersion:	2
)

(AVDLog.2
	Name:	"dxf.Dialog1"
	X:	32
	Y:	68
	W:	583
	H:	332
	ConstrainedControlNames:	3
	ConstrainedControlNames:	4
	ConstrainedControlNames:	5
	Constraints:	6
	Constraints:	7
	Constraints:	8
	Server:	9
	ControlPanel:	10
	Title:	"DXF Conversion Extension -- Getting Started"
	EscapeEnabled:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	DefaultButton:	24
)

(AVStr.3
	S:	"btnPrev"
)

(AVStr.4
	S:	"btnNext"
)

(AVStr.5
	S:	"btnCancel"
)

(Numb.6
	N:	85.00000000000000
)

(Numb.7
	N:	85.00000000000000
)

(Numb.8
	N:	85.00000000000000
)

(Nil.9
)

(CPanel.10
	Child:	11
	Child:	12
	Child:	13
	Child:	14
	Child:	16
	Child:	17
	ResBox:	18
	ResBox:	19
	ResBox:	20
	ResBox:	21
	ResBox:	22
	ResBox:	23
	Listening:	1
)

(LButn.11
	InternalName:	"btnPrev"
	Disabled:	1
	Label:	"<---- Previous"
	Click:	"avdxf.DialogControls"
)

(LButn.12
	InternalName:	"btnNext"
	Label:	"Next ---->"
	Click:	"avdxf.DialogControls"
)

(LButn.13
	InternalName:	"btnCancel"
	Label:	"Cancel"
	Click:	"avdxf.DialogControls"
)

(TextBox.14
	InternalName:	"tboxInfo"
	Disabled:	1
	Listening:	1
	ReadOnly:	1
	Text:	"This is a modified version of the ArcView DXF Conversion Wizard.  This tool will enable you to convert ArcView Feature themes based on  shapefiles, PC ARC/INFO coverages, or ARC/INFO coverages, into Drawing Interchange Format (DXF) files.  Shape geometry, text labels, and block inserts containing database information with attributes, can now be created using a field selection in your theme table.  This allows you to customize the layers, linetypes and colors for  objects being created. Color and linetype wi
ll be set \"bylayer\" whenever possible. If color and/or linetype are set by field value and you haven't selected field value to create the layer names then color and/or linetype will be set by entity. If you choose the same layer name as the shape geometry while building text or blocks, the colors and/or linetypes will be set by entity. If the user has selected specific features via a spatial or database query, only selected features will be converted.  Use the Prev and Next buttons to navigate, or Cancel to
 quit at any time."
	Constraints:	0x55
	NextControl:	15
)

(Nil.15
)

(TextLabel.16
	InternalName:	"labelTheme"
	Constraints:	0x55
	Label:	"View1:City limits poly.shp"
	Listening:	1
)

(TextLabel.17
	InternalName:	"labelClass"
	Constraints:	0x55
	Label:	"Polygon"
	Listening:	1
)

(RectD.18
	Left:	63.00000000000000
	Top:	306.00000000000000
	Right:	202.00000000000000
	Bottom:	272.00000000000000
)

(RectD.19
	Left:	227.00000000000000
	Top:	306.00000000000000
	Right:	366.00000000000000
	Bottom:	272.00000000000000
)

(RectD.20
	Left:	391.00000000000000
	Top:	306.00000000000000
	Right:	530.00000000000000
	Bottom:	272.00000000000000
)

(RectD.21
	Left:	27.00000000000000
	Top:	218.00000000000000
	Right:	567.00000000000000
	Bottom:	6.00000000000000
)

(RectD.22
	Left:	40.00000000000000
	Top:	253.00000000000000
	Right:	272.00000000000000
	Bottom:	232.00000000000000
)

(RectD.23
	Left:	340.00000000000000
	Top:	251.00000000000000
	Right:	550.00000000000000
	Bottom:	232.00000000000000
)

(Nil.24
)

(AVDLog.25
	Name:	"dxf.Dialog2"
	X:	23
	Y:	50
	W:	563
	H:	341
	ConstrainedControlNames:	26
	ConstrainedControlNames:	27
	ConstrainedControlNames:	28
	ConstrainedControlNames:	29
	Constraints:	30
	Constraints:	31
	Constraints:	32
	Constraints:	33
	Server:	9
	ControlPanel:	34
	Title:	"DXF Conversion Extension --- Output File Selection"
	EscapeEnabled:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	DefaultButton:	37
)

(AVStr.26
	S:	"btnCancel"
)

(AVStr.27
	S:	"btnNext"
)

(AVStr.28
	S:	"btnPrev"
)

(AVStr.29
	S:	"btnBrowse"
)

(Numb.30
	N:	85.00000000000000
)

(Numb.31
	N:	85.00000000000000
)

(Numb.32
	N:	85.00000000000000
)

(Numb.33
	N:	85.00000000000000
)

(CPanel.34
	Child:	35
	Child:	36
	Child:	37
	Child:	38
	Child:	39
	Child:	41
	Child:	42
	ResBox:	43
	ResBox:	44
	ResBox:	45
	ResBox:	46
	ResBox:	47
	ResBox:	48
	ResBox:	49
	Listening:	1
)

(TextBox.35
	InternalName:	"tboxInfo"
	Disabled:	1
	Listening:	1
	ReadOnly:	1
	Text:	"First, we need to specify an output file for the DXF data.  Enter a file name below in the text box, or press the Browse button to enter the file name dialog."
	Constraints:	0x55
	NextControl:	15
)

(LButn.36
	InternalName:	"btnCancel"
	Label:	"Cancel"
	Click:	"avdxf.DialogControls"
)

(LButn.37
	InternalName:	"btnNext"
	Label:	"Next ---->"
	Click:	"avdxf.DialogControls"
)

(LButn.38
	InternalName:	"btnPrev"
	Label:	"<---- Previous"
	Click:	"avdxf.DialogControls"
)

(TextLine.39
	InternalName:	"textFileName"
	Constraints:	0x55
	Listening:	1
	TextType:	40
	NextControl:	15
)

(AVEnum.40
	Name:	"TEXTLINE_TYPE_ALL"
)

(LButn.41
	InternalName:	"btnBrowse"
	Label:	"Browse..."
	Click:	"avdxf.DialogControls"
)

(TextLabel.42
	InternalName:	"aTextLabel1"
	Constraints:	0x55
	Label:	"DXF File Name"
	Listening:	1
)

(RectD.43
	Left:	20.00000000000000
	Top:	74.00000000000000
	Right:	541.00000000000000
	Bottom:	18.00000000000000
)

(RectD.44
	Left:	375.00000000000000
	Top:	292.00000000000000
	Right:	514.00000000000000
	Bottom:	258.00000000000000
)

(RectD.45
	Left:	211.00000000000000
	Top:	292.00000000000000
	Right:	350.00000000000000
	Bottom:	258.00000000000000
)

(RectD.46
	Left:	47.00000000000000
	Top:	292.00000000000000
	Right:	186.00000000000000
	Bottom:	258.00000000000000
)

(RectD.47
	Left:	21.00000000000000
	Top:	166.00000000000000
	Right:	539.00000000000000
	Bottom:	146.00000000000000
)

(RectD.48
	Left:	33.00000000000000
	Top:	218.00000000000000
	Right:	146.00000000000000
	Bottom:	190.00000000000000
)

(RectD.49
	Left:	34.00000000000000
	Top:	149.00000000000000
	Right:	134.00000000000000
	Bottom:	127.00000000000000
)

(AVDLog.50
	Name:	"dxf.Dialog3"
	X:	16
	Y:	51
	W:	612
	H:	343
	ConstrainedControlNames:	51
	ConstrainedControlNames:	52
	ConstrainedControlNames:	53
	Constraints:	54
	Constraints:	55
	Constraints:	56
	Server:	9
	ControlPanel:	57
	Title:	"Export Shape Geometry"
	EscapeEnabled:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	DefaultButton:	59
)

(AVStr.51
	S:	"btnPrev"
)

(AVStr.52
	S:	"btnNext"
)

(AVStr.53
	S:	"btnCancel"
)

(Numb.54
	N:	85.00000000000000
)

(Numb.55
	N:	85.00000000000000
)

(Numb.56
	N:	85.00000000000000
)

(CPanel.57
	Child:	58
	Child:	59
	Child:	60
	Child:	61
	Child:	62
	ResBox:	67
	ResBox:	68
	ResBox:	69
	ResBox:	70
	ResBox:	71
	Listening:	1
)

(LButn.58
	InternalName:	"btnPrev"
	Label:	"<---- Previous"
	Click:	"avdxf.DialogControls"
)

(LButn.59
	InternalName:	"btnNext"
	Label:	"Next ---->"
	Click:	"avdxf.DialogControls"
)

(LButn.60
	InternalName:	"btnCancel"
	Label:	"Cancel"
	Click:	"avdxf.DialogControls"
)

(TextBox.61
	InternalName:	"tboxInfo"
	Disabled:	1
	Listening:	1
	ReadOnly:	1
	Text:	"Points, lines, and polygons will be exported as points, polylines, and closed polylines.  The DXF layer(s) need to have a unique name, layer color, and layer linetype; or they can be generated using the unique values in a field to create more than one layer name, color or line type. Point features, will always use a solid (CONTINUOUS) linetype.  If you are creating data blocks and the feature class is Point, then you may wish to skip the geometry, since you will be creating a block at the same spot as the p
oint object. "
	Constraints:	0x55
	NextControl:	15
)

(CPanel.62
	InternalName:	"panel3"
	Child:	63
	Child:	64
	Constraints:	0x55
	ResBox:	65
	ResBox:	66
	Label:	"Shape Geometry"
	VisibleBorder:	1
	Listening:	1
)

(RButn.63
	InternalName:	"rdoExport"
	Constraints:	0x55
	Listening:	1
	Label:	"Export Shape Geometry"
)

(RButn.64
	InternalName:	"rdoSkip"
	Constraints:	0x55
	Listening:	1
	Label:	"Skip Shape Geometry"
)

(RectD.65
	Left:	27.00000000000000
	Top:	56.00000000000000
	Right:	240.00000000000000
	Bottom:	32.00000000000000
)

(RectD.66
	Left:	270.00000000000000
	Top:	56.00000000000000
	Right:	484.00000000000000
	Bottom:	32.00000000000000
)

(RectD.67
	Left:	70.00000000000000
	Top:	310.00000000000000
	Right:	209.00000000000000
	Bottom:	277.00000000000000
)

(RectD.68
	Left:	234.00000000000000
	Top:	310.00000000000000
	Right:	373.00000000000000
	Bottom:	277.00000000000000
)

(RectD.69
	Left:	398.00000000000000
	Top:	310.00000000000000
	Right:	537.00000000000000
	Bottom:	277.00000000000000
)

(RectD.70
	Left:	36.00000000000000
	Top:	133.00000000000000
	Right:	580.00000000000000
	Bottom:	16.00000000000000
)

(RectD.71
	Left:	35.00000000000000
	Top:	241.00000000000000
	Right:	579.00000000000000
	Bottom:	166.00000000000000
)

(AVDLog.72
	Name:	"dxf.Dialog4"
	X:	38
	Y:	44
	W:	596
	H:	406
	ConstrainedControlNames:	73
	ConstrainedControlNames:	74
	ConstrainedControlNames:	75
	Constraints:	76
	Constraints:	77
	Constraints:	78
	Server:	9
	ControlPanel:	79
	Title:	"Configure Shape Geometry Layer"
	EscapeEnabled:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	DefaultButton:	88
)

(AVStr.73
	S:	"btnCancel"
)

(AVStr.74
	S:	"btnNext"
)

(AVStr.75
	S:	"btnPrev"
)

(Numb.76
	N:	85.00000000000000
)

(Numb.77
	N:	85.00000000000000
)

(Numb.78
	N:	85.00000000000000
)

(CPanel.79
	Child:	80
	Child:	85
	Child:	87
	Child:	88
	Child:	89
	Child:	90
	Child:	91
	Child:	93
	Child:	100
	Child:	101
	Child:	102
	Child:	112
	Child:	113
	Child:	114
	Child:	121
	Child:	122
	Child:	82
	Child:	95
	Child:	116
	Child:	104
	ResBox:	123
	ResBox:	124
	ResBox:	125
	ResBox:	126
	ResBox:	127
	ResBox:	128
	ResBox:	129
	ResBox:	130
	ResBox:	131
	ResBox:	132
	ResBox:	133
	ResBox:	134
	ResBox:	135
	ResBox:	136
	ResBox:	137
	ResBox:	138
	ResBox:	139
	ResBox:	140
	ResBox:	141
	ResBox:	142
	Listening:	1
)

(TextLine.80
	InternalName:	"textLayerName"
	Update:	"avdxf.ToggleUpdate"
	Constraints:	0x55
	Listening:	1
	TextType:	81
	NextControl:	82
)

(AVEnum.81
	Name:	"TEXTLINE_TYPE_ALL"
)

(AVLBox.82
	InternalName:	"lboxColor"
	Update:	"avdxf.ToggleUpdate"
	NextControl:	83
	ContentKind:	4
	Constraints:	0x55
	Listening:	1
	VerticalScroll:	1
	SelectionStyle:	84
)

(Nil.83
)

(AVEnum.84
	Name:	"LISTBOX_SELECTION_SINGLECELL"
)

(AVLBox.85
	InternalName:	"lboxLinetype"
	Update:	"avdxf.ToggleUpdate"
	NextControl:	80
	ContentKind:	4
	Constraints:	0x55
	Listening:	1
	VerticalScroll:	1
	SelectionStyle:	86
)

(AVEnum.86
	Name:	"LISTBOX_SELECTION_SINGLECELL"
)

(LButn.87
	InternalName:	"btnCancel"
	Label:	"Cancel"
	Click:	"avdxf.DialogControls"
)

(LButn.88
	InternalName:	"btnNext"
	Label:	"Next ---->"
	Click:	"avdxf.DialogControls"
)

(LButn.89
	InternalName:	"btnPrev"
	Label:	"<---- Previous"
	Click:	"avdxf.DialogControls"
)

(TextBox.90
	InternalName:	"tboxInfo"
	Disabled:	1
	Listening:	1
	ReadOnly:	1
	Text:	"Make sure your layer names have only alphanumeric characters and underscores to avoid errors.  If you are selecting by field, make sure the field values follow the same alphanumeric character rules.  Object size is in map units and will be used for the point size or the line width, depending on the feature class."
	Constraints:	0x55
	NextControl:	83
)

(TextLine.91
	InternalName:	"textSize"
	Label:	"Object Size"
	Constraints:	0x55
	Listening:	1
	TextType:	92
	NextControl:	83
)

(AVEnum.92
	Name:	"TEXTLINE_TYPE_REAL"
)

(CPanel.93
	InternalName:	"ctrlLayer"
	Child:	94
	Child:	97
	Constraints:	0x55
	ResBox:	98
	ResBox:	99
	Label:	"Layer Control"
	VisibleBorder:	1
	Listening:	1
)

(RButn.94
	InternalName:	"rdoLayerField"
	Constraints:	0x55
	Listener:	95
	Listener:	80
	Listening:	1
	Label:	"By Field"
	Click:	"avdxf.AddedControls"
)

(AVLBox.95
	InternalName:	"lBoxLayer"
	Disabled:	1
	Invisible:	1
	Update:	"avdxf.ToggleUpdate"
	NextControl:	83
	ContentKind:	4
	Constraints:	0x55
	Listening:	1
	VerticalScroll:	1
	SelectionStyle:	96
)

(AVEnum.96
	Name:	"LISTBOX_SELECTION_SINGLECELL"
)

(RButn.97
	InternalName:	"rdoLayerName"
	Constraints:	0x55
	Listener:	95
	Listener:	80
	Listening:	1
	Label:	"By Name"
	Click:	"avdxf.AddedControls"
)

(RectD.98
	Left:	1.00000000000000
	Top:	39.00000000000000
	Right:	86.00000000000000
	Bottom:	19.00000000000000
)

(RectD.99
	Left:	1.00000000000000
	Top:	68.00000000000000
	Right:	86.00000000000000
	Bottom:	43.00000000000000
)

(TextLabel.100
	InternalName:	"aTextLabel17"
	Constraints:	0x55
	Label:	"Layer Name (One layer)"
	Listening:	1
)

(TextLabel.101
	InternalName:	"aTextLabel18"
	Constraints:	0x55
	Label:	"Field Name (More than 1 layer)"
	Listening:	1
)

(CPanel.102
	InternalName:	"ctrlColor"
	Child:	103
	Child:	109
	Constraints:	0x55
	ResBox:	110
	ResBox:	111
	Label:	"Color Control"
	VisibleBorder:	1
	Listening:	1
)

(RButn.103
	InternalName:	"rdoColorField"
	Constraints:	0x55
	Listener:	104
	Listener:	82
	Listening:	1
	Label:	"By Field"
	Click:	"avdxf.AddedControls"
)

(AVLBox.104
	InternalName:	"lBox2Color"
	Disabled:	1
	Invisible:	1
	Update:	"avdxf.ToggleUpdate"
	NextControl:	83
	ContentKind:	4
	Constraints:	0x55
	Listening:	1
	VerticalScroll:	1
	Select:	"avdxf.ValidateFields"
	SelectionStyle:	105
	RangeSelect:	106
	RangeSelect:	106
	RangeSelectRect:	107
	RangeSelectRect:	108
)

(AVEnum.105
	Name:	"LISTBOX_SELECTION_SINGLECELL"
)

(AVStr.106
)

(RectD.107
	Left:	-1.00000000000000
	Top:	32766.00000000000000
	Right:	-1.00000000000000
)

(RectD.108
	Left:	-1.00000000000000
	Top:	32766.00000000000000
	Right:	-1.00000000000000
)

(RButn.109
	InternalName:	"rdoColorName"
	Constraints:	0x55
	Listener:	104
	Listener:	82
	Listening:	1
	Label:	"By Name"
	Click:	"avdxf.AddedControls"
)

(RectD.110
	Left:	2.00000000000000
	Top:	40.00000000000000
	Right:	90.00000000000000
	Bottom:	16.00000000000000
)

(RectD.111
	Left:	2.00000000000000
	Top:	64.00000000000000
	Right:	87.00000000000000
	Bottom:	43.00000000000000
)

(TextLabel.112
	InternalName:	"aTextLabel24"
	Constraints:	0x55
	Label:	"Field Name (More than 1 Color)"
	Listening:	1
)

(TextLabel.113
	InternalName:	"aTextLabel25"
	Constraints:	0x55
	Label:	"Color Name (One color)"
	Listening:	1
)

(CPanel.114
	InternalName:	"ctrlLtype"
	Child:	115
	Child:	118
	Constraints:	0x55
	ResBox:	119
	ResBox:	120
	Label:	"LType Control"
	VisibleBorder:	1
	Listening:	1
)

(RButn.115
	InternalName:	"rdoLtypeField"
	Constraints:	0x55
	Listener:	116
	Listener:	85
	Listening:	1
	Label:	"By Field"
	Click:	"avdxf.AddedControls"
)

(AVLBox.116
	InternalName:	"lBox2LineType"
	Disabled:	1
	Invisible:	1
	Update:	"avdxf.ToggleUpdate"
	NextControl:	83
	ContentKind:	4
	Constraints:	0x55
	Listening:	1
	VerticalScroll:	1
	Select:	"avdxf.ValidateFields"
	SelectionStyle:	117
)

(AVEnum.117
	Name:	"LISTBOX_SELECTION_SINGLECELL"
)

(RButn.118
	InternalName:	"rdoLtypeName"
	Constraints:	0x55
	Listener:	116
	Listener:	85
	Listening:	1
	Label:	"By Name"
	Click:	"avdxf.AddedControls"
)

(RectD.119
	Left:	2.00000000000000
	Top:	42.00000000000000
	Right:	83.00000000000000
	Bottom:	20.00000000000000
)

(RectD.120
	Left:	2.00000000000000
	Top:	66.00000000000000
	Right:	90.00000000000000
	Bottom:	48.00000000000000
)

(TextLabel.121
	InternalName:	"aTextLabel29"
	Constraints:	0x55
	Label:	"Field Name (More than 1 Line Type)"
	Listening:	1
)

(TextLabel.122
	InternalName:	"aTextLabel31"
	Constraints:	0x55
	Label:	"Line Type Name (One line type)"
	Listening:	1
)

(RectD.123
	Left:	100.00000000000000
	Top:	189.00000000000000
	Right:	281.00000000000000
	Bottom:	169.00000000000000
)

(RectD.124
	Left:	107.00000000000000
	Top:	348.00000000000000
	Right:	377.00000000000000
	Bottom:	287.00000000000000
)

(RectD.125
	Left:	385.00000000000000
	Top:	393.00000000000000
	Right:	524.00000000000000
	Bottom:	359.00000000000000
)

(RectD.126
	Left:	221.00000000000000
	Top:	394.00000000000000
	Right:	360.00000000000000
	Bottom:	360.00000000000000
)

(RectD.127
	Left:	59.00000000000000
	Top:	393.00000000000000
	Right:	197.00000000000000
	Bottom:	359.00000000000000
)

(RectD.128
	Left:	22.00000000000000
	Top:	87.00000000000000
	Right:	565.00000000000000
	Bottom:	10.00000000000000
)

(RectD.129
	Left:	423.00000000000000
	Top:	338.00000000000000
	Right:	570.00000000000000
	Bottom:	318.00000000000000
)

(RectD.130
	Left:	9.00000000000000
	Top:	179.00000000000000
	Right:	97.00000000000000
	Bottom:	104.00000000000000
)

(RectD.131
	Left:	110.00000000000000
	Top:	166.00000000000000
	Right:	267.00000000000000
	Bottom:	151.00000000000000
)

(RectD.132
	Left:	106.00000000000000
	Top:	127.00000000000000
	Right:	304.00000000000000
	Bottom:	107.00000000000000
)

(RectD.133
	Left:	298.00000000000000
	Top:	177.00000000000000
	Right:	387.00000000000000
	Bottom:	106.00000000000000
)

(RectD.134
	Left:	396.00000000000000
	Top:	125.00000000000000
	Right:	594.00000000000000
	Bottom:	106.00000000000000
)

(RectD.135
	Left:	404.00000000000000
	Top:	174.00000000000000
	Right:	561.00000000000000
	Bottom:	159.00000000000000
)

(RectD.136
	Left:	9.00000000000000
	Top:	269.00000000000000
	Right:	100.00000000000000
	Bottom:	197.00000000000000
)

(RectD.137
	Left:	111.00000000000000
	Top:	221.00000000000000
	Right:	336.00000000000000
	Bottom:	200.00000000000000
)

(RectD.138
	Left:	117.00000000000000
	Top:	287.00000000000000
	Right:	319.00000000000000
	Bottom:	266.00000000000000
)

(RectD.139
	Left:	401.00000000000000
	Top:	307.00000000000000
	Right:	571.00000000000000
	Bottom:	178.00000000000000
)

(RectD.140
	Left:	106.00000000000000
	Top:	200.00000000000000
	Right:	280.00000000000000
	Bottom:	128.00000000000000
)

(RectD.141
	Left:	107.00000000000000
	Top:	348.00000000000000
	Right:	376.00000000000000
	Bottom:	217.00000000000000
)

(RectD.142
	Left:	402.00000000000000
	Top:	309.00000000000000
	Right:	570.00000000000000
	Bottom:	126.00000000000000
)

(AVDLog.143
	Name:	"dxf.Dialog5"
	X:	20
	Y:	44
	W:	592
	H:	326
	ConstrainedControlNames:	144
	ConstrainedControlNames:	145
	ConstrainedControlNames:	146
	Constraints:	147
	Constraints:	148
	Constraints:	149
	Server:	9
	ControlPanel:	150
	Title:	"Export Text Annotation"
	EscapeEnabled:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	DefaultButton:	158
)

(AVStr.144
	S:	"btnCancel"
)

(AVStr.145
	S:	"btnNext"
)

(AVStr.146
	S:	"btnPrev"
)

(Numb.147
	N:	85.00000000000000
)

(Numb.148
	N:	85.00000000000000
)

(Numb.149
	N:	85.00000000000000
)

(CPanel.150
	Child:	151
	Child:	156
	Child:	157
	Child:	158
	Child:	159
	ResBox:	160
	ResBox:	161
	ResBox:	162
	ResBox:	163
	ResBox:	164
	Listening:	1
)

(CPanel.151
	InternalName:	"panel5"
	Child:	152
	Child:	153
	Constraints:	0x55
	ResBox:	154
	ResBox:	155
	Label:	"Text Annotation"
	VisibleBorder:	1
	Listening:	1
)

(RButn.152
	InternalName:	"rdoSkip"
	Constraints:	0x55
	Listening:	1
	Label:	"Skip Text Annotation"
)

(RButn.153
	InternalName:	"rdoExport"
	Constraints:	0x55
	Listening:	1
	Label:	"Export Text Annotation"
)

(RectD.154
	Left:	279.00000000000000
	Top:	55.00000000000000
	Right:	493.00000000000000
	Bottom:	31.00000000000000
)

(RectD.155
	Left:	35.00000000000000
	Top:	55.00000000000000
	Right:	249.00000000000000
	Bottom:	31.00000000000000
)

(TextBox.156
	InternalName:	"tboxInfo"
	Disabled:	1
	Listening:	1
	ReadOnly:	1
	Text:	"A layer of text annotation, placed at the center or insertion point of the feature, can be created, using the STANDARD font, and CONTINUOUS linetype. If you previously selected layer by field in the \"create shape geometry\" dialog and also select the same layer by field in this dialog, then the color of the text will be by entity."
	Constraints:	0x55
	NextControl:	15
)

(LButn.157
	InternalName:	"btnCancel"
	Label:	"Cancel"
	Click:	"avdxf.DialogControls"
)

(LButn.158
	InternalName:	"btnNext"
	Label:	"Next ---->"
	Click:	"avdxf.DialogControls"
)

(LButn.159
	InternalName:	"btnPrev"
	Label:	"<---- Previous"
	Click:	"avdxf.DialogControls"
)

(RectD.160
	Left:	26.00000000000000
	Top:	228.00000000000000
	Right:	567.00000000000000
	Bottom:	153.00000000000000
)

(RectD.161
	Left:	25.00000000000000
	Top:	110.00000000000000
	Right:	571.00000000000000
	Bottom:	31.00000000000000
)

(RectD.162
	Left:	394.00000000000000
	Top:	303.00000000000000
	Right:	533.00000000000000
	Bottom:	269.00000000000000
)

(RectD.163
	Left:	230.00000000000000
	Top:	303.00000000000000
	Right:	369.00000000000000
	Bottom:	269.00000000000000
)

(RectD.164
	Left:	66.00000000000000
	Top:	303.00000000000000
	Right:	205.00000000000000
	Bottom:	269.00000000000000
)

(AVDLog.165
	Name:	"dxf.Dialog6"
	X:	25
	Y:	50
	W:	621
	H:	384
	ConstrainedControlNames:	166
	ConstrainedControlNames:	167
	ConstrainedControlNames:	168
	Constraints:	169
	Constraints:	170
	Constraints:	171
	Server:	9
	ControlPanel:	172
	Title:	"Configure Text Annotation Layer"
	EscapeEnabled:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	DefaultButton:	175
)

(AVStr.166
	S:	"btnPrev"
)

(AVStr.167
	S:	"btnNext"
)

(AVStr.168
	S:	"btnCancel"
)

(Numb.169
	N:	85.00000000000000
)

(Numb.170
	N:	85.00000000000000
)

(Numb.171
	N:	85.00000000000000
)

(CPanel.172
	Child:	173
	Child:	174
	Child:	175
	Child:	176
	Child:	177
	Child:	178
	Child:	179
	Child:	181
	Child:	183
	Child:	185
	Child:	187
	Child:	196
	Child:	197
	Child:	198
	Child:	205
	Child:	200
	Child:	189
	ResBox:	206
	ResBox:	207
	ResBox:	208
	ResBox:	209
	ResBox:	210
	ResBox:	211
	ResBox:	212
	ResBox:	213
	ResBox:	214
	ResBox:	215
	ResBox:	216
	ResBox:	217
	ResBox:	218
	ResBox:	219
	ResBox:	220
	ResBox:	221
	ResBox:	222
	Listening:	1
)

(TextBox.173
	InternalName:	"tboxInfo"
	Disabled:	1
	Listening:	1
	ReadOnly:	1
	Text:	"Make sure your layer names have only alphanumeric characters and underscores to avoid errors.  Fields names that use spaces, or other non-underscore characters may cause errors, an attempt will be made to rectify these.  Enter size, in map units, for the text."
	Constraints:	0x55
	NextControl:	83
)

(LButn.174
	InternalName:	"btnPrev"
	Label:	"<---- Previous"
	Click:	"avdxf.DialogControls"
)

(LButn.175
	InternalName:	"btnNext"
	Label:	"Next ---->"
	Click:	"avdxf.DialogControls"
)

(LButn.176
	InternalName:	"btnCancel"
	Label:	"Cancel"
	Click:	"avdxf.DialogControls"
)

(TextLabel.177
	InternalName:	"labelTextField"
	Constraints:	0x55
	Label:	"Text Field"
	Listening:	1
)

(TextLabel.178
	InternalName:	"labelColor"
	Constraints:	0x55
	Label:	"Color Name (1 Color)"
	Listening:	1
)

(AVLBox.179
	InternalName:	"lboxTextField"
	Update:	"avdxf.ToggleUpdate"
	NextControl:	83
	ContentKind:	4
	Constraints:	0x55
	Listening:	1
	VerticalScroll:	1
	SelectionStyle:	180
)

(AVEnum.180
	Name:	"LISTBOX_SELECTION_SINGLECELL"
)

(AVLBox.181
	InternalName:	"lboxColor"
	Update:	"avdxf.ToggleUpdate"
	NextControl:	83
	ContentKind:	4
	Constraints:	0x55
	Listening:	1
	VerticalScroll:	1
	SelectionStyle:	182
)

(AVEnum.182
	Name:	"LISTBOX_SELECTION_SINGLECELL"
)

(TextLine.183
	InternalName:	"textLayerName"
	Disabled:	1
	Update:	"avdxf.ToggleUpdate"
	Constraints:	0x55
	Listening:	1
	TextType:	184
	NextControl:	83
)

(AVEnum.184
	Name:	"TEXTLINE_TYPE_ALL"
)

(TextLine.185
	InternalName:	"textSize"
	Label:	"Text Size"
	Constraints:	0x55
	Listening:	1
	TextType:	186
	NextControl:	83
)

(AVEnum.186
	Name:	"TEXTLINE_TYPE_REAL"
)

(CPanel.187
	InternalName:	"control6Layer"
	Child:	188
	Child:	191
	Child:	192
	Constraints:	0x55
	ResBox:	193
	ResBox:	194
	ResBox:	195
	Label:	"Layer Control"
	VisibleBorder:	1
	Listening:	1
)

(RButn.188
	InternalName:	"rdoLayerField"
	Constraints:	0x55
	Listener:	189
	Listener:	183
	Listening:	1
	Label:	"By Field"
	Click:	"avdxf.AddedControls"
)

(AVLBox.189
	InternalName:	"lBoxLayer"
	Disabled:	1
	Invisible:	1
	Update:	"avdxf.ToggleUpdate"
	NextControl:	83
	ContentKind:	4
	Constraints:	0x55
	Listening:	1
	VerticalScroll:	1
	SelectionStyle:	190
)

(AVEnum.190
	Name:	"LISTBOX_SELECTION_SINGLECELL"
)

(RButn.191
	InternalName:	"rdoLayerName"
	Constraints:	0x55
	Listener:	189
	Listener:	183
	Listening:	1
	Label:	"By Name"
	Click:	"avdxf.AddedControls"
)

(CPanel.192
	InternalName:	"aControlPanel7"
	Constraints:	0x55
	Label:	"aControlPanel7"
	VisibleBorder:	1
	Listening:	1
)

(RectD.193
	Left:	1.00000000000000
	Top:	37.00000000000000
	Right:	89.00000000000000
	Bottom:	19.00000000000000
)

(RectD.194
	Left:	2.00000000000000
	Top:	64.00000000000000
	Right:	87.00000000000000
	Bottom:	43.00000000000000
)

(RectD.195
	Left:	651.00000000000000
	Top:	261.00000000000000
	Right:	655.00000000000000
	Bottom:	261.00000000000000
)

(TextLabel.196
	InternalName:	"aTextLabel5"
	Constraints:	0x55
	Label:	"Field Name (More than 1 layer)"
	Listening:	1
)

(TextLabel.197
	InternalName:	"aTextLabel6"
	Constraints:	0x55
	Label:	"Layer Name (One layer)"
	Listening:	1
)

(CPanel.198
	InternalName:	"control6Color"
	Child:	199
	Child:	202
	Constraints:	0x55
	ResBox:	203
	ResBox:	204
	Label:	"Color Control"
	VisibleBorder:	1
	Listening:	1
)

(RButn.199
	InternalName:	"rdoColorField"
	Constraints:	0x55
	Listener:	200
	Listener:	181
	Listening:	1
	Label:	"By Field"
	Click:	"avdxf.AddedControls"
)

(AVLBox.200
	InternalName:	"lBox2Color"
	Disabled:	1
	Invisible:	1
	Update:	"avdxf.ToggleUpdate"
	NextControl:	83
	ContentKind:	4
	Constraints:	0x55
	Listening:	1
	VerticalScroll:	1
	Select:	"avdxf.ValidateFields"
	SelectionStyle:	201
)

(AVEnum.201
	Name:	"LISTBOX_SELECTION_SINGLECELL"
)

(RButn.202
	InternalName:	"rdoColorName"
	Constraints:	0x55
	Listener:	200
	Listener:	181
	Listening:	1
	Label:	"By Name"
	Click:	"avdxf.AddedControls"
)

(RectD.203
	Left:	1.00000000000000
	Top:	36.00000000000000
	Right:	84.00000000000000
	Bottom:	19.00000000000000
)

(RectD.204
	Left:	2.00000000000000
	Top:	63.00000000000000
	Right:	93.00000000000000
	Bottom:	44.00000000000000
)

(TextLabel.205
	InternalName:	"aTextLabel12"
	Constraints:	0x55
	Label:	"Field Name (More than 1 color)"
	Listening:	1
)

(RectD.206
	Left:	41.00000000000000
	Top:	82.00000000000000
	Right:	583.00000000000000
	Bottom:	8.00000000000000
)

(RectD.207
	Left:	70.00000000000000
	Top:	371.00000000000000
	Right:	208.00000000000000
	Bottom:	337.00000000000000
)

(RectD.208
	Left:	233.00000000000000
	Top:	371.00000000000000
	Right:	372.00000000000000
	Bottom:	337.00000000000000
)

(RectD.209
	Left:	397.00000000000000
	Top:	371.00000000000000
	Right:	536.00000000000000
	Bottom:	337.00000000000000
)

(RectD.210
	Left:	36.00000000000000
	Top:	222.00000000000000
	Right:	107.00000000000000
	Bottom:	202.00000000000000
)

(RectD.211
	Left:	432.00000000000000
	Top:	175.00000000000000
	Right:	566.00000000000000
	Bottom:	155.00000000000000
)

(RectD.212
	Left:	32.00000000000000
	Top:	317.00000000000000
	Right:	394.00000000000000
	Bottom:	224.00000000000000
)

(RectD.213
	Left:	430.00000000000000
	Top:	279.00000000000000
	Right:	596.00000000000000
	Bottom:	175.00000000000000
)

(RectD.214
	Left:	118.00000000000000
	Top:	193.00000000000000
	Right:	309.00000000000000
	Bottom:	173.00000000000000
)

(RectD.215
	Left:	430.00000000000000
	Top:	320.00000000000000
	Right:	577.00000000000000
	Bottom:	300.00000000000000
)

(RectD.216
	Left:	22.00000000000000
	Top:	176.00000000000000
	Right:	108.00000000000000
	Bottom:	102.00000000000000
)

(RectD.217
	Left:	123.00000000000000
	Top:	120.00000000000000
	Right:	321.00000000000000
	Bottom:	100.00000000000000
)

(RectD.218
	Left:	124.00000000000000
	Top:	170.00000000000000
	Right:	282.00000000000000
	Bottom:	155.00000000000000
)

(RectD.219
	Left:	322.00000000000000
	Top:	181.00000000000000
	Right:	409.00000000000000
	Bottom:	106.00000000000000
)

(RectD.220
	Left:	421.00000000000000
	Top:	116.00000000000000
	Right:	618.00000000000000
	Bottom:	96.00000000000000
)

(RectD.221
	Left:	427.00000000000000
	Top:	280.00000000000000
	Right:	595.00000000000000
	Bottom:	117.00000000000000
)

(RectD.222
	Left:	120.00000000000000
	Top:	213.00000000000000
	Right:	309.00000000000000
	Bottom:	118.00000000000000
)

(AVDLog.223
	Name:	"dxf.Dialog7"
	X:	8
	Y:	50
	W:	591
	H:	344
	ConstrainedControlNames:	224
	ConstrainedControlNames:	225
	ConstrainedControlNames:	226
	Constraints:	227
	Constraints:	228
	Constraints:	229
	Server:	9
	ControlPanel:	230
	Title:	"Export Data Blocks"
	EscapeEnabled:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	DefaultButton:	238
)

(AVStr.224
	S:	"btnCancel"
)

(AVStr.225
	S:	"btnNext"
)

(AVStr.226
	S:	"btnPrev"
)

(Numb.227
	N:	85.00000000000000
)

(Numb.228
	N:	85.00000000000000
)

(Numb.229
	N:	85.00000000000000
)

(CPanel.230
	Child:	231
	Child:	236
	Child:	237
	Child:	238
	Child:	239
	ResBox:	240
	ResBox:	241
	ResBox:	242
	ResBox:	243
	ResBox:	244
	Listening:	1
)

(CPanel.231
	InternalName:	"panel7"
	Child:	232
	Child:	233
	Constraints:	0x55
	ResBox:	234
	ResBox:	235
	Label:	"Data Blocks"
	VisibleBorder:	1
	Listening:	1
)

(RButn.232
	InternalName:	"rdoSkip"
	Constraints:	0x55
	Listening:	1
	Label:	"Skip Data Blocks"
)

(RButn.233
	InternalName:	"rdoExport"
	Constraints:	0x55
	Listening:	1
	Label:	"Export Data Blocks"
)

(RectD.234
	Left:	273.00000000000000
	Top:	55.00000000000000
	Right:	487.00000000000000
	Bottom:	31.00000000000000
)

(RectD.235
	Left:	30.00000000000000
	Top:	55.00000000000000
	Right:	243.00000000000000
	Bottom:	31.00000000000000
)

(TextBox.236
	InternalName:	"tboxInfo"
	Disabled:	1
	Listening:	1
	ReadOnly:	1
	Text:	"Layers containing database values can be created by making block inserts with attribute tags corresponding to the selected fields.  "
	Constraints:	0x55
	NextControl:	15
)

(LButn.237
	InternalName:	"btnCancel"
	Label:	"Cancel"
	Click:	"avdxf.DialogControls"
)

(LButn.238
	InternalName:	"btnNext"
	Label:	"Next ---->"
	Click:	"avdxf.DialogControls"
)

(LButn.239
	InternalName:	"btnPrev"
	Label:	"<---- Previous"
	Click:	"avdxf.DialogControls"
)

(RectD.240
	Left:	30.00000000000000
	Top:	214.00000000000000
	Right:	571.00000000000000
	Bottom:	139.00000000000000
)

(RectD.241
	Left:	25.00000000000000
	Top:	70.00000000000000
	Right:	571.00000000000000
	Bottom:	12.00000000000000
)

(RectD.242
	Left:	394.00000000000000
	Top:	321.00000000000000
	Right:	533.00000000000000
	Bottom:	287.00000000000000
)

(RectD.243
	Left:	230.00000000000000
	Top:	321.00000000000000
	Right:	369.00000000000000
	Bottom:	287.00000000000000
)

(RectD.244
	Left:	67.00000000000000
	Top:	321.00000000000000
	Right:	206.00000000000000
	Bottom:	287.00000000000000
)

(AVDLog.245
	Name:	"dxf.Dialog8"
	X:	24
	Y:	45
	W:	617
	H:	433
	ConstrainedControlNames:	246
	ConstrainedControlNames:	247
	ConstrainedControlNames:	248
	Constraints:	249
	Constraints:	250
	Constraints:	251
	Server:	9
	ControlPanel:	252
	Title:	"Configure Data Blocks Layer"
	EscapeEnabled:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	DefaultButton:	260
)

(AVStr.246
	S:	"btnCancel"
)

(AVStr.247
	S:	"btnNext"
)

(AVStr.248
	S:	"btnPrev"
)

(Numb.249
	N:	85.00000000000000
)

(Numb.250
	N:	85.00000000000000
)

(Numb.251
	N:	85.00000000000000
)

(CPanel.252
	Child:	253
	Child:	255
	Child:	257
	Child:	259
	Child:	260
	Child:	261
	Child:	262
	Child:	263
	Child:	265
	Child:	267
	Child:	269
	Child:	270
	Child:	271
	Child:	278
	Child:	285
	Child:	292
	Child:	293
	Child:	294
	Child:	295
	Child:	296
	Child:	273
	Child:	280
	Child:	287
	ResBox:	297
	ResBox:	298
	ResBox:	299
	ResBox:	300
	ResBox:	301
	ResBox:	302
	ResBox:	303
	ResBox:	304
	ResBox:	305
	ResBox:	306
	ResBox:	307
	ResBox:	308
	ResBox:	309
	ResBox:	310
	ResBox:	311
	ResBox:	312
	ResBox:	313
	ResBox:	314
	ResBox:	315
	ResBox:	316
	ResBox:	317
	ResBox:	318
	ResBox:	319
	Listening:	1
)

(TextLine.253
	InternalName:	"textLayerName"
	Update:	"avdxf.ToggleUpdate"
	Constraints:	0x55
	Listening:	1
	TextType:	254
	NextControl:	83
)

(AVEnum.254
	Name:	"TEXTLINE_TYPE_ALL"
)

(AVLBox.255
	InternalName:	"lboxColor"
	Update:	"avdxf.ToggleUpdate"
	NextControl:	83
	ContentKind:	4
	Constraints:	0x55
	Listening:	1
	VerticalScroll:	1
	SelectionStyle:	256
)

(AVEnum.256
	Name:	"LISTBOX_SELECTION_SINGLECELL"
)

(AVLBox.257
	InternalName:	"lboxDataFields"
	NextControl:	83
	ContentKind:	4
	Constraints:	0x55
	Listening:	1
	VerticalScroll:	1
	SelectionStyle:	258
)

(AVEnum.258
	Name:	"LISTBOX_SELECTION_MULTIRANGE"
)

(LButn.259
	InternalName:	"btnCancel"
	Label:	"Cancel"
	Click:	"avdxf.DialogControls"
)

(LButn.260
	InternalName:	"btnNext"
	Label:	"Next ---->"
	Click:	"avdxf.DialogControls"
)

(LButn.261
	InternalName:	"btnPrev"
	Label:	"<---- Previous"
	Click:	"avdxf.DialogControls"
)

(TextBox.262
	InternalName:	"tboxInfo"
	Disabled:	1
	Listening:	1
	ReadOnly:	1
	Text:	"Layer names and data fields may contain only alphanumeric characters and underscores to avoid errors.  Non-conforming strings will be converted if possible.  Enter size, in map units, for the blocks.  Pick a symbol to use for points and blocks.  Give the block a name that will be unique in your drawing.  Check off the Data Fields box and select the fields to be used as attribute tags if desired."
	Constraints:	0x55
	NextControl:	83
)

(TextLine.263
	InternalName:	"textSize"
	Label:	"Block Size"
	Constraints:	0x55
	Listening:	1
	TextType:	264
	NextControl:	83
)

(AVEnum.264
	Name:	"TEXTLINE_TYPE_REAL"
)

(AVLBox.265
	InternalName:	"lboxBlock"
	Update:	"avdxf.ToggleUpdate"
	NextControl:	83
	ContentKind:	4
	Constraints:	0x55
	Listening:	1
	VerticalScroll:	1
	SelectionStyle:	266
)

(AVEnum.266
	Name:	"LISTBOX_SELECTION_SINGLECELL"
)

(TextLine.267
	InternalName:	"textBlockName"
	Label:	"Block Name"
	Constraints:	0x55
	Listening:	1
	TextType:	268
	NextControl:	83
)

(AVEnum.268
	Name:	"TEXTLINE_TYPE_ALL"
)

(TextLabel.269
	InternalName:	"labelBlockSymbol"
	Constraints:	0x55
	Label:	"Block Symbol"
	Listening:	1
)

(AVCBox.270
	InternalName:	"checkData"
	Listening:	1
	Selected:	1
	Label:	"Data Fields"
	Constraints:	0x55
)

(CPanel.271
	InternalName:	"control8Layer"
	Child:	272
	Child:	275
	Constraints:	0x55
	ResBox:	276
	ResBox:	277
	Label:	"Layer Control"
	VisibleBorder:	1
	Listening:	1
)

(RButn.272
	InternalName:	"rdoLayerField"
	Constraints:	0x55
	Listener:	273
	Listener:	253
	Listening:	1
	Label:	"By Field"
	Click:	"avdxf.AddedControls"
)

(AVLBox.273
	InternalName:	"lBoxLayer"
	Disabled:	1
	Invisible:	1
	Update:	"avdxf.ToggleUpdate"
	NextControl:	83
	ContentKind:	4
	Constraints:	0x55
	Listening:	1
	VerticalScroll:	1
	SelectionStyle:	274
)

(AVEnum.274
	Name:	"LISTBOX_SELECTION_SINGLECELL"
)

(RButn.275
	InternalName:	"rdoLayerName"
	Constraints:	0x55
	Listener:	273
	Listener:	253
	Listening:	1
	Label:	"By Name"
	Click:	"avdxf.AddedControls"
)

(RectD.276
	Left:	3.00000000000000
	Top:	35.00000000000000
	Right:	85.00000000000000
	Bottom:	19.00000000000000
)

(RectD.277
	Left:	1.00000000000000
	Top:	57.00000000000000
	Right:	87.00000000000000
	Bottom:	39.00000000000000
)

(CPanel.278
	InternalName:	"control8Block"
	Child:	279
	Child:	282
	Constraints:	0x55
	ResBox:	283
	ResBox:	284
	Label:	"Block Control"
	VisibleBorder:	1
	Listening:	1
)

(RButn.279
	InternalName:	"rdoBlockField"
	Constraints:	0x55
	Listener:	280
	Listener:	265
	Listening:	1
	Label:	"By Field"
	Click:	"avdxf.AddedControls"
)

(AVLBox.280
	InternalName:	"lBox2Block"
	Disabled:	1
	Invisible:	1
	Update:	"avdxf.ToggleUpdate"
	NextControl:	83
	ContentKind:	4
	Constraints:	0x55
	Listening:	1
	VerticalScroll:	1
	Select:	"avdxf.ValidateFields"
	SelectionStyle:	281
)

(AVEnum.281
	Name:	"LISTBOX_SELECTION_SINGLECELL"
)

(RButn.282
	InternalName:	"rdoBlockName"
	Constraints:	0x55
	Listener:	280
	Listener:	265
	Listening:	1
	Label:	"By Name"
	Click:	"avdxf.AddedControls"
)

(RectD.283
	Left:	2.00000000000000
	Top:	35.00000000000000
	Right:	85.00000000000000
	Bottom:	17.00000000000000
)

(RectD.284
	Left:	2.00000000000000
	Top:	58.00000000000000
	Right:	88.00000000000000
	Bottom:	38.00000000000000
)

(CPanel.285
	InternalName:	"control8Color"
	Child:	286
	Child:	289
	Constraints:	0x55
	ResBox:	290
	ResBox:	291
	Label:	"Color Control"
	VisibleBorder:	1
	Listening:	1
)

(RButn.286
	InternalName:	"rdoColorField"
	Constraints:	0x55
	Listener:	287
	Listener:	255
	Listening:	1
	Label:	"By Field"
	Click:	"avdxf.AddedControls"
)

(AVLBox.287
	InternalName:	"lBox2Color"
	Disabled:	1
	Invisible:	1
	Update:	"avdxf.ToggleUpdate"
	NextControl:	83
	ContentKind:	4
	Constraints:	0x55
	Listening:	1
	VerticalScroll:	1
	Select:	"avdxf.ValidateFields"
	SelectionStyle:	288
)

(AVEnum.288
	Name:	"LISTBOX_SELECTION_SINGLECELL"
)

(RButn.289
	InternalName:	"rdoColorName"
	Constraints:	0x55
	Listener:	287
	Listener:	255
	Listening:	1
	Label:	"By Name"
	Click:	"avdxf.AddedControls"
)

(RectD.290
	Top:	36.00000000000000
	Right:	83.00000000000000
	Bottom:	19.00000000000000
)

(RectD.291
	Top:	61.00000000000000
	Right:	83.00000000000000
	Bottom:	42.00000000000000
)

(TextLabel.292
	InternalName:	"aTextLabel26"
	Constraints:	0x55
	Label:	"Field Name (More than 1 layer)"
	Listening:	1
)

(TextLabel.293
	InternalName:	"aTextLabel27"
	Constraints:	0x55
	Label:	"Layer Name (One layer)"
	Listening:	1
)

(TextLabel.294
	InternalName:	"aTextLabel28"
	Constraints:	0x55
	Label:	"Symbol Name (More than 1 symbol)"
	Listening:	1
)

(TextLabel.295
	InternalName:	"aTextLabel30"
	Constraints:	0x55
	Label:	"Field Name (More than 1 color)"
	Listening:	1
)

(TextLabel.296
	InternalName:	"aTextLabel31"
	Constraints:	0x55
	Label:	"Color Name (One color)"
	Listening:	1
)

(RectD.297
	Left:	134.00000000000000
	Top:	192.00000000000000
	Right:	359.00000000000000
	Bottom:	172.00000000000000
)

(RectD.298
	Left:	138.00000000000000
	Top:	381.00000000000000
	Right:	365.00000000000000
	Bottom:	317.00000000000000
)

(RectD.299
	Left:	384.00000000000000
	Top:	375.00000000000000
	Right:	594.00000000000000
	Bottom:	195.00000000000000
)

(RectD.300
	Left:	390.00000000000000
	Top:	421.00000000000000
	Right:	529.00000000000000
	Bottom:	388.00000000000000
)

(RectD.301
	Left:	227.00000000000000
	Top:	421.00000000000000
	Right:	365.00000000000000
	Bottom:	388.00000000000000
)

(RectD.302
	Left:	63.00000000000000
	Top:	421.00000000000000
	Right:	201.00000000000000
	Bottom:	388.00000000000000
)

(RectD.303
	Left:	34.00000000000000
	Top:	99.00000000000000
	Right:	574.00000000000000
	Bottom:	5.00000000000000
)

(RectD.304
	Left:	385.00000000000000
	Top:	141.00000000000000
	Right:	533.00000000000000
	Bottom:	121.00000000000000
)

(RectD.305
	Left:	139.00000000000000
	Top:	287.00000000000000
	Right:	363.00000000000000
	Bottom:	225.00000000000000
)

(RectD.306
	Left:	375.00000000000000
	Top:	175.00000000000000
	Right:	605.00000000000000
	Bottom:	155.00000000000000
)

(RectD.307
	Left:	143.00000000000000
	Top:	229.00000000000000
	Right:	301.00000000000000
	Bottom:	208.00000000000000
)

(RectD.308
	Left:	382.00000000000000
	Top:	196.00000000000000
	Right:	495.00000000000000
	Bottom:	177.00000000000000
)

(RectD.309
	Left:	37.00000000000000
	Top:	182.00000000000000
	Right:	126.00000000000000
	Bottom:	116.00000000000000
)

(RectD.310
	Left:	35.00000000000000
	Top:	266.00000000000000
	Right:	123.00000000000000
	Bottom:	200.00000000000000
)

(RectD.311
	Left:	35.00000000000000
	Top:	358.00000000000000
	Right:	123.00000000000000
	Bottom:	288.00000000000000
)

(RectD.312
	Left:	140.00000000000000
	Top:	139.00000000000000
	Right:	337.00000000000000
	Bottom:	119.00000000000000
)

(RectD.313
	Left:	144.00000000000000
	Top:	171.00000000000000
	Right:	302.00000000000000
	Bottom:	156.00000000000000
)

(RectD.314
	Left:	137.00000000000000
	Top:	212.00000000000000
	Right:	356.00000000000000
	Bottom:	192.00000000000000
)

(RectD.315
	Left:	137.00000000000000
	Top:	305.00000000000000
	Right:	334.00000000000000
	Bottom:	285.00000000000000
)

(RectD.316
	Left:	142.00000000000000
	Top:	317.00000000000000
	Right:	299.00000000000000
	Bottom:	302.00000000000000
)

(RectD.317
	Left:	141.00000000000000
	Top:	193.00000000000000
	Right:	361.00000000000000
	Bottom:	136.00000000000000
)

(RectD.318
	Left:	139.00000000000000
	Top:	285.00000000000000
	Right:	361.00000000000000
	Bottom:	211.00000000000000
)

(RectD.319
	Left:	138.00000000000000
	Top:	382.00000000000000
	Right:	364.00000000000000
	Bottom:	302.00000000000000
)

(AVDLog.320
	Name:	"dxf.Dialog9"
	X:	22
	Y:	53
	W:	610
	H:	243
	ConstrainedControlNames:	321
	ConstrainedControlNames:	322
	ConstrainedControlNames:	323
	Constraints:	324
	Constraints:	325
	Constraints:	326
	Server:	9
	ControlPanel:	327
	Title:	"DXF Conversion Extension - Create DXF File"
	EscapeEnabled:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	DefaultButton:	336
)

(AVStr.321
	S:	"btnPrev"
)

(AVStr.322
	S:	"btnNext"
)

(AVStr.323
	S:	"btnCancel"
)

(Numb.324
	N:	85.00000000000000
)

(Numb.325
	N:	85.00000000000000
)

(Numb.326
	N:	85.00000000000000
)

(CPanel.327
	Child:	328
	Child:	329
	Child:	330
	Child:	331
	ResBox:	332
	ResBox:	333
	ResBox:	334
	ResBox:	335
	Listening:	1
)

(TextBox.328
	InternalName:	"tboxInfo"
	Disabled:	1
	Listening:	1
	ReadOnly:	1
	Text:	"At this point, we have collected all the pertinant information, and are ready to write out the DXF file.  The status line at the bottom of your ArcView screen will show the progress of the conversion.  If the theme contains a lot of data or complex linework, be patient.  You can press the \"Stop\" button at the lower left to interrupt the processing if you would like, and the file will be closed properly."
	Constraints:	0x55
	NextControl:	15
)

(LButn.329
	InternalName:	"btnPrev"
	Label:	"<---- Previous"
	Click:	"avdxf.DialogControls"
)

(LButn.330
	InternalName:	"btnNext"
	Label:	"Finish ---->"
	Click:	"avdxf.DialogControls"
)

(LButn.331
	InternalName:	"btnCancel"
	Label:	"Cancel"
	Click:	"avdxf.DialogControls"
)

(RectD.332
	Left:	35.00000000000000
	Top:	110.00000000000000
	Right:	578.00000000000000
	Bottom:	12.00000000000000
)

(RectD.333
	Left:	75.00000000000000
	Top:	185.00000000000000
	Right:	214.00000000000000
	Bottom:	151.00000000000000
)

(RectD.334
	Left:	238.00000000000000
	Top:	185.00000000000000
	Right:	377.00000000000000
	Bottom:	151.00000000000000
)

(RectD.335
	Left:	402.00000000000000
	Top:	185.00000000000000
	Right:	541.00000000000000
	Bottom:	151.00000000000000
)

(Nil.336
)

(Choice.337
	InternalName:	"DXF Conversion Extension Menu Choice"
	Help:	"Converts feature theme to DXF file."
	Update:	"avdxf.MenuChoice.Update"
	Label:	"Convert to &DXF File"
	Click:	"avdxf.MenuChoice.Click"
	Shortcut:	"Keys.None"
)

(Script.338
	Name:	"avdxf.DialogControls"
	SourceCode:	"' Name: avdxf.DialogControls\n\n' Title: Dialog Navigation\n\n' Topics: Navigates between dialogs based on user selections\n\n' Description: Script to navigate between dialog boxes within application.\n'              Calls avdxf.WriteDXF at end of script.\n\n' Requires: A dialog\n \n' Self: The active dialog\n\n' Returns: Nil\n'-------------------------------------------------------------------------\n\n'Set initial variables based on dialog that is opened\n'----------------------------------------------------\n\ntheDialog = 
SELF.GetDialog\ndname = theDialog.GetName\ncname = SELF.GetName\n\n'Series of \"if\" statements to control flow\n'-------------------------------------------\n\n'Close opened dialog and terminate processing\n'--------------------------------------------\nif (cname = \"btnCancel\") then\n theDialog.Close\nelse\n\n'Close dialog 1 navigate to dialog 2\n'-----------------------------------\n if (dname = \"dxf.Dialog1\") then\n  if (cname = \"btnNext\") then\n   theDialog.Close\n   av.FindDialog(\"dxf.Dialog2\").Open\n  end\n elseif (dname =
 \"dxf.Dialog2\") then\n  if (cname = \"btnBrowse\") then\n\n  'Create file name to save\n  '------------------------\n   theString = theDialog.FindByName(\"textFileName\").GetText\n   dxfFileName = FileDialog.Put(theString.AsFileName, \"*.dxf\", \"Enter DXF file name\")\n\n   if (dxfFileName <> nil) then\n    theDialog.FindByName(\"textFileName\").SetText(dxfFileName.AsString)\n   else\n    theDialog.Close\n   end\n  end\n  \n'Close dialog 2 and navigate to dialog 1\n'----------------------------------------\n  if (cname = \"btnPrev\") 
then\n   theDialog.Close\n   av.FindDialog(\"dxf.Dialog1\").Open\n  end\n  \n'Close dialog 2 and navigate to dialog 3\n'----------------------------------------\n  if (cname = \"btnNext\") then\n   theDialog.Close\n   av.FindDialog(\"dxf.Dialog3\").Open\n  end\n  \n'Close dialog 3 and navigate to dialog 2\n'---------------------------------------\n elseif (dname = \"dxf.Dialog3\") then\n  if (cname = \"btnPrev\") then\n   theDialog.Close\n   av.FindDialog(\"dxf.Dialog2\").Open\n  end\n\n'Close dialog 3 and navigate to dialog 4 (or 5)\n'---
-------------------------------------------\n  if (cname = \"btnNext\") then\n   theDialog.Close\n\n'Opens dialog 4\n'--------------\n   if (theDialog.FindByName(\"rdoExport\").IsSelected) then\n    av.FindDialog(\"dxf.Dialog4\").Open\n   else\n   \n'Or opens dialog 5\n'-----------------\n    av.FindDialog(\"dxf.Dialog5\").Open\n   end\n  end\n\n'Close  dialog 4 and navigate to dialog 3\n'----------------------------------------\n elseif (dname = \"dxf.Dialog4\") then\n  if (cname = \"btnPrev\") then\n   theDialog.Close\n   av.FindDialog(\"
dxf.Dialog3\").Open\n  end\n\n'Close dialog 4 and navigate to dialog 5\n'---------------------------------------\n  if (cname = \"btnNext\") then\n   theDialog.Close\n   av.FindDialog(\"dxf.Dialog5\").Open\n  end\n\n'Close dialog 5 and navigate to dialog 4 (or 3)\n'----------------------------------------------\n elseif (dname = \"dxf.Dialog5\") then\n  if (cname = \"btnPrev\") then\n   theDialog.Close\n   \n'Opens dialog 4\n'--------------\n   if (av.FindDialog(\"dxf.Dialog3\").FindByName(\"rdoExport\").IsSelected) then\n    av.FindDialo
g(\"dxf.Dialog4\").Open\n   else\n   \n'Or opens dialog 3\n'-----------------\n    av.FindDialog(\"dxf.Dialog3\").Open\n   end\n  end\n\n'Close dialog 5 and open dialog 6 (or 7)\n'---------------------------------------\n  if (cname = \"btnNext\") then\n   theDialog.Close\n   \n'Open dialog 6\n'-------------\n   if (theDialog.FindByName(\"rdoExport\").IsSelected) then\n    av.FindDialog(\"dxf.Dialog6\").Open\n   else\n\n'Or open dialog 7\n'----------------\n    av.FindDialog(\"dxf.Dialog7\").Open\n   end\n  end\n\n'Close dialog 6 and open dialo
g 5\n'--------------------------------\n elseif (dname = \"dxf.Dialog6\") then\n  if (cname = \"btnPrev\") then\n   theDialog.Close\n   av.FindDialog(\"dxf.Dialog5\").Open\n  end  \n\n'Close dialog 6 and open dialog 7\n'---------------------------------\n  if (cname = \"btnNext\") then\n   theDialog.Close\n   av.FindDialog(\"dxf.Dialog7\").Open\n  end\n\n'Close dialog 7 and open dialog 6 (or 5)\n'---------------------------------------\n elseif (dname = \"dxf.Dialog7\") then\n  if (cname = \"btnPrev\") then\n   theDialog.Close\n\n'Open dialo
g 6\n'-------------\n   if (av.FindDialog(\"dxf.Dialog5\").FindByName(\"rdoExport\").IsSelected) then\n    av.FindDialog(\"dxf.Dialog6\").Open\n   else\n   \n'Or open dialog 5\n'----------------\n    av.FindDialog(\"dxf.Dialog5\").Open\n   end\n  end\n\n'Close dialog 6 and open dialog 8 (or 9)\n'---------------------------------------\n  if (cname = \"btnNext\") then\n   theDialog.Close\n\n'Open dialog 8\n'-------------\n   if (theDialog.FindByName(\"rdoExport\").IsSelected) then\n    av.FindDialog(\"dxf.Dialog8\").Open\n   else\n   \n'Or open
 dialog 9\n'----------------\n    av.FindDialog(\"dxf.Dialog9\").Open\n   end\n  end\n\n'Close dialog 8 and open dialog 7\n'--------------------------------\n elseif (dname = \"dxf.Dialog8\") then\n  if (cname = \"btnPrev\") then\n   theDialog.Close\n   av.FindDialog(\"dxf.Dialog7\").Open\n  end\n\n'Close dialog 8 and open dialog 9\n'--------------------------------\n  if (cname = \"btnNext\") then\n   theDialog.Close\n   av.FindDialog(\"dxf.Dialog9\").Open\n  end\n\n'Close dialog 9 and open dialog 8 (or 7)\n'-------------------------------
--------\n elseif (dname = \"dxf.Dialog9\") then\n  if (cname = \"btnPrev\") then\n   theDialog.Close\n   \n'Open dialog 8\n'-------------\n   if (av.FindDialog(\"dxf.Dialog7\").FindByName(\"rdoExport\").IsSelected) then\n    av.FindDialog(\"dxf.Dialog8\").Open\n   else\n   \n'Or open dialog 7\n'----------------\n    av.FindDialog(\"dxf.Dialog7\").Open\n   end\n  end \n\n'Close dialog 9 (last dialog) and pass execution to \"WriteDXF\" script\n'--------------------------------------------------------------------\n  if (cname = \"btnNext\") th
en\n   theDialog.Close\n   av.Run(\"avdxf.WriteDXF\", \"\")\n  end\n end\nend"
)

(Script.339
	Name:	"avdxf.Section.Blocks"
	SourceCode:	"Script.The.SetNumberFormat(\"d.dddddd\")\ntheFile = SELF.Get(0)\ntheBlockList = SELF.Get(1)\ntheTags = SELF.Get(2)\n\nblkListCount = theBlockList.Count\n\nfor each blk in 1..blkListCount By 2\nif (theTags.IsEmpty = true) then\n attflag = \"     0\"\nelse\n attflag = \"     2\"\nend \ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"SECTION\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"BLOCKS\")\nif (theBlockList.Get(blk) = \"Circle\") then\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"BLOCK\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n
 theFile.WriteElt(\"  2\")\n theFile.WriteElt(theBlockList.Get(blk-1))\n theFile.WriteElt(\" 70\")\n theFile.WriteElt(attflag)\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  3\")\n theFile.WriteElt(theBlockList.Get(blk-1))\n theFile.WriteElt(\"  1\")\n theFile.WriteElt(\"\")\n ybase = 0.0\n for each tag in theTags\n  theFile.WriteElt(\"  0\")\n  theFile.WriteElt(\"ATTDEF\")\n  theFile.WriteElt(\"  8\")\n  theFil
e.WriteElt(\"0\")\n  theFile.WriteElt(\" 10\")\n  theFile.WriteElt(\"2.0\")\n  theFile.WriteElt(\" 20\")\n  theFile.WriteElt(ybase.AsString)\n  theFile.WriteElt(\" 30\")\n  theFile.WriteElt(\"0.0\")\n  theFile.WriteElt(\" 40\")\n  theFile.WriteElt(\"2.0\") \n  theFile.WriteElt(\"  1\")\n  theFile.WriteElt(\"\")\n  theFile.WriteElt(\"  3\")\n  theFile.WriteElt(tag)\n  theFile.WriteElt(\"  2\")\n  theFile.WriteElt(tag)\n  theFile.WriteElt(\" 70\")\n  theFile.WriteElt(\"     0\")\n  ybase = ybase - 3.333333\n end\n theFile.WriteElt(\"  0\")\n theFile.WriteElt
(\"CIRCLE\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 40\")\n theFile.WriteElt(\"1.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"ENDBLK\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\nelseif (theBlockList.Get(blk) = \"Triangle\") then\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"BLOCK\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n th
eFile.WriteElt(\"  2\")\n theFile.WriteElt(theBlockList.Get(blk-1))\n theFile.WriteElt(\" 70\")\n theFile.WriteElt(attflag)\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  3\")\n theFile.WriteElt(theBlockList.Get(blk-1))\n theFile.WriteElt(\"  1\")\n theFile.WriteElt(\"\")\n ybase = 0.0\n for each tag in theTags\n  theFile.WriteElt(\"  0\")\n  theFile.WriteElt(\"ATTDEF\")\n  theFile.WriteElt(\"  8\")\n  theFile.W
riteElt(\"0\")\n  theFile.WriteElt(\" 10\")\n  theFile.WriteElt(\"2.0\")\n  theFile.WriteElt(\" 20\")\n  theFile.WriteElt(ybase.AsString)\n  theFile.WriteElt(\" 30\")\n  theFile.WriteElt(\"0.0\")\n  theFile.WriteElt(\" 40\")\n  theFile.WriteElt(\"2.0\") \n  theFile.WriteElt(\"  1\")\n  theFile.WriteElt(\"\")\n  theFile.WriteElt(\"  3\")\n  theFile.WriteElt(tag)\n  theFile.WriteElt(\"  2\")\n  theFile.WriteElt(tag)\n  theFile.WriteElt(\" 70\")\n  theFile.WriteElt(\"     0\")\n  ybase = ybase - 3.333333\n end\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"P
OLYLINE\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 66\")\n theFile.WriteElt(\"     1\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 70\")\n theFile.WriteElt(\"     1\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"1.0
\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"-0.866025\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"-0.5\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.866025\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"-
0.5\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"SEQEND\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"ENDBLK\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\nelseif (theBlockList.Get(blk) = \"Square\") then\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"BLOCK\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\"  2\")\n theFile.WriteElt(theBlockList.Get(blk-1))\n theFile.WriteElt(\" 70\")\n theFile.Write
Elt(attflag)\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  3\")\n theFile.WriteElt(theBlockList.Get(blk-1))\n theFile.WriteElt(\"  1\")\n theFile.WriteElt(\"\")\n ybase = 0.0\n for each tag in theTags\n  theFile.WriteElt(\"  0\")\n  theFile.WriteElt(\"ATTDEF\")\n  theFile.WriteElt(\"  8\")\n  theFile.WriteElt(\"0\")\n  theFile.WriteElt(\" 10\")\n  theFile.WriteElt(\"2.0\")\n  theFile.WriteElt(\" 20\")\n  theFile.Wri
teElt(ybase.AsString)\n  theFile.WriteElt(\" 30\")\n  theFile.WriteElt(\"0.0\")\n  theFile.WriteElt(\" 40\")\n  theFile.WriteElt(\"2.0\") \n  theFile.WriteElt(\"  1\")\n  theFile.WriteElt(\"\")\n  theFile.WriteElt(\"  3\")\n  theFile.WriteElt(tag)\n  theFile.WriteElt(\"  2\")\n  theFile.WriteElt(tag)\n  theFile.WriteElt(\" 70\")\n  theFile.WriteElt(\"     0\")\n  ybase = ybase - 3.333333\n end\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"POLYLINE\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 66\")\n theFile.WriteElt(\"  
   1\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 70\")\n theFile.WriteElt(\"     1\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"-0.707107\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.707107\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteE
lt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"-0.707107\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"-0.707107\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.707107\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"-0.707107\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n t
heFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.707107\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.707107\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"SEQEND\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"ENDBLK\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\nelseif (theBlockList.Get(blk) = \"Pentagon\") then\n theFile.WriteElt(\"  0\")\n t
heFile.WriteElt(\"BLOCK\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\"  2\")\n theFile.WriteElt(theBlockList.Get(blk-1))\n theFile.WriteElt(\" 70\")\n theFile.WriteElt(attflag)\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  3\")\n theFile.WriteElt(theBlockList.Get(blk-1))\n theFile.WriteElt(\"  1\")\n theFile.WriteElt(\"\")\n ybase = 0.0\n for each tag in theTags\n  theFile.WriteE
lt(\"  0\")\n  theFile.WriteElt(\"ATTDEF\")\n  theFile.WriteElt(\"  8\")\n  theFile.WriteElt(\"0\")\n  theFile.WriteElt(\" 10\")\n  theFile.WriteElt(\"2.0\")\n  theFile.WriteElt(\" 20\")\n  theFile.WriteElt(ybase.AsString)\n  theFile.WriteElt(\" 30\")\n  theFile.WriteElt(\"0.0\")\n  theFile.WriteElt(\" 40\")\n  theFile.WriteElt(\"2.0\") \n  theFile.WriteElt(\"  1\")\n  theFile.WriteElt(\"\")\n  theFile.WriteElt(\"  3\")\n  theFile.WriteElt(tag)\n  theFile.WriteElt(\"  2\")\n  theFile.WriteElt(tag)\n  theFile.WriteElt(\" 70\")\n  theFile.WriteElt(\"     0\")\n 
 ybase = ybase - 3.333333\n end\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"POLYLINE\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 66\")\n theFile.WriteElt(\"     1\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 70\")\n theFile.WriteElt(\"     1\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 1
0\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"1.0\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"-0.951057\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.309017\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 
10\")\n theFile.WriteElt(\"-0.587785\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"-0.809017\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.587785\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"-0.809017\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFil
e.WriteElt(\" 10\")\n theFile.WriteElt(\"0.951057\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.309017\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"SEQEND\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"ENDBLK\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\nelseif (theBlockList.Get(blk) = \"Hexagon\") then\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"BLOCK\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.
WriteElt(\"  2\")\n theFile.WriteElt(theBlockList.Get(blk-1))\n theFile.WriteElt(\" 70\")\n theFile.WriteElt(attflag)\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  3\")\n theFile.WriteElt(theBlockList.Get(blk-1))\n theFile.WriteElt(\"  1\")\n theFile.WriteElt(\"\")\n ybase = 0.0\n for each tag in theTags\n  theFile.WriteElt(\"  0\")\n  theFile.WriteElt(\"ATTDEF\")\n  theFile.WriteElt(\"  8\")\n  theFile.WriteEl
t(\"0\")\n  theFile.WriteElt(\" 10\")\n  theFile.WriteElt(\"2.0\")\n  theFile.WriteElt(\" 20\")\n  theFile.WriteElt(ybase.AsString)\n  theFile.WriteElt(\" 30\")\n  theFile.WriteElt(\"0.0\")\n  theFile.WriteElt(\" 40\")\n  theFile.WriteElt(\"2.0\") \n  theFile.WriteElt(\"  1\")\n  theFile.WriteElt(\"\")\n  theFile.WriteElt(\"  3\")\n  theFile.WriteElt(tag)\n  theFile.WriteElt(\"  2\")\n  theFile.WriteElt(tag)\n  theFile.WriteElt(\" 70\")\n  theFile.WriteElt(\"     0\")\n  ybase = ybase - 3.333333\n end\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"POLYLIN
E\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 66\")\n theFile.WriteElt(\"     1\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 70\")\n theFile.WriteElt(\"     1\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"-0.5\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.866025
\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"-1.0\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"-0.5\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"-0.866025\")
\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.5\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"-0.866025\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"1.0\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.0\")\n th
eFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.5\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.866025\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"SEQEND\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"ENDBLK\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\nelseif 
(theBlockList.Get(blk) = \"Heptagon\") then\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"BLOCK\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\"  2\")\n theFile.WriteElt(theBlockList.Get(blk-1))\n theFile.WriteElt(\" 70\")\n theFile.WriteElt(attflag)\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  3\")\n theFile.WriteElt(theBlockList.Get(blk-1))\n theFile.WriteElt(\"  1\")\n theFil
e.WriteElt(\"\")\n ybase = 0.0\n for each tag in theTags\n  theFile.WriteElt(\"  0\")\n  theFile.WriteElt(\"ATTDEF\")\n  theFile.WriteElt(\"  8\")\n  theFile.WriteElt(\"0\")\n  theFile.WriteElt(\" 10\")\n  theFile.WriteElt(\"2.0\")\n  theFile.WriteElt(\" 20\")\n  theFile.WriteElt(ybase.AsString)\n  theFile.WriteElt(\" 30\")\n  theFile.WriteElt(\"0.0\")\n  theFile.WriteElt(\" 40\")\n  theFile.WriteElt(\"2.0\") \n  theFile.WriteElt(\"  1\")\n  theFile.WriteElt(\"\")\n  theFile.WriteElt(\"  3\")\n  theFile.WriteElt(tag)\n  theFile.WriteElt(\"  2\")\n  theFile.W
riteElt(tag)\n  theFile.WriteElt(\" 70\")\n  theFile.WriteElt(\"     0\")\n  ybase = ybase - 3.333333\n end\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"POLYLINE\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 66\")\n theFile.WriteElt(\"     1\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 70\")\n theFile.WriteElt(\"     1\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n
 theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"1.0\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"-0.781831\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.62349\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n
 theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"-0.974928\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"-0.222521\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"-0.433884\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"-0.900969\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.Write
Elt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.433884\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"-0.900969\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.974928\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"-0.222521\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n t
heFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.781831\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.62349\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"SEQEND\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"ENDBLK\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\nelseif (theBlockList.Get(blk) = \"Octagon\") then\n theFile.WriteElt(\"  0\")\n the
File.WriteElt(\"BLOCK\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\"  2\")\n theFile.WriteElt(theBlockList.Get(blk-1))\n theFile.WriteElt(\" 70\")\n theFile.WriteElt(attflag)\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  3\")\n theFile.WriteElt(theBlockList.Get(blk-1))\n theFile.WriteElt(\"  1\")\n theFile.WriteElt(\"\")\n ybase = 0.0\n for each tag in theTags\n  theFile.WriteElt
(\"  0\")\n  theFile.WriteElt(\"ATTDEF\")\n  theFile.WriteElt(\"  8\")\n  theFile.WriteElt(\"0\")\n  theFile.WriteElt(\" 10\")\n  theFile.WriteElt(\"2.0\")\n  theFile.WriteElt(\" 20\")\n  theFile.WriteElt(ybase.AsString)\n  theFile.WriteElt(\" 30\")\n  theFile.WriteElt(\"0.0\")\n  theFile.WriteElt(\" 40\")\n  theFile.WriteElt(\"2.0\") \n  theFile.WriteElt(\"  1\")\n  theFile.WriteElt(\"\")\n  theFile.WriteElt(\"  3\")\n  theFile.WriteElt(tag)\n  theFile.WriteElt(\"  2\")\n  theFile.WriteElt(tag)\n  theFile.WriteElt(\" 70\")\n  theFile.WriteElt(\"     0\")\n  y
base = ybase - 3.333333\n end\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"POLYLINE\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 66\")\n theFile.WriteElt(\"     1\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 70\")\n theFile.WriteElt(\"     1\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\"
)\n theFile.WriteElt(\"-0.382683\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.92388\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"-0.92388\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.382683\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.Writ
eElt(\" 10\")\n theFile.WriteElt(\"-0.92388\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"-0.382683\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"-0.382683\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"-0.92388\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n 
theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.382683\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"-0.92388\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.92388\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"-0.382683\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.Write
Elt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.92388\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.382683\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"VERTEX\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.382683\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.92388\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"SEQEND\")\n theFile.WriteElt(\"  8\")\n theFi
le.WriteElt(\"0\")\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"ENDBLK\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(\"0\")\n end\nend\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"ENDSEC\")\n"
)

(Script.340
	Name:	"avdxf.Section.Entities.Insert"
	SourceCode:	"Script.The.SetNumberFormat(\"d.dddddd\")\ntheFile = SELF.Get(0)\ntheShape = SELF.Get(1)\ntheLayerName = SELF.Get(2)\ntheBlockName = SELF.Get(3)\ntheBlockSize = SELF.Get(4)\nattribs = SELF.Get(5)\nif (attribs = true) then\n theAttributeTagList = SELF.Get(6)\n theAttributeValueList = SELF.Get(7)\nend\nif (attribs = false) then\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"INSERT\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(theLayerName)\n theFile.WriteElt(\" 66\")\n theFile.WriteElt(\"     0\")\n theFile.WriteElt(\"  2\")\n theFile.W
riteElt(theBlockName)\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(theShape.ReturnCenter.GetX.AsString)\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(theShape.ReturnCenter.GetY.AsString)\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 41\")\n theFile.WriteElt(theBlockSize)\n theFile.WriteElt(\" 42\")\n theFile.WriteElt(theBlockSize)\n theFile.WriteElt(\" 43\")\n theFile.WriteElt(theBlockSize)\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"SEQEND\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(theLayerName)
\nelseif (attribs = true) then\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"INSERT\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(theLayerName)\n theFile.WriteElt(\" 66\")\n theFile.WriteElt(\"     1\")\n theFile.WriteElt(\"  2\")\n theFile.WriteElt(theBlockName)\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(theShape.ReturnCenter.GetX.AsString)\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(theShape.ReturnCenter.GetY.AsString)\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 41\")\n theFile.WriteElt(theBlockS
ize)\n theFile.WriteElt(\" 42\")\n theFile.WriteElt(theBlockSize)\n theFile.WriteElt(\" 43\")\n theFile.WriteElt(theBlockSize)\n i = 0\n theX = theShape.ReturnCenter.GetX + (theBlockSize.AsNumber * 2.0)\n theY = theShape.ReturnCenter.GetY\n for each tag in theAttributeTagList\n  val = theAttributeValueList.Get(i)\n  theFile.WriteElt(\"  0\")\n  theFile.WriteElt(\"ATTRIB\")\n  theFile.WriteElt(\"  8\")\n  theFile.WriteElt(theLayerName)\n  theFile.WriteElt(\" 10\")\n  theFile.WriteElt(theX.AsString)\n  theFile.WriteElt(\" 20\")\n  theFile.
WriteElt(theY.AsString)\n  theFile.WriteElt(\" 30\")\n  theFile.WriteElt(\"0.0\")\n  theFile.WriteElt(\" 40\")\n  theFile.WriteElt(((theBlockSize.AsNumber) * 2.0).AsString)\n  theFile.WriteElt(\"  1\")\n  theFile.WriteElt(val)\n  theFile.WriteElt(\"  2\")\n  theFile.WriteElt(tag)\n  theFile.WriteElt(\" 70\")\n  theFile.WriteElt(\"     0\")\n  theY = theY - ((theBlockSize.AsNumber) * (3.333333))\n  i = i + 1\n end \n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"SEQEND\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(theLayerName)\nend\nreturn 
nil\n"
)

(Script.341
	Name:	"avdxf.Section.Entities.PointPoly"
	SourceCode:	"Script.The.SetNumberFormat(\"d.dddddd\")\ntheFile = SELF.Get(0)\ntheShape = SELF.Get(1)\ntheLayerName = SELF.Get(2)\ntheShapeType = SELF.Get(3)\ntheShapeSize = SELF.Get(4)\ntheColor = SELF.Get(5)\ntheLType = SELF.Get(6)\nif (theShapeType = \"Point\") then\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"POINT\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(theLayerName)\n if (theColor <> Nil) then\n  theFile.WriteElt(\" 62\")\n  theFile.WriteElt(\"    \"+theColor.AsString)\n end\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(theShape.GetX
.AsString)\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(theShape.GetY.AsString)\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\nelseif (theShapeType = \"Polyline\") then\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"POLYLINE\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(theLayerName)\n if (theLType <> nil) then\n  theFile.WriteElt(\"  6\")\n  theFile.WriteElt(theLType)\n end\n if (theColor <> nil) then\n  theFile.WriteElt(\" 62\")\n  theFile.WriteElt(\"    \"+theColor.AsString)\n end\n theFile.WriteElt(\" 66\")\n theFile.WriteElt
(\"     1\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 70\")\n theFile.WriteElt(\"     0\")\n pointList = theShape.AsPolyLine.AsMultiPoint.AsList\n for each vertex in pointList\n  theFile.WriteElt(\"  0\")\n  theFile.WriteElt(\"VERTEX\")\n  theFile.WriteElt(\"  8\")\n  theFile.WriteElt(theLayerName)\n  if (theColor <> nil) then\n   theFile.WriteElt(\" 62\")\n   theFile.WriteElt(\"    \"+theColor.AsString)\n
  end\n  theFile.WriteElt(\" 66\")\n  theFile.WriteElt(\"     1\")\n  theFile.WriteElt(\" 10\")\n  theFile.WriteElt(vertex.GetX.AsString)\n  theFile.WriteElt(\" 20\")\n  theFile.WriteElt(vertex.GetY.AsString)\n  theFile.WriteElt(\" 30\")\n  theFile.WriteElt(\"0.0\")\n end    \n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"SEQEND\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(theLayerName)\n if (theColor <> nil) then\n  theFile.WriteElt(\" 62\")\n  theFile.WriteElt(\"    \"+theColor.AsString)\n end\nelseif (theShapeType = \"Polygon\") then\n'Tes
t for Islands\n'----------------\n\ntestList = theShape.AsPolyLine.AsMultiPoint.AsList\ntestCount = testList.Count\n\nif (testList.Get(0) = testList.Get(testCount-1)) then\n\n 'Processing non-island polygon\n '-----------------------------\n\n pointList = theShape.AsPolyLine.AsMultiPoint.AsList\n\n\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"POLYLINE\")\n theFile.WriteElt(\"  8\")\n theFile.WriteElt(theLayerName)\n\n if (theLType <> nil) then\n  theFile.WriteElt(\"  6\")\n  theFile.WriteElt(theLType)\n end\n\n if (theColor <> nil) th
en\n  theFile.WriteElt(\" 62\")\n  theFile.WriteElt(\"    \"+theColor.AsString)\n end\n\n theFile.WriteElt(\" 66\")\n theFile.WriteElt(\"     1\")\n theFile.WriteElt(\" 10\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 20\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 30\")\n theFile.WriteElt(\"0.0\")\n theFile.WriteElt(\" 70\")\n theFile.WriteElt(\"     1\")\n\n for each vertex in pointList\n  theFile.WriteElt(\"  0\")\n  theFile.WriteElt(\"VERTEX\")\n  theFile.WriteElt(\"  8\")\n  theFile.WriteElt(theLayerName)\n\n  if (theLType <> nil) then\n  
 theFile.WriteElt(\"  6\")\n   theFile.WriteElt(theLType)\n  end\n\n  if (theColor <> nil) then\n   theFile.WriteElt(\" 62\")\n   theFile.WriteElt(\"    \"+theColor.AsString)\n  end\n\n  theFile.WriteElt(\" 66\")\n  theFile.WriteElt(\"     1\")\n  theFile.WriteElt(\" 10\")\n  theFile.WriteElt(vertex.GetX.AsString)\n  theFile.WriteElt(\" 20\")\n  theFile.WriteElt(vertex.GetY.AsString)\n  theFile.WriteElt(\" 30\")\n  theFile.WriteElt(\"0.0\")\n end    \n\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"SEQEND\")\ntheFile.WriteElt(\"  8\")\ntheFile.WriteElt
(theLayerName)\n\nif (theLType <> nil) then\n theFile.WriteElt(\"  6\")\n theFile.WriteElt(theLType)\nend\n\nif (theColor <> nil) then\n theFile.WriteElt(\" 62\")\n theFile.WriteElt(\"    \"+theColor.AsString)\nend\n \nreturn nil\n\nelse\n\n 'Processing Island Polygon\n '-------------------------\n islandList = {}\n\n count = 0\n testFlag = testList.Get(0)\n islandList.Add(testFlag)\n\n for each item in 0..(testCount-1)\n\n  if (count = 0) then\n   count = 1\n   continue\n  end\n\n  if (testFlag <> testList.Get(item)) then\n   islandList.Add(te
stList.Get(item))\n  else\n   islandList.Add(testList.Get(item))\n   \n   theFile.WriteElt(\"  0\")\n   theFile.WriteElt(\"POLYLINE\")\n   theFile.WriteElt(\"  8\")\n   theFile.WriteElt(theLayerName)\n\n    if (theLType <> nil) then\n     theFile.WriteElt(\"  6\")\n     theFile.WriteElt(theLType)\n    end\n\n    if (theColor <> nil) then\n     theFile.WriteElt(\" 62\")\n     theFile.WriteElt(\"    \"+theColor.AsString)\n    end\n\n   theFile.WriteElt(\" 66\")\n   theFile.WriteElt(\"     1\")\n   theFile.WriteElt(\" 10\")\n   theFile.WriteElt(\"0.0
\")\n   theFile.WriteElt(\" 20\")\n   theFile.WriteElt(\"0.0\")\n   theFile.WriteElt(\" 30\")\n   theFile.WriteElt(\"0.0\")\n   theFile.WriteElt(\" 70\")\n   theFile.WriteElt(\"     1\")\n\n   for each vertex in islandList.clone\n    theFile.WriteElt(\"  0\")\n    theFile.WriteElt(\"VERTEX\")\n    theFile.WriteElt(\"  8\")\n    theFile.WriteElt(theLayerName)\n\n    if (theLType <> nil) then\n     theFile.WriteElt(\"  6\")\n     theFile.WriteElt(theLType)\n    end\n\n    if (theColor <> nil) then\n     theFile.WriteElt(\" 62\")\n     theFile.WriteElt(
\"    \"+theColor.AsString)\n    end\n\n    theFile.WriteElt(\" 66\")\n    theFile.WriteElt(\"     1\")\n    theFile.WriteElt(\" 10\")\n    theFile.WriteElt(vertex.GetX.AsString)\n    theFile.WriteElt(\" 20\")\n    theFile.WriteElt(vertex.GetY.AsString)\n    theFile.WriteElt(\" 30\")\n    theFile.WriteElt(\"0.0\")\n   end    \n\n   theFile.WriteElt(\"  0\")\n   theFile.WriteElt(\"SEQEND\")\n   theFile.WriteElt(\"  8\")\n   theFile.WriteElt(theLayerName)\n\n   if (theLType <> nil) then\n    theFile.WriteElt(\"  6\")\n    theFile.WriteElt(theLType)\n 
  end\n\n   if (theColor <> nil) then\n    theFile.WriteElt(\" 62\")\n    theFile.WriteElt(\"    \"+theColor.AsString)\n   end\n   \n   if (item = (testCount - 1)) then\n    break\n   end\n   \n   islandList.Empty\n   count = 0\n   testFlag = testList.Get((testList.Find(testList.Get(item)))+1)\n   islandList.Add(testFlag)\n  end\n end\nreturn nil\nend\nend \nreturn nil\n"
	NumberFormat:	342
)

(AVStr.342
	S:	"d.dddddd"
)

(Script.343
	Name:	"avdxf.Section.Entities.Text"
	SourceCode:	"Script.The.SetNumberFormat(\"d.dddddd\")\ntheFile = SELF.Get(0)\ntheShape = SELF.Get(1)\ntheLayerName = SELF.Get(2)\ntheTextString = SELF.Get(3)\ntheTextSize = SELF.Get(4)\ntextColor = SELF.Get(5)\n\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"TEXT\")\ntheFile.WriteElt(\"  8\")\ntheFile.WriteElt(theLayerName)\nif (textColor <> Nil) then\n  theFile.WriteElt(\" 62\")\n  theFile.WriteElt(\"    \"+textColor.AsString)\n end\ntheFile.WriteElt(\" 10\")\ntheFile.WriteElt(theShape.ReturnCenter.GetX.AsString)\ntheFile.WriteElt(\" 20\")\ntheFile.Writ
eElt(theShape.ReturnCenter.GetY.AsString)\ntheFile.WriteElt(\" 30\")\ntheFile.WriteElt(\"0.0\")\ntheFile.WriteElt(\" 40\")\ntheFile.WriteElt(theTextSize)\ntheFile.WriteElt(\"  1\")\ntheFile.WriteElt(theTextString)\nreturn nil\n"
)

(Script.344
	Name:	"avdxf.Section.Header"
	SourceCode:	"Script.The.SetNumberFormat(\"d.dddddd\")\ntheFile = SELF.Get(0)\ntheExtentRect = SELF.Get(1)\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"SECTION\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"HEADER\")\ntheFile.WriteElt(\"  9\")\ntheFile.WriteElt(\"$ACADVER\")\ntheFile.WriteElt(\"  1\")\ntheFile.WriteElt(\"AC1009\")\ntheFile.WriteElt(\"  9\")\ntheFile.WriteElt(\"$INSBASE\")\ntheFile.WriteElt(\" 10\")\ntheFile.WriteElt(\"0.0\")\ntheFile.WriteElt(\" 20\")\ntheFile.WriteElt(\"0.0\")\ntheFile.WriteElt(\" 30\")\ntheFile.WriteElt(\"0.0\")\ntheFile.WriteElt(\" 
 9\")\ntheFile.WriteElt(\"$EXTMIN\")\ntheFile.WriteElt(\" 10\")\ntheFile.WriteElt(theExtentRect.GetLeft.AsString)\ntheFile.WriteElt(\" 20\")\ntheFile.WriteElt(theExtentRect.GetBottom.AsString)\ntheFile.WriteElt(\" 30\")\ntheFile.WriteElt(\"0.0\")\ntheFile.WriteElt(\"  9\")\ntheFile.WriteElt(\"$EXTMAX\")\ntheFile.WriteElt(\" 10\")\ntheFile.WriteElt(theExtentRect.GetRight.AsString)\ntheFile.WriteElt(\" 20\")\ntheFile.WriteElt(theExtentRect.GetTop.AsString)\ntheFile.WriteElt(\" 30\")\ntheFile.WriteElt(\"0.0\")\ntheFile.WriteElt(\"  9\")\ntheFile.Write
Elt(\"$TEXTSTYLE\")\ntheFile.WriteElt(\"  7\")\ntheFile.WriteElt(\"STANDARD\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"ENDSEC\")\n"
	NumberFormat:	345
)

(AVStr.345
	S:	"d.dddddd"
)

(Script.346
	Name:	"avdxf.Section.Tables"
	SourceCode:	"Script.The.SetNumberFormat(\"d.dddddd\")\ntheFile = SELF.Get(0)\ntheLayerList = SELF.Get(1)\n\n'TABLES SECTION\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"SECTION\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"TABLES\")\n\n'LINETYPE TABLE\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"TABLE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"    25\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"CONTINUOUS\")\ntheFile.WriteElt(\" 70\")\ntheFile
.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.WriteElt(\"Solid line\")\ntheFile.WriteElt(\" 72\")\ntheFile.WriteElt(\"    65\")\ntheFile.WriteElt(\" 73\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\" 40\")\ntheFile.WriteElt(\"0.0\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"BORDER\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.WriteElt(\"Border __ __ . __ __ . __ __ . __ __ . __ __ .\")\ntheFile.WriteElt(\" 72\")\ntheFile.WriteElt(\"  
  65\")\ntheFile.WriteElt(\" 73\")\ntheFile.WriteElt(\"     6\")\ntheFile.WriteElt(\" 40\")\ntheFile.WriteElt(\"1.75\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.5\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.25\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.5\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.25\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.0\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.25\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"BORDER2\")\ntheFile.W
riteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.WriteElt(\"Border (.5x) __.__.__.__.__.__.__.__.__.__.__.\")\ntheFile.WriteElt(\" 72\")\ntheFile.WriteElt(\"    65\")\ntheFile.WriteElt(\" 73\")\ntheFile.WriteElt(\"     6\")\ntheFile.WriteElt(\" 40\")\ntheFile.WriteElt(\"0.875\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.25\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.125\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.25\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.125\")\ntheFile.WriteElt(\" 49\")\nthe
File.WriteElt(\"0.0\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.125\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"BORDERX2\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.WriteElt(\"Border (2x) ____  ____  .  ____  ____  .  ___\")\ntheFile.WriteElt(\" 72\")\ntheFile.WriteElt(\"    65\")\ntheFile.WriteElt(\" 73\")\ntheFile.WriteElt(\"     6\")\ntheFile.WriteElt(\" 40\")\ntheFile.WriteElt(\"3.5\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"1.0\"
)\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.5\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"1.0\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.5\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.0\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.5\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"CENTER\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.WriteElt(\"Center ____ _ ____ _ ____ _ ____ _ ____ _ ____\")\ntheFile.WriteElt(\" 72\")\n
theFile.WriteElt(\"    65\")\ntheFile.WriteElt(\" 73\")\ntheFile.WriteElt(\"     4\")\ntheFile.WriteElt(\" 40\")\ntheFile.WriteElt(\"2.0\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"1.25\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.25\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.25\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.25\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"CENTER2\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.Wri
teElt(\"Center (.5x) ___ _ ___ _ ___ _ ___ _ ___ _ ___\")\ntheFile.WriteElt(\" 72\")\ntheFile.WriteElt(\"    65\")\ntheFile.WriteElt(\" 73\")\ntheFile.WriteElt(\"     4\")\ntheFile.WriteElt(\" 40\")\ntheFile.WriteElt(\"1.125\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.75\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.125\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.125\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.125\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"CENTERX2\")\n
theFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.WriteElt(\"Center (2x) ________  __  ________  __  _____\")\ntheFile.WriteElt(\" 72\")\ntheFile.WriteElt(\"    65\")\ntheFile.WriteElt(\" 73\")\ntheFile.WriteElt(\"     4\")\ntheFile.WriteElt(\" 40\")\ntheFile.WriteElt(\"4.0\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"2.5\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.5\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.5\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.5\")\ntheFile.WriteElt(\"  0\")\nthe
File.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"DASHDOT\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.WriteElt(\"Dash dot __ . __ . __ . __ . __ . __ . __ . __\")\ntheFile.WriteElt(\" 72\")\ntheFile.WriteElt(\"    65\")\ntheFile.WriteElt(\" 73\")\ntheFile.WriteElt(\"     4\")\ntheFile.WriteElt(\" 40\")\ntheFile.WriteElt(\"1.0\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.5\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.25\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.0\")
\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.25\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"DASHDOT2\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.WriteElt(\"Dash dot (.5x) _._._._._._._._._._._._._._._.\")\ntheFile.WriteElt(\" 72\")\ntheFile.WriteElt(\"    65\")\ntheFile.WriteElt(\" 73\")\ntheFile.WriteElt(\"     4\")\ntheFile.WriteElt(\" 40\")\ntheFile.WriteElt(\"0.5\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.25\")\ntheFile.WriteElt(\"
 49\")\ntheFile.WriteElt(\"-0.125\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.0\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.125\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"DASHDOTX2\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.WriteElt(\"Dash dot (2x) ____  .  ____  .  ____  .  ___\")\ntheFile.WriteElt(\" 72\")\ntheFile.WriteElt(\"    65\")\ntheFile.WriteElt(\" 73\")\ntheFile.WriteElt(\"     4\")\ntheFile.WriteElt(\" 40\")\ntheFile.Wr
iteElt(\"2.0\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"1.0\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.5\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.0\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.5\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"DASHED\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.WriteElt(\"Dashed __ __ __ __ __ __ __ __ __ __ __ __ __ _\")\ntheFile.WriteElt(\" 72\")\ntheFile.WriteElt(\"    65\")\ntheFile.W
riteElt(\" 73\")\ntheFile.WriteElt(\"     2\")\ntheFile.WriteElt(\" 40\")\ntheFile.WriteElt(\"0.75\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.5\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.25\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"DASHED2\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.WriteElt(\"Dashed (.5x) _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _\")\ntheFile.WriteElt(\" 72\")\ntheFile.WriteElt(\"    65\")\ntheFile.WriteElt(\" 73\")\ntheF
ile.WriteElt(\"     2\")\ntheFile.WriteElt(\" 40\")\ntheFile.WriteElt(\"0.375\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.25\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.125\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"DASHEDX2\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.WriteElt(\"Dashed (2x) ____  ____  ____  ____  ____  ___\")\ntheFile.WriteElt(\" 72\")\ntheFile.WriteElt(\"    65\")\ntheFile.WriteElt(\" 73\")\ntheFile.WriteElt(\"  
   2\")\ntheFile.WriteElt(\" 40\")\ntheFile.WriteElt(\"1.5\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"1.0\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.5\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"DIVIDE\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.WriteElt(\"Divide ____ . . ____ . . ____ . . ____ . . ____\")\ntheFile.WriteElt(\" 72\")\ntheFile.WriteElt(\"    65\")\ntheFile.WriteElt(\" 73\")\ntheFile.WriteElt(\"     6\")\ntheFile.WriteE
lt(\" 40\")\ntheFile.WriteElt(\"1.25\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.5\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.25\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.0\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.25\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.0\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.25\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"DIVIDE2\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFil
e.WriteElt(\"Divide (.5x) __..__..__..__..__..__..__..__.._\")\ntheFile.WriteElt(\" 72\")\ntheFile.WriteElt(\"    65\")\ntheFile.WriteElt(\" 73\")\ntheFile.WriteElt(\"     6\")\ntheFile.WriteElt(\" 40\")\ntheFile.WriteElt(\"0.625\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.25\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.125\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.0\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.125\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.0\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.125\")\nt
heFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"DIVIDEX2\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.WriteElt(\"Divide (2x) ________  .  .  ________  .  .  _\")\ntheFile.WriteElt(\" 72\")\ntheFile.WriteElt(\"    65\")\ntheFile.WriteElt(\" 73\")\ntheFile.WriteElt(\"     6\")\ntheFile.WriteElt(\" 40\")\ntheFile.WriteElt(\"2.5\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"1.0\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.5\")\ntheFile.WriteElt(\" 49\"
)\ntheFile.WriteElt(\"0.0\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.5\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.0\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.5\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"DOT\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.WriteElt(\"Dot . . . . . . . . . . . . . . . . . . . . . .\")\ntheFile.WriteElt(\" 72\")\ntheFile.WriteElt(\"    65\")\ntheFile.WriteElt(\" 73\")\ntheFile.WriteElt(\"     2
\")\ntheFile.WriteElt(\" 40\")\ntheFile.WriteElt(\"0.25\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.0\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.25\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"DOT2\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.WriteElt(\"Dot (.5x) .....................................\")\ntheFile.WriteElt(\" 72\")\ntheFile.WriteElt(\"    65\")\ntheFile.WriteElt(\" 73\")\ntheFile.WriteElt(\"     2\")\ntheFile.WriteElt(\"
 40\")\ntheFile.WriteElt(\"0.125\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.0\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.125\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"DOTX2\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.WriteElt(\"Dot (2x) .  .  .  .  .  .  .  .  .  .  .  .  . \")\ntheFile.WriteElt(\" 72\")\ntheFile.WriteElt(\"    65\")\ntheFile.WriteElt(\" 73\")\ntheFile.WriteElt(\"     2\")\ntheFile.WriteElt(\" 40\")\ntheFile.Writ
eElt(\"0.5\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.0\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.5\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"HIDDEN\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.WriteElt(\"Hidden __ __ __ __ __ __ __ __ __ __ __ __ __ _\")\ntheFile.WriteElt(\" 72\")\ntheFile.WriteElt(\"    65\")\ntheFile.WriteElt(\" 73\")\ntheFile.WriteElt(\"     2\")\ntheFile.WriteElt(\" 40\")\ntheFile.WriteElt(\"0.375\")\ntheFile
.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.25\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.125\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"HIDDEN2\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.WriteElt(\"Hidden (.5x) _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _\")\ntheFile.WriteElt(\" 72\")\ntheFile.WriteElt(\"    65\")\ntheFile.WriteElt(\" 73\")\ntheFile.WriteElt(\"     2\")\ntheFile.WriteElt(\" 40\")\ntheFile.WriteElt(\"0.1875\")\ntheFile.WriteElt(\" 49\"
)\ntheFile.WriteElt(\"0.125\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.0625\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"HIDDENX2\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.WriteElt(\"Hidden (2x) ____ ____ ____ ____ ____ ____ ____\")\ntheFile.WriteElt(\" 72\")\ntheFile.WriteElt(\"    65\")\ntheFile.WriteElt(\" 73\")\ntheFile.WriteElt(\"     2\")\ntheFile.WriteElt(\" 40\")\ntheFile.WriteElt(\"0.75\")\ntheFile.WriteElt(\" 49\")\ntheFile.Writ
eElt(\"0.5\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.25\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"PHANTOM\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.WriteElt(\"Phantom ______  __  __  ______  __  __  ______\")\ntheFile.WriteElt(\" 72\")\ntheFile.WriteElt(\"    65\")\ntheFile.WriteElt(\" 73\")\ntheFile.WriteElt(\"     6\")\ntheFile.WriteElt(\" 40\")\ntheFile.WriteElt(\"2.5\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"1.25\")\ntheFile
.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.25\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.25\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.25\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.25\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.25\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"PHANTOM2\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.WriteElt(\"Phantom (.5x) ___ _ _ ___ _ _ ___ _ _ ___ _ _\")\ntheFile.WriteElt(\" 72\")\nthe
File.WriteElt(\"    65\")\ntheFile.WriteElt(\" 73\")\ntheFile.WriteElt(\"     6\")\ntheFile.WriteElt(\" 40\")\ntheFile.WriteElt(\"1.25\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.625\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.125\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.125\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.125\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.125\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.125\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LTYPE\")\ntheFile.WriteElt(\"  2\")\ntheFile.Wri
teElt(\"PHANTOMX2\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\"  3\")\ntheFile.WriteElt(\"Phantom (2x) ____________    ____    ____   _\")\ntheFile.WriteElt(\" 72\")\ntheFile.WriteElt(\"    65\")\ntheFile.WriteElt(\" 73\")\ntheFile.WriteElt(\"     6\")\ntheFile.WriteElt(\" 40\")\ntheFile.WriteElt(\"5.0\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"2.5\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.5\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"0.5\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.5\")\ntheFile.
WriteElt(\" 49\")\ntheFile.WriteElt(\"0.5\")\ntheFile.WriteElt(\" 49\")\ntheFile.WriteElt(\"-0.5\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"ENDTAB\")\n\n'LAYER TABLE\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"TABLE\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"LAYER\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     2\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"LAYER\")\ntheFile.WriteElt(\"  2\")\ntheFile.WriteElt(\"0\")\ntheFile.WriteElt(\" 70\")\ntheFile.WriteElt(\"     0\")\ntheFile.WriteElt(\" 62\")\ntheFile.WriteElt(\"     7\")\ntheFile.W
riteElt(\"  6\")\ntheFile.WriteElt(\"CONTINUOUS\")\n' Process layer list, each element e of the list contains the\n' layer name, layer color, and layer linetype\nlayerCount = theLayerList.Count\nfor each e in 1..layerCount By 3\n theFile.WriteElt(\"  0\")\n theFile.WriteElt(\"LAYER\")\n theFile.WriteElt(\"  2\")\n theFile.WriteElt(theLayerList.Get(e - 1))\n theFile.WriteElt(\" 70\")\n theFile.WriteElt(\"     0\")\n theFile.WriteElt(\" 62\")\n theFile.WriteElt(\"     \" + theLayerList.Get(e))\n theFile.WriteElt(\"  6\")\n theFile.WriteElt(the
LayerList.Get(e + 1))\nend\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"ENDTAB\")\ntheFile.WriteElt(\"  0\")\ntheFile.WriteElt(\"ENDSEC\")\n"
	NumberFormat:	347
)

(AVStr.347
	S:	"d.dddddd"
)

(Script.348
	Name:	"avdxf.ValidString"
	SourceCode:	"' script to take out any non alpha-numeric characters\n' from a string and replace them with underscores\n' Returns the new string\ntheString = SELF.AsString\nnewString = \"\"\nfor each pos in 1..theString.Count\n ch = theString.Middle(pos-1,1)\n code = ch.AsAscii\n if ((code >= 0) And (code < 48)) then\n  ch = \"_\"\n end\n if ((code > 57) And (code < 65)) then\n  ch = \"_\"\n end\n if ((code > 90) And (code < 97)) then\n  ch = \"_\"\n end\n if (code > 122) then\n  ch = \"_\"\n end\n newString = newString + ch\nend\nreturn newString\n"
)

(Script.349
	Name:	"avdxf.MenuChoice.Click"
	SourceCode:	"' Name: avdxf.MenuChoice.Click\n\n' Title: Convert to DXF File...\n\n' Topics: Dialogs\n\n' Description: Startup script that runs when starting application. Opens first dialog\n\n' Requires: Dialog Designer\n \n' Self:\n\n' Returns:\n\n'Test theme class to insure it is an FTheme, and of shape class\n'point, polyline, or polygon, if not, remove from list\n'---------------------------------------------------------------\ntheView = av.GetActiveDoc\ntheThemes = theView.GetActiveThemes\nthmCount = theThemes.Count\nfor each thm in 1
..thmCount\n theTheme = theThemes.Get(thm-1)\n if (theTheme.Is(FTheme).Not) then\n  MsgBox.info(\"This theme:\"++theTheme.AsString++\"- is not a feature\"+NL+\n              \"theme and cannot be converted.\",\"Feature Theme Warning\")\n  theTheme.SetActive(False)\n  thmCount = thmCount-1\n end\n if (thmCount = 0) then\n  theThemes = theThemes.IsEmpty\n  exit\n end\nend\n\ntheThemes = theView.GetActiveThemes\ntheCount = theThemes.Count\nfor each thm in 1..theCount\n theTheme = theThemes.Get(thm-1)\n theFTab = theTheme.GetFTab\n shape
Field = theFTab.FindField(\"Shape\")\n theSrcName = theTheme.GetSrcName\n theSubName = theSrcName.GetSubName\n theClassName = theFTab.GetShapeClass.GetClassName\n if ((theClassName <> \"Point\") And \n     (theClassName <> \"Polyline\") And \n     (theClassName <> \"Polygon\")) then\n  MsgBox.info(\"This theme:\"++theTheme.AsString++\"- is not convertable;\"+NL+\n              \"wrong class type.\",\"Class Type Warning\")\n  theTheme.SetActive (False)\n  thmCount = thmCount-1\n end\n if (thmCount = 0) then\n  theThemes = theThemes.IsEm
pty\n  exit\n end\nend \n\n'Initializing general variables\n'------------------------------\ntheThemes = theView.GetActiveThemes\nthmCount = theThemes.Count\n'theTheme = theView.GetActiveThemes.Get(0)\ndxfExtent = theView.ReturnExtent\ntheSize = (dxfExtent.GetHeight Max dxfExtent.GetWidth) / 1000\n\n'Make Dictionary to store data in\n'--------------------------------\n_theDialogDict = Dictionary.Make(30*thmCount)\nchkDupLayrs = List.Make\nchkDupBlks = List.Make\ndxfLayers = List.Make\ndxfBlockName = List.Make\ndataTags = List.
Make\ndataValues = List.Make\n\nfor each thm in 1..thmCount\n theTheme = theView.GetActiveThemes.Get(thm-1)\n theFTab = theTheme.GetFTab\n \n 'set variables for shape field and feature class\n '-----------------------------------------------\n\n shapeField = theFTab.FindField(\"Shape\")\n theClassName = theFTab.GetShapeClass.GetClassName\n\n 'Creating a list of fields from the feature table (excluding shape field)\n '----------------------------------------------------------------------\n theFields = List.Make\n\n for each f 
in theFTab.GetFields\n  if (f.IsTypeShape.Not) then\n   theFields.Add(f)\n  end\n end\n\n 'Valid Color list called\n '-----------------------\n colorList = Av.Run(\"avdxf.ValidColorList\",\"\")\n\n 'Valid linetype list called\n '--------------------------\n linetypeList = Av.Run(\"avdxf.ValidLinetypeList\",\"\")\n\n 'Valid Block shape list called\n '-----------------------------\n blockList = Av.Run(\"avdxf.ValidBlockList\",\"\")\n\n 'Setting variables for dialogs to be called\n '------------------------------------------\n d1 = av.FindDi
alog(\"dxf.Dialog1\")\n d2 = av.FindDialog(\"dxf.Dialog2\")\n d3 = av.FindDialog(\"dxf.Dialog3\")\n d4 = av.FindDialog(\"dxf.Dialog4\")\n d5 = av.FindDialog(\"dxf.Dialog5\")\n d6 = av.FindDialog(\"dxf.Dialog6\")\n d7 = av.FindDialog(\"dxf.Dialog7\")\n d8 = av.FindDialog(\"dxf.Dialog8\")\n d9 = av.FindDialog(\"dxf.Dialog9\")\n\n 'Verifying theme name can be used as a valid dxf file name\n '---------------------------------------------------------\n baseName = av.Run(\"avdxf.ValidString\", theTheme.GetName)\n\n 'Populate and set appropriate c
ontrols in dialog box 1\n '-----------------------------------------------------\n d1.FindByName(\"labelTheme\").SetLabel(theView.GetName + \":\" + theTheme.GetName)\n d1.FindByName(\"labelClass\").SetLabel(theClassName)\n\n 'Populate and set appropriate controls in dialog box 2\n '-----------------------------------------------------\n d2.FindByName(\"textFileName\").SetText(system.GetEnvVar(\"HOME\") + \"\\\" + baseName + \".dxf\")\n\n 'Populate and set appropriate controls in dialog box 3\n '-------------------------------------
----------------\n d3.FindByName(\"rdoExport\").Select\n\n 'Populate and set appropriate controls in dialog box 4\n '-----------------------------------------------------\n d4.FindByName(\"textLayerName\").SetText(baseName)\n d4.FindByName(\"textLayerName\").SetVisible(True)\n d4.FindByName(\"textLayerName\").SetEnabled(True)\n d4.FindByName(\"textSize\").SetText(\"1.0\")\n\n 'Populate the color list box\n '---------------------------\n color4 = d4.FindByName(\"lboxColor\")\n color4.SetVisible(true)\n color4.SetEnabled(true)\n color4.D
efineFromList(colorList)\n color4.SelectCurrent(false)\n\n 'Populate the line type list box if shape other than point\n '---------------------------------------------------------\n linetype4 = d4.FindByName(\"lboxLinetype\")\n if (theClassName = \"Point\") then\n  linetype4.SetEnabled(False)\n  linetype4.SetVisible(False)\n else\n  linetype4.SetVisible(true)\n  linetype4.SetEnabled(true)\n  linetype4.DefineFromList(linetypeList)\n  linetype4.SelectCurrent(false)\n end\n\n 'Initialize radio buttons\n '------------------------\n d
4.FindByName(\"rdoLayerName\").Select\n d4.FindByName(\"rdoLtypeName\").Select\n d4.FindByName(\"rdoColorName\").Select\n\n 'populate the layer by field list box and disable\n '-------------------------------------------------\n layer4 = d4.FindByName(\"lBoxLayer\")\n layer4.DefineFromList(theFields)\n layer4.SetVisible(false)\n layer4.SetEnabled(false)\n\n 'populate the line type by field list box and disable if shape is other than point \n '----------------------------------------------------------------------------------\n l
Type4 = d4.FindByName(\"lBox2Linetype\")\n if (theClassName = \"Point\") then\n  lType4.SetEnabled(False)\n  lType4.SetVisible(False)\n else\n  lType4.DefineFromList(theFields)\n  lType4.SetVisible(false)\n  lType4.SetEnabled(false)\n end\n\n 'populate the color by field list box and disable\n '-------------------------------------------------\n fldColor4 = d4.FindByName(\"lBox2Color\")\n fldColor4.DefineFromList(theFields)\n fldColor4.SetVisible(false)\n fldColor4.SetEnabled(false)\n\n 'Populate and set appropriate controls in d
ialog box 5\n '-----------------------------------------------------\n d5.FindByName(\"rdoExport\").Select\n\n 'Populate and set appropriate controls in dialog box 6\n '-----------------------------------------------------\n d6.FindByName(\"textLayerName\").SetText(baseName + \"_Text\")\n d6.FindByName(\"textLayerName\").SetVisible(true)\n d6.FindByName(\"textSize\").SetText(theSize.AsString)\n\n 'Populate the color list box\n '---------------------------\n color6 = d6.FindByName(\"lboxColor\")\n color6.SetVisible(true)\n color6.Set
Enabled(true)\n color6.DefineFromList(colorList)\n color6.SelectCurrent(false)\n\n 'Populate the text field list box\n '--------------------------------\n text6 = d6.FindByName(\"lboxTextField\")\n text6.SetVisible(true)\n text6.SetEnabled(true)\n text6.DefineFromList(theFields)\n text6.SelectCurrent(false)\n\n 'Initialize radio buttons\n '------------------------\n d6.FindByName(\"rdoLayerName\").Select\n d6.FindByName(\"rdoColorName\").Select\n\n 'Populate the layer by field list box and disable\n '------------------------------
-------------------\n layer6 = d6.FindByName(\"lBoxLayer\")\n layer6.DefineFromList(theFields)\n layer6.SetEnabled(false)\n layer6.SetVisible(false)\n\n 'populate the color by field list box and disable\n '-------------------------------------------------\n fldColor6 = d6.FindByName(\"lBox2Color\")\n fldColor6.DefineFromList(theFields)\n fldColor6.SetEnabled(false)\n fldColor6.SetVisible(false)\n\n 'Populate and set appropriate controls in dialog box 7\n '-----------------------------------------------------\n d7.FindByName(\"
rdoExport\").Select\n\n 'Populate and set appropriate controls in dialog box 8\n '-----------------------------------------------------\n d8.FindByName(\"textLayerName\").SetText(baseName + \"_Data\")\n d8.FindByName(\"textLayerName\").SetVisible (true)\n d8.FindByName(\"textLayerName\").SetEnabled (true)\n d8.FindByName(\"textSize\").SetText((theSize / 2.0).AsString)\n\n 'Populate the color list box\n '---------------------------\n color8 = d8.FindByName(\"lboxColor\")\n color8.SetVisible (true)\n color8.SetEnabled(true)\n color8.De
fineFromList(colorList)\n color8.SelectCurrent(false)\n\n 'Populate the attribute data list box\n '------------------------------------\n d8.FindByName(\"checkData\").SetSelected(true)\n data8 = d8.FindByName(\"lboxDataFields\")\n data8.DefineFromList(theFields)\n data8.SelectCurrent(false)\n\n 'Populate the block symbol list box\n '----------------------------------\n block8 = d8.FindByName(\"lboxBlock\")\n block8.SetVisible (true)\n block8.SetEnabled(true)\n block8.DefineFromList(blockList)\n block8.SelectCurrent(false)\n\n 'Pop
ulate the block tag name text box\n '------------------------------------\n d8.FindByName(\"textBlockName\").SetText(baseName + \"_Tag\")\n d8.FindByName(\"textBlockName\").SetVisible (true)\n\n 'Initialize radio buttons\n '------------------------\n d8.FindByName(\"rdoLayerName\").Select\n d8.FindByName(\"rdoColorName\").Select\n d8.FindByName(\"rdoBlockName\").Select\n\n 'populate the layer by field list box and disable\n '-------------------------------------------------\n layer8 = d8.FindByName(\"lBoxLayer\")\n layer8.DefineFromLi
st(theFields)\n layer8.SetEnabled(false)\n layer8.SetVisible(false)\n\n 'populate the color by field list box and disable\n '-------------------------------------------------\n fldColor8 = d8.FindByName(\"lBox2Color\")\n fldColor8.DefineFromList(theFields)\n fldColor8.SetEnabled(false)\n fldColor8.SetVisible(false)\n\n 'populate the block symbol by field list box and disable\n '--------------------------------------------------------\n fldBlock8 = d8.FindByName(\"lBox2Block\")\n fldBlock8.DefineFromList(theFields)\n fldBlock8
.SetEnabled(false)\n fldBlock8.SetVisible(false)\n\n 'Open the first dialog\n '---------------------\n d1.Open\nend"
)

(Script.350
	Name:	"avdxf.MenuChoice.Update"
	SourceCode:	"' Name: avdxf.MenuChoice.Update\n\n' Title:\n\n' Topics: Views and Themes\n\n' Description: Tests to insure active is an FTheme before enabling menu choice\n\n' Requires: \n \n' Self: The Active Theme\n\n' Returns: Nil\n\n'Test theme class to insure it is an FTheme, and of shape class\n'point, polyline, or polygon, if not, remove from list\n'---------------------------------------------------------------\nSELF.SetEnabled(true)\n\ntheView = av.GetActiveDoc\ntheThemes = theView.GetActiveThemes\n\nif (theThemes.Count < 1) then\n SEL
F.SetEnabled(false)\nend\n'else\n'thmCount = theThemes.Count\n'for each thm in 1..thmCount\n' theTheme = theThemes.Get(thm-1)\n' if (theTheme.Is(FTheme).Not) then\n'  MsgBox.info(\"This\"++theTheme.AsString++\"is not a feature type\"+NL+\n'              \"theme and cannot be converted.\",\"Feature Theme Warning\")\n'  theTheme.SetActive(False)\n' end\n'end\n\n'newThemes = theView.GetActiveThemes\n'newCount = theThemes.Count\n'for each thm in 1..newCount\n' theFTab = theTheme.GetFTab\n' shapeField = theFTab.FindField(\"Shape\")\n' theS
rcName = theTheme.GetSrcName\n' theSubName = theSrcName.GetSubName\n' theClassName = theFTab.GetShapeClass.GetClassName\n' if ((theClassName <> \"Point\") And \n'     (theClassName <> \"Polyline\") And \n'     (theClassName <> \"Polygon\")) then\n'  SELF.SetEnabled(false)\n' end \n'end\n"
)

(Script.351
	Name:	"avdxf.WriteDXF"
	SourceCode:	"' Name: avdxf.WriteDXF\n\n' Title: \n\n' Topics: Writes the DXF to file\n\n' Description: Script to take collected values from dialog and write the DXF file\n\n' Requires: Dialog Designer\n \n' Self:\n\n' Returns: Nil\n\n'Set variables to access dialog boxes\n'------------------------------------\nd1 = av.FindDialog(\"dxf.Dialog1\")\nd2 = av.FindDialog(\"dxf.Dialog2\")\nd3 = av.FindDialog(\"dxf.Dialog3\")\nd4 = av.FindDialog(\"dxf.Dialog4\")\nd5 = av.FindDialog(\"dxf.Dialog5\")\nd6 = av.FindDialog(\"dxf.Dialog6\")\nd7 = av.FindDialog(\"dxf.D
ialog7\")\nd8 = av.FindDialog(\"dxf.Dialog8\")\nd9 = av.FindDialog(\"dxf.Dialog9\")\n\n'Determine the theme to be converted\n'------------------------------------\ntheViewName = d1.FindByName(\"labelTheme\").GetLabel.AsTokens(\":\").Get(0)\ntheView = av.GetProject.FindDoc(theViewName)\ntheThemeName = d1.FindByName(\"labelTheme\").GetLabel.AsTokens(\":\").Get(1)\ntheTheme = theView.FindTheme(theThemeName)\n\n'Set variable for the FTab and for the theme to be converted\n'-----------------------------------------------------------\nthe
FTab = theTheme.GetFTab\n\ntheBitMap = theFTab.GetSelection\n  \n   if (theBitMap.Count <= 0) then\n    theBitMap.SetAll\n    theFTab.UpdateSelection\n   end\n\n'Get the shape field and feature class for the conversion\n'---------------------------------------------------------\nshapeField = theFTab.FindField(\"Shape\")\ntheClassName = theFTab.GetShapeClass.GetClassName\n\n'Get the file name to create and create empty file\n'--------------------------------------------------\nfileString = d2.FindByName(\"textFileName\").GetTex
t\ndxfFileName = fileString.AsFileName\ndxfFile = LineFile.Make(dxfFileName, #FILE_PERM_WRITE) \n\n'Test for nil file\n'-----------------\nif (dxfFile = nil) then\n MsgBox.Error(\"Error in file name\" ++ dxfFileName, \"ERROR\")\n exit\nend\n\n'Determine the extent of the theme in map units\n'----------------------------------------------\ndxfExtent = theTheme.ReturnExtent\n\n'Make a list to store the dxf layers\n'-----------------------------------\ndxfLayers = List.Make\nav.ShowMsg(\"Collecting Data for drawing interchange file.
..\")\n\n'Routine to build list for table section of DXF file\n'---------------------------------------------------\nif (d3.FindByName(\"rdoExport\").IsSelected) then\n write_shapes = true\n chkLyr = 0\n\n'Build list if name only\n'-----------------------\n  if (d4.FindByName(\"rdoLayerName\").IsSelected) then\n   if (d4.FindByName (\"rdoColorName\").IsSelected) then\n    if (d4.FindByName (\"rdoLTypeName\").IsSelected) then\n      LayerName = av.Run(\"avdxf.ValidString\", d4.FindByName(\"textLayerName\").GetText)\n      dxfLayers.Ad
d(LayerName)\n      dxfLayers.Add(d4.FindByName(\"lboxColor\").GetCurrentValue.Extract(0))\n      dxfLayers.Add(d4.FindByName(\"lboxLinetype\").GetCurrentValue.Extract(0))\n     chkLyr = 1\n    end\n   end\n  end\n  \n 'Build list using field values\n '----------------------------- \n if(chkLyr = 0) then\n     \n  lyrField = d4.FindByName(\"lBoxLayer\").GetCurrentValue\n  clrField = d4.FindByName(\"lBox2Color\").GetCurrentValue\n  ltField = d4.FindByName(\"lBox2Linetype\").GetCurrentValue\n  \n   for each rec in theBitMap\n   \n   chk
DupLyrs = List.Make\n      \n    if (d4.FindByName(\"rdoLayerName\").IsSelected) then\n     LayerName = av.Run(\"avdxf.ValidString\", d4.FindByName(\"textLayerName\").GetText)\n    else\n     LayerName = av.Run(\"avdxf.ValidString\", theFtab.ReturnValue(lyrField, rec)).AsString\n    end\n   \n    if (d4.FindByName(\"rdoColorField\").IsSelected) then\n     colorName = theFtab.ReturnValue(clrField, rec).AsString\n    else\n     colorName = d4.FindByName(\"lboxColor\").GetCurrentValue.Extract(0)\n    end\n\n    if (d4.FindByName(\"rdoLT
ypeField\").IsSelected) then\n     ltName = theFtab.ReturnValue(ltField, rec).AsString\n    else\n     ltName = d4.FindByName(\"lboxLinetype\").GetCurrentValue.Extract(0)\n    end\n    \n    'Check for duplicate layers before adding to the list\n    '----------------------------------------------------\n    chkDupLyrs.Add(LayerName++colorName++ltName)\n    lyrCntBfr = chkDupLyrs.count\n    chkDupLyrs.RemoveDuplicates\n    lyrCntAftr = chkDupLyrs.count\n    if (lyrCntBfr = lyrCntAftr) then\n     dxfLayers.Add(layerName)\n   
  dxfLayers.Add(colorName)\n     dxfLayers.Add(ltName)\n    end  \n   end\n end\n \n 'Define Object size\n '------------------  \n dxfObjectSize = d4.FindByName(\"textSize\").GetText\nelse\n write_shapes = false\nend\n\n'Add to list if text is chosen\n'-------------------------------\nif (d5.FindByName(\"rdoExport\").IsSelected) then\n write_text = true\n chkTxt = 0\n\n'Build list if name only\n'-----------------------\n  if (d6.FindByName(\"rdoLayerName\").IsSelected) then\n   if (d6.FindByName (\"rdoColorName\").IsSelected) then\n     
 txtName = av.Run(\"avdxf.ValidString\", d6.FindByName(\"textLayerName\").GetText)\n      dxfLayers.Add(txtName)\n      dxfLayers.Add(d6.FindByName(\"lboxColor\").GetCurrentValue.Extract(0))\n      dxfLayers.Add(\"CONTINUOUS\")\n      chkTxt = 1\n    end   \n   end\n\n 'Build list using field values\n '-----------------------------  \n if (chkTxt = 0) then\n  txtLyrField = d6.FindByName(\"lBoxLayer\").GetCurrentValue\n  txtClrField = d6.FindByName(\"lBox2Color\").GetCurrentValue\n      \n  for each rec in theBitMap\n   \n   if (d6.Fin
dByName(\"rdoLayerField\").IsSelected) then\n    txtName = av.Run(\"avdxf.ValidString\", theFtab.ReturnValue(txtLyrField, rec)).AsString\n   else\n    txtName = av.Run(\"avdxf.ValidString\", d6.FindByName(\"textLayerName\").GetText)\n   end\n   \n    if (d6.FindByName(\"rdoColorField\").IsSelected) then\n     txtClr = theFtab.ReturnValue(txtClrField, rec).AsString\n    else\n     txtClr = d6.FindByName(\"lboxColor\").GetCurrentValue.Extract(0) \n    end\n   \n    if (d4.FindByName(\"rdoLTypeField\").IsSelected) then\n     txtLt = the
Ftab.ReturnValue(ltField, rec).AsString\n    else\n     txtLt = \"Continuous\"\n    end\n   'Check for duplicate dxf layers before adding to the list\n   '--------------------------------------------------------\n   chkDupLyrs.Add(txtName++txtClr++TxtLt)\n   txtCntBfr = chkDupLyrs.count\n   chkDupLyrs.RemoveDuplicates\n   txtCntAftr = chkDupLyrs.count\n   \n   if (txtCntBfr = txtCntAftr) then\n     dxfLayers.Add(txtName)\n     dxfLayers.Add(txtClr)\n     dxfLayers.Add(txtLt)\n   end\n  end\n end\n \n 'Set text field and text si
ze to use\n '-----------------------------------\n textField = d6.FindByName(\"lboxTextField\").GetCurrentValue\n dxfTextSize = d6.FindByName(\"textSize\").GetText\nelse\n write_text = false\nend\n\n'Add to list if Block data is chosen\n'-----------------------------------\nif (d7.FindByName(\"rdoExport\").IsSelected) then\n write_blocks = true\n chkBlk = 0\n dxfBlockName = List.Make\n\n'Build list if selected by name\n'------------------------------\n if (d8.FindByName(\"rdoLayerName\").IsSelected) then\n  if (d8.FindByName (\"rdoCo
lorName\").IsSelected) then\n   if (d8.FindByName (\"rdoBlockName\").IsSelected) then\n    BlkName = av.Run(\"avdxf.ValidString\", d8.FindByName(\"textLayerName\").GetText)\n    dxfLayers.Add(BlkName)\n    dxfLayers.Add(d8.FindByName(\"lboxColor\").GetCurrentValue.Extract(0))\n    dxfLayers.Add(\"CONTINUOUS\")\n    dxfBlockName.Add(av.Run(\"avdxf.ValidString\", d8.FindByName(\"textLayerName\").GetText))\n    dxfBlockName.Add(d8.FindByName(\"lBoxBlock\").GetCurrentValue)\n    chkBlk = 1\n   end\n  end\n end\n\n 'Build list if selected by
 field\n '------------------------------- \n if (chkBlk = 0) then\n    \n  blkLyrField = d8.FindByName(\"lBoxLayer\").GetCurrentValue\n  blkClrField = d8.FindByName(\"lBox2Color\").GetCurrentValue\n  blkSymField = d8.FindByName(\"lBox2Block\").GetCurrentValue\n    \n  chkDupBlks = List.Make\n      \n  for each rec in theBitMap\n  \n   if (d8.FindByName(\"rdoLayerField\").IsSelected) then\n    blkName = av.Run(\"avdxf.ValidString\", theFtab.ReturnValue(blkLyrField, rec)).AsString\n    dxfBlkName = av.Run(\"avdxf.ValidString\", theFta
b.ReturnValue(blkLyrField, rec)).AsString\n   else\n    blkName = av.Run(\"avdxf.ValidString\", d8.FindByName(\"textLayerName\").GetText)\n    dxfBlkName = av.Run(\"avdxf.ValidString\", d8.FindByName(\"textLayerName\").GetText)\n   end\n   \n   if (d8.FindByName(\"rdoBlockField\").IsSelected) then\n    dxfSymName = av.Run(\"avdxf.ValidString\", theFTab.ReturnValue(blkSymField, rec)).AsString\n   else\n    dxfSymName = d8.FindByName(\"lBoxBlock\").GetCurrentValue\n   end\n   \n   if (d8.FindByName(\"rdoColorField\").IsSelected) then\n  
  blkClr = theFtab.ReturnValue(blkClrField, rec).AsString\n   else\n    blkClr = d8.FindByName(\"lBoxColor\").GetCurrentValue.Extract(0)\n   end\n    \n   if (d4.FindByName(\"rdoLTypeField\").IsSelected) then\n     blkLt = theFtab.ReturnValue(ltField, rec).AsString\n    else\n     blkLt = \"Continuous\"\n    end\n    'Check for duplicate dxf layers before adding to the list\n    '--------------------------------------------------------\n    chkDupLyrs.Add(blkName++blkClr++blkLt)\n    blkCntBfr = chkDupLyrs.Count\n    chkDupLyr
s.RemoveDuplicates\n    blkCntAftr = chkDupLyrs.Count\n    if (blkCntBfr = blkCntAftr) then\n     dxfLayers.Add(blkName)\n     dxfLayers.Add(blkClr)\n     dxfLayers.Add(blkLt)\n    end\n    chkDupBlks.Add(dxfBlkName)\n    dxfBlkCntBfr = chkDupBlks.Count\n    chkDupBlks.RemoveDuplicates\n    dxfBlkCntAftr = chkDupBlks.Count\n    if (dxfBlkCntBfr = dxfBlkCntAftr) then\n     dxfBlockName.Add(dxfBlkName)\n     dxfBlockName.Add(dxfSymName)\n    end\n  end\n end \n \n dxfBlockSize = d8.FindByName(\"textSize\").GetText\n \n'Data to wri
te to blocks if selected\n'------------------------------------\n if (d8.FindByName(\"checkData\").IsSelected) then\n  write_data = true\n  dataFields = d8.FindByName(\"lboxDataFields\").GetSelection\n  dataTags = List.Make\n  dataValues = List.Make\n  for each fld in dataFields\n   dataTags.Add(av.Run(\"avdxf.ValidString\", fld.GetName))\n  end \n else\n  write_data = false\n end\nelse\n write_blocks = false\n write_data = false\nend\n\n'Routine to pass data to header and table section of dxf file\n'-------------------------------
-----------------------------\nav.ShowMsg(\"Initializing drawing interchange file...\")\nav.Run(\"avdxf.Section.Header\", {dxfFile, dxfExtent})\nav.Run(\"avdxf.Section.Tables\", {dxfFile, dxfLayers})\n\n'Routine to pass data to block section of dxf file\n'-------------------------------------------------\nif (write_blocks = true) then\n av.Run(\"avdxf.Section.Blocks\", {dxfFile, dxfBlockName, dataTags})\nend\n\n'Start of routine to write entities to dxf file\n'----------------------------------------------\nav.ShowMsg(\"Writing 
DXF Entities Section...\")\n\ndxfFile.WriteElt(\"  0\")\ndxfFile.WriteElt(\"SECTION\")\ndxfFile.WriteElt(\"  2\")\ndxfFile.WriteElt(\"ENTITIES\")\n\nav.ShowMsg(\"Parsing shapes into entities...\")\n\n'Loop to write data to the entities section of the dxf file\n'----------------------------------------------------------\nk = theBitMap.Count\nj = 1\nav.ShowStopButton\n\nfor each rec in theBitMap\n'Messages to show while building file\n'------------------------------------\n msgString = \"Writing Object\" ++ j.AsString ++ \"of\" ++ k.AsString
 \n\n if (write_text = true) then\n  dxfText = theFTab.ReturnValueString(textField, rec)\n  msgString = msgString ++ \"[\" + dxfText + \"]\"\n end\n\n if (write_data = true) then\n  dataValues.Empty\n\n  for each fld in dataFields\n   dataValues.Add(theFTab.ReturnValueString(fld, rec))\n  end\n\n  msgString = msgString ++ dataTags.Get(0) ++ \"= <\" + dataValues.Get(0) + \">\"\n else\n  if (write_blocks = true) then\n   msgString = msgString ++ dataTags.Get(0) ++ \"= [\" + dxfBlockName + \"]\"\n  end\n end\n\n shapeArgList = {\"dxf\" + theCla
ssName}\n\n if (theClassName = \"Polygon\") then\n  theList = theFTab.ReturnValue(shapeField, rec).Explode\n elseif (theClassName = \"Polyline\") then\n  theList = theFTab.ReturnValue(shapeField, rec).Explode\n elseif (theClassName = \"Point\") then\n  theList = {theFTab.ReturnValue(shapeField, rec)}\n end\n  \n'Build the shape portion of the file\n'-----------------------------------\n if (write_shapes = true) then\n  if (d4.FindByName(\"rdoLayerName\").IsSelected) then\n    txtName = av.Run(\"avdxf.ValidString\", d4.FindByName(\"
textLayerName\").GetText)\n  else\n   layerName = av.run(\"avdxf.ValidString\", theFtab.ReturnValue(lyrField, rec))\n  end\n  \n  if (d4.FindByName(\"rdoColorField\").IsSelected) then\n   colorName = theFtab.ReturnValue(clrField, rec)\n  else\n   colorName = nil\n  end\n  \n  if (d4.FindByName(\"rdoLTypeField\").isSelected) then\n   lTypeName = theFtab.ReturnValue(ltField, rec)\n  else\n   lTypeName = nil\n  end\n  \n  'Routine to pass data to shape entities portion of dxf\n  '-----------------------------------------------------\n 
 for each theShape in theList\n    av.Run(\"avdxf.Section.Entities.PointPoly\", {dxfFile, theShape, layerName, theClassName,\n                                                dxfObjectSize, colorName, lTypeName})\n  end \n end\n \n 'Build the text portion of the dxf file\n '--------------------------------------\n if (write_text = true) then\n   if (d6.FindByName(\"rdoLayerName\").IsSelected) then\n    txtName = av.Run(\"avdxf.ValidString\", d6.FindByName(\"textLayerName\").GetText)\n   else\n    txtName = av.run(\"avdxf.ValidSt
ring\", theFtab.ReturnValue(txtLyrField, rec))\n   end\n  \n  if (d6.FindByName(\"rdoColorField\").IsSelected) then\n   txtColorName = theFtab.ReturnValue(txtClrField, rec)\n  else\n   txtColorName = nil\n  end\n  \n  'Routine to pass data to the text portion of the dxf file\n  '--------------------------------------------------------\n  for each theShape in theList\n   av.Run(\"avdxf.Section.Entities.Text\", {dxfFile, theShape, txtName, dxfText, dxfTextSize, txtColorName})\n  end\n end\n \n 'Build the block entity portion of t
he dxf\n '------------------------------------------\n if (write_blocks = true) then\n   if (d8.FindByName(\"rdoLayerName\").IsSelected) then\n     lyrName = av.Run(\"avdxf.ValidString\", d8.FindByName(\"textLayerName\").GetText)\n     blkName = av.Run(\"avdxf.ValidString\", d8.FindByName(\"textLayerName\").GetText)\n   else\n    lyrName = av.run(\"avdxf.Val