查找点对象.mb

很多的MAPINFO的常见问题下载后可以学习很有帮助

include "mapbasic.def"

declare sub main
declare sub mnu_findpoint
declare sub find_point

global tabname() as string

sub main
	create menu "查找点" as 
		"选择所有点" calling mnu_findpoint
	alter menu bar add "查找点"
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 "请从中选择一个表，进行处理……"
		Control statictext 
			title "请选择一个表：" 
			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