Old-Mapbasic-Code/CreateLineFromPoints.mb at master · jaworra/Old-Mapbasic-Code · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60

include "MAPBASIC.DEF"
include "ICONS.DEF"

Declare Sub Main
Declare Sub joinPoints

Sub Main

Create ButtonPad "Join" As PushButton Calling joinPoints Icon MI_ICON_POLYLINE

End Sub


Sub joinPoints

Dim pointsTable As String
Dim tblName As String

pointsTable = FileOpenDlg("","","TAB","Open Table")
If pointsTable <> "" Then

	Open Table pointsTable

	tblName = PathToTableName$(pointsTable)
	Commit Table tblName As "C:\tmpPointsTable.TAB"
	Open Table "C:\tmpPointsTable.TAB" As tblPoints

	Run Command "Set " & TableInfo(tblName, TAB_INFO_COORDSYS_CLAUSE)

	Dim polyLine As Object
	Create Pline Into Variable polyLine
		0
		Pen MakePen(2, 2, RGB(0, 128, 0))

	Dim numPoints As Integer
	numPoints=0
	Fetch First From tblPoints
	Do While Not EOT(tblPoints)
		numPoints = numPoints + 1
		Alter Object polyLine
			Node Add (tblPoints.Easting, tblPoints.Northing)
		Print Str$(numPoints) & ": " & Str$(tblPoints.Easting) & ", " & Str$(tblPoints.Northing)
		Fetch Next From tblPoints
	Loop

	If NumWindows() = 0 Then
		Map From tblName
	End If

	Insert Into WindowInfo(WindowID(FrontWindow()), WIN_INFO_TABLE)
		(Obj)
		Values (polyLine)

	Drop Table tblPoints

End If

End Sub