CreateStreetMap

 

The CreateStreetMap method creates a street map of Golden Software Street [.STR] files.

 

Syntax

object.CreateStreetMap( StreetFileName, Append, IDIndexForPID, IDIndexForSID, IDIndexForAtt1, IDIndexForAtt2, IDIndexForHyperlink, Subset, pZIPOrTownNames, SpecifyTown )

 

Parameter

Type

Description

StreetFileName

String

required; street file name, for example, 08059.STR to load Jefferson County, Colorado

Append

Boolean

required; true to append to existing map

IDIndexForPID

Integer

required; index number, see remarks

IDIndexForSID

Integer

required; index number, see remarks

IDIndexForAtt1

Integer

required; index number, see remarks

IDIndexForAtt2

Integer

required; index number, see remarks

IDIndexForHyperlink

Integer

required; index number, see remarks

Subset

Boolean

required; true to load a subset of the county, false to load the entire county

pZIPOrTownNames

Array of Variants

required; if Subset is true, array of ZIP codes or town names

SpecifyTown

Boolean

required; if Subset is true, use true to load an array of towns or false to load an array of ZIP codes

 

Remarks

VB users can use ReDim to set the array size to the used size if necessary or use CreateStreetMap2.

 

The following ID indices apply to all the 5 IDs: PID, SID, Attribute 1, Attribute 2, and Hyperlink.

The array containing the town names or ZIP codes must be declared as a variant.

 

There is one Golden Software Street [.STR] file per county with the FIPS code as the name.

 

Example 1

This example creates a street map based on towns.

towns(0) = "Loveland"

towns(1) = "Berthoud"

plot.CreateStreetMap ( _

    StreetFileName := "C:\GSI_Street_Data\CO\08069.STR", _

    Append := True, _

    IDIndexForPID := 1, _

    IDIndexForSID := 0, _

    IDIndexForAtt1 := 3, _

    IDIndexForAtt2 := 4, _

    IDIndexForHyperlink := 0, _

    Subset := True, _

    pZIPOrTownNames := towns, _

    SpecifyTown := True _

    )

 

Example 2

This example creates a street map based on ZIP codes.

zips(0) = "80525"

zips(1) = "80526"

plot.CreateStreetMap ( _

    StreetFileName := "C:\GSI_Street_Data\CO\08069.STR", _

    Append := True, _

    IDIndexForPID := 1, _

    IDIndexForSID := 0, _

    IDIndexForAtt1 := 5, _

    IDIndexForAtt2 := 6, _

    IDIndexForHyperlink := 0, _

    Subset := True, _

    pZIPOrTownNames := zips, _

    SpecifyTown := False _

    )

 

Used by: PlotDocument object