?? 查找點(diǎn)對(duì)象.mb
字號(hào):
include "mapbasic.def"
declare sub main
declare sub mnu_findpoint
declare sub find_point
global tabname() as string
sub main
create menu "查找點(diǎn)" as
"選擇所有點(diǎn)" calling mnu_findpoint
alter menu bar add "查找點(diǎn)"
end sub
sub mnu_findpoint
dim i as integer
dim tablenums as integer
tablenums = numtables()
For i = 1 To tablenums
redim tabname(i)
tabname(i) = tableinfo(i,TAB_INFO_NAME)
Next
dialog title "請(qǐng)從中選擇一個(gè)表,進(jìn)行處理……"
Control statictext
title "請(qǐng)選擇一個(gè)表:"
position 5,5
Control listbox Position 5, 20
ID 1111
width 105 height 50
title from variable tabname
value 1
control okbutton Position 12,90 calling find_point
control cancelbutton position 65,90
end sub
sub find_point
dim tablename as string
dim objalias as alias
tablename = tabname(readcontrolvalue(1111))
' fetch first from tablename
' for j=1 to tableinfo(tablename,tab_info_nrows)
' objalias = tablename & ".obj"
' if objectinfo(objalias,obj_info_type) = OBJ_TYPE_POINT then
' alter object myobj Geography OBJ_GEO_TEXTANGLE,angle
' update tablename set obj=myobj where rowid =j
' end if
' fetch next from tablename
' next
end sub
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -