Graag zou ik hier een cd rom van willen hebben.
Ik kan deze nergens meer krijgen…
Bedankt!
mail naar :
Was dat misschien “TPG Digitale Postcodekaart 1.0”? Uitgegeven door Andes BV, Eindhoven, ooit een dochterbedrijf van TPG Post:
- [img]http://img132.imageshack.us/img132/4286/tpg2.gif[/img]
- [img]http://img7.imageshack.us/img7/4599/etb2.gif[/img]
Weliswaar niet foutloos:
- [img]http://img63.imageshack.us/img63/7629/schellingendtgfalkplan.gif[/img]
Niet zo mooi als die Postcodekaart waar ook de postcodegebieden in de kaart getoond werden?
In dat geval, tussen de
http://kaart.geodan.nl/]kaarten
op de website van Geodan staat ook een [u]postcodekaart[/u als ‘overlay’ van Google Maps.
Die ‘div’ voor die ‘band’ met de mededeling:
[quote]Deze kaart mag alleen gebruikt worden voor test en demonstratiedoeleinden.
U kunt via een Geoserver.nl abonnement volledige toegang krijgen tot deze kaart.[/quote]
… zou je nog door een lokale ‘proxy’ als die van
http://www.admuncher.com/][u]www.admuncher.com[/u
kunnen laten wegfilteren:
-
http://img132.imageshack.us/img132/5666/ggm.gif][img]http://img709.imageshack.us/img709/2258/ggm2.gif[/img
Nog even verder over Falkplan-Andes, het bedrijf dat naar
http://maptrix.blogspot.com/2009/05/nationaal-wegenbestand-still-not-open.html][u]verluidt[/u
dwars ligt en zo al een jaar de vrijgave van het Nationaal Wegenbestand verhindert.
Bij de Marktplaats-links hiervoor staat er ook eentje voor een wat oudere CD-foongids. De manier waarop de producent de Falkplan-kaart-optie voor de uitgever van De Telefoongids op cd-rom heeft ingericht maakt het aantrekkelijk om ook de digitale kaarten van de CD-foongids als alternatief voor je keuze mee te nemen.
Zij maken daartoe namelijk gebruik van zogeheten “Travelmanager”-
http://www.geoserver.nl/nl/kaartdienst/routeren/Falkrouteren.htm][u]hulpsoftware[/u
in de vorm van een “TravelmanagerComponents.dll”. Die voorziening is ook vanuit je eigen code aan te roepen. Zelf een kaartje of een routebeschrijving genereren blijkt dan heel eenvoudig te zijn en is al eerder in dit forum beschreven.
Zo ook het terugwinnen van de geodata die met de genoemde functionaliteit op dezelfde cd-rom’s meegeleverd wordt. Door Falkplan’s spulletje lichtjes te kietelen:
[code]Sub Main()
Dim c As New Collection, d As New Dictionary
With New Configuration
.DataPath = "E:\Install\program files\De Telefoongids\CD-foongids\Data\gbd"
End With
With New Geo
’ voor Schellingen 8242KB Lelystad:
’
’ rdxy = .WGS84ToCoord(52.5198411336841, 5.43989112598675) 'anwb/falkplan
’ rdxy = .WGS84ToCoord(52.519211, 5.439146) 'googlemaps
’ rdxy = .WGS84ToCoord(52.5204545770389, 5.4389777342213) 'vindjeeigenhuis
’ rdxy = .WGS84ToCoord(52.520745021044, 5.43824819176433) 'nominatim.openstreetmap.org
’ rdxy = Array(158496, 503507) 'geoserver
rdxy = Array(158457, 503653) 'foondump/geo_postalrecords
c.Add rdxy
Do
fc = .FindChains(c(1), 50)
c.Remove 1
If Not IsEmpty(fc) Then
If Not d.Exists(fc(0)) Then
d(fc(0)) = d(fc(0)) + 1
With .GetChainInfo(fc(0))
For i = .NumVertices - 1 To 0 Step -1
n = n + 1
Debug.Print n; fc(0); .Name, .NumVertices - i; .Direction; .Vertex(i)(0); .Vertex(i)(1)
c.Add Array(.Vertex(i)(0), .Vertex(i)(1))
Next
End With
End If
End If
Loop While c.Count > 0
End With
End Sub[/code]
… kan je bewerkstelligen dat het systematisch zijn hele hebben en houden gaat prijsgeven:
1 1414097298 Schellingen 1 0 158456 503488
2 1414097298 Schellingen 2 0 158458 503818
3 1415801234 Oostvaardersdijk 1 0 158456 503488
4 1415801234 Oostvaardersdijk 2 0 158431 503489
5 1415801234 Oostvaardersdijk 3 0 158423 503493
6 1414162834 Bataviaplein 1 0 158442 503818
7 1414162834 Bataviaplein 2 0 158458 503818
8 1415735698 Oostvaardersdijk 1 0 158423 503493
9 1415735698 Oostvaardersdijk 2 0 158434 503478
De volgende stap, het toevoegen van extra zoekopdrachten:
c.Add Array(.Vertex(i)(0) - 10, .Vertex(i)(1) + 10)
c.Add Array(.Vertex(i)(0) + 10, .Vertex(i)(1) - 10)
c.Add Array(.Vertex(i)(0) + 10, .Vertex(i)(1) + 10)
c.Add Array(.Vertex(i)(0) - 10, .Vertex(i)(1) - 10)
… levert een exponentieel toenemend aantal coördinaten dat de gevonden ‘objecten’ geheel gaat beschrijven:
1 1414097298 Schellingen 1 0 158456 503488
2 1414097298 Schellingen 2 0 158458 503818
3 1396599186 Schellingen 1 0 158458 503818
4 1396599186 Schellingen 2 0 158481 503818
5 1416456594 Schellingen 1 0 158492 503518
6 1416456594 Schellingen 2 0 158491 503489
7 1416718738 Schellingen 1 0 158494 503588
8 1416718738 Schellingen 2 0 158492 503518
9 1414031762 Schellingen 1 0 158481 503818
10 1414031762 Schellingen 2 0 158493 503817
11 1414228370 Schellingen 1 0 158494 503806
12 1414228370 Schellingen 2 0 158493 503817
13 1414424978 Schellingen 1 0 158494 503806
14 1414424978 Schellingen 2 0 158494 503588
Alleen was de straatnaam, “Schellingen”, al bijna twee jaar geleden
http://www.foondump.nl/forum/viewtopic.php?p=3464#3464][u]gewijzigd[/u
in “Lelybaan”. 8)
Als je maar volhoudt komt de hele wijk in beeld - als vectorplaatje. Klik op onderstaande uitsnede voor het resultaat:
-
http://img132.imageshack.us/img132/2652/tmc.gif][img]http://img37.imageshack.us/img37/6774/tmc2.gif[/img