Question

mapbasic 怎样生成图层，想生成一个道路层？

例如是怎样做的呢？知道的话发我邮箱谢谢.423550396@qq.com

Answer 1

给你一段代码你看看吧。

Include "mapbasic.def"
Include "icons.def"
Include "menu.def"

Declare Sub main
Declare Sub open_tables
Declare Sub move_trucks
Declare Sub end_program

Global Use_Animation as Logical

Sub Main
Create Menu "&Animation Layer" As
"&Test Animation Layer" Calling move_trucks,
"&End Program" Calling end_program
Alter Menu Bar Add "&Animation Layer"
Close All
call Open_Tables
End Sub

Sub Open_Tables
Open Table "D:\MapInfo\MapData\tutordata\DC\dcwashs.tab" As DCWASHS Interactive
Open Table "F:\annimate\nodexy" As TRK_XYS Interactive
Open Table "F:\annimate\trucks" As TRUCKS Interactive
Map From DCWASHS
Set Map Center (-77.023, 38.901) zoom 15.65 Units "km"
Set Window Frontwindow() Max
End Sub

Sub move_trucks
dim i as integer
Dim delay as Integer
Dim x,y as Float
Dim truck_symbol as Symbol

Use_Animation = Ask("Do you want to use the Animation Layer feature?","&Yes","&No")
If use_animation then Add Map Layer trucks Animate '采用动态图层与不采用动态图层的区别。
Else Add Map Layer trucks
End If

Fetch First From trk_xys

Do While Not EOT(trk_xys)
x = trk_xys.xcoord
y = trk_xys.ycoord
Update trucks Set Obj = CreatePoint(x,y) Where Rowid = 1
Fetch next from trk_xys
for i = 1 to 2500 '还有其它更好的办法来实现延时吗？
next
Loop

If use_animation Then Remove Map Layer Animate
Else Remove Map Layer trucks
End If
End Sub

Sub end_program
Close All
End Program
End Sub

追问

怎样去创建地名层呢？

Answer 2

代码如下：
Include "mapbasic.def"
Include "icons.def"
Include "menu.def"

Declare Sub main
Declare Sub open_tables
Declare Sub move_trucks
Declare Sub end_program

Global Use_Animation as Logical

Sub Main
Create Menu "&Animation Layer" As
"&Test Animation Layer" Calling move_trucks,
"&End Program" Calling end_program
Alter Menu Bar Add "&Animation Layer"
Close All
call Open_Tables
End Sub

Sub Open_Tables
Open Table "D:\MapInfo\MapData\tutordata\DC\dcwashs.tab" As DCWASHS Interactive
Open Table "F:\annimate\nodexy" As TRK_XYS Interactive
Open Table "F:\annimate\trucks" As TRUCKS Interactive
Map From DCWASHS
Set Map Center (-77.023, 38.901) zoom 15.65 Units "km"
Set Window Frontwindow() Max
End Sub

Sub move_trucks
dim i as integer
Dim delay as Integer
Dim x,y as Float
Dim truck_symbol as Symbol

Use_Animation = Ask("Do you want to use the Animation Layer feature?","&Yes","&No")
If use_animation then Add Map Layer trucks Animate '采用动态图层与不采用动态图层的区别。
Else Add Map Layer trucks
End If

Fetch First From trk_xys

Do While Not EOT(trk_xys)
x = trk_xys.xcoord
y = trk_xys.ycoord
Update trucks Set Obj = CreatePoint(x,y) Where Rowid = 1
Fetch next from trk_xys
for i = 1 to 2500 '还有其它更好的办法来实现延时吗？
next
Loop

If use_animation Then Remove Map Layer Animate
Else Remove Map Layer trucks
End If
End Sub

Sub end_program
Close All
End Program
End Sub

Answer 3

Include "mapbasic.def"
Include "icons.def"
Include "menu.def"

Declare Sub main
Declare Sub open_tables
Declare Sub move_trucks
Declare Sub end_program

Global Use_Animation as Logical

Sub Main
Create Menu "&Animation Layer" As
"&Test Animation Layer" Calling move_trucks,
"&End Program" Calling end_program
Alter Menu Bar Add "&Animation Layer"
Close All
call Open_Tables
End Sub

Sub Open_Tables
Open Table "D:\MapInfo\MapData\tutordata\DC\dcwashs.tab" As DCWASHS Interactive
Open Table "F:\annimate\nodexy" As TRK_XYS Interactive
Open Table "F:\annimate\trucks" As TRUCKS Interactive
Map From DCWASHS
Set Map Center (-77.023, 38.901) zoom 15.65 Units "km"
Set Window Frontwindow() Max
End Sub

Sub move_trucks
dim i as integer
Dim delay as Integer
Dim x,y as Float
Dim truck_symbol as Symbol

Use_Animation = Ask("Do you want to use the Animation Layer feature?","&Yes","&No")
If use_animation then Add Map Layer trucks Animate '采用动态图层与不采用动态图层的区别。
Else Add Map Layer trucks
End If

Fetch First From trk_xys

Do While Not EOT(trk_xys)
x = trk_xys.xcoord
y = trk_xys.ycoord
Update trucks Set Obj = CreatePoint(x,y) Where Rowid = 1
Fetch next from trk_xys
for i = 1 to 2500 '还有其它更好的办法来实现延时
next
Loop

If use_animation Then Remove Map Layer Animate
Else Remove Map Layer trucks
End If
End Sub

Sub end_program
Close All
End Program
End Sub