X/Y Points Extractor for the Mapwindow Class

Category:

C#, VB.NET, ASP.NET

Type:

Modules

Difficulty:

Intermediate

Author:

Anonymous

Version Compatibility: Visual Basic 6

More information:

For the Mapwindow class, this is a simple script for extracting the x and y points featured in a shapeFile.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Imports MapWindow.Interfaces
Imports MapWinGIS
Imports System
Imports System.Windows.Forms
Imports System.Collections
Imports Microsoft.VisualBasic

Public Module XYPoints

'***********************
    '* Main
    '***********************
    Public Sub ScriptMain(ByRef m_MapWin As IMapWin)
	dim sf as new MapWinGIS.shapefile 
	dim sh as new MapWinGIS.shape 
	dim i as integer, j as integer 
	dim outputstring as string = ""
	dim FileName as string = "C:\BASINS\data\01080105\cat.shp"
 
      sf.open(FileName)

'Cycle through all shapes in the shapefile 
	for i = 0 to sf.numshapes - 1

'Now get the current shape at position i (polygon or polyline) 
	  sh = sf.shape(i)

'Now cycle through all of its points 
	  for j = 0 to sh.numpoints -1

'now you can get to the x,y values on each point and add them to a big long string 
	    outputstring = outputstring & vbCrLf & " Shape: " & i & vbTab & "Point: " 
	    outputstring = outputstring & j & vbTab & "X: " & sh.point(j).x & vbTab & "Y: " & sh.point(j).y

next j 
	next i

'now save the output string to a file or something.  I'll just show it in a popup box 
	FileOpen (1,"c:\output.txt",OpenMode.Output,OpenAccess.Write)
	PrintLine(1, "X and Y Data Extracted from:" & vbCrLf & FileName)
	PrintLine(1, outputstring) 
	FileClose (1)
	Shell ("notepad.exe c:\output.txt", vbNormalFocus)
    End Sub
End Module