Форумы GIS-Lab.info

Код: Выделить всё

Sub Convert_boundary_polygon2(cur_path as string)
	
		Dim pPen as Pen
		Dim cur_table, cur_table_name as string
	
	cur_table = "boundary-polygon"
	
	Close All Interactive
	Open TABLE cur_path & cur_table Interactive
	
	'Определяем имя открытой таблицы
	cur_table_name = TableInfo(0, TAB_INFO_NAME)

	'--------------------------------------------------------
	'              преобразуем в полилинии                
	'--------------------------------------------------------
	'Update cur_table_name Set Obj = ConvertToPLine(Obj)
	'Commit Table cur_table_name

	'--------------------------------------------------------
	'              Оставляем только нужное                
	'--------------------------------------------------------
	select * from cur_table_name where 
		ADMIN_LVL <> "6" and ADMIN_LVL <> "4" 
	into t1

	delete * from t1 

	Commit Table cur_table_name Interactive

End Sub

Код: Выделить всё

delete from t1

Код: Выделить всё

sub PackTable(ByVal nameTab As String,byval idWin as integer)
Commit Table nameTab
onerror goto ex
Pack Table nameTab Graphic Data Interactive
Add Map Window idWin Auto Layer nameTab
exit sub
ex:
Map From nameTab 
End Sub