Форумы GIS-Lab.info

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

Sub  proc1
Dim Tabrow as Integer
Dim NameOkrug as string	

'таблица общая по зонам
Open Table  "\work\1\TabTest_all" As TabTest 
'таблица с районами 
Open Table  "\work\1\D_adm_copy" As D_adm_copy
Select * From D_adm_copy Into TestOkrug

'цикл по административным районам
Tabrow=1
Fetch First From TestOkrug
Do while NOT EOT(TestOkrug)
	NameOkrug= TestOkrug.Name
	'вот здесь выбрали во временную таблицу текущий район
	select * from D_adm_copy where Name = NameOkrug into SelectOkrug	
	'а вот тут их надо как то совместить что бы получить зоны + район в одной таблице 
	
	'Select * from TabTest	
	'Set Target On
	'вот тут обрезаем лишнее по контуру
	'Objects Intersect Into Target Data OBJECT_ID=OBJECT_ID,CLASS_ID=CLASS_ID,STAT_OBJ_URB=STAT_OBJ_URB,TYPE_ZONE_TOWN=TYPE_ZONE_TOWN,VID=VID,PODVID=PODVID
	
	'вот тут считаем площадь по виду зон 
	'Select VID,Sum(Area(Obj,"sq mi")) From TestTable1  Group BY VID  into tabl2  
	'после наверное надо помещать в результирующую таблицу
	
	Tabrow=Tabrow+1
	Fetch Next From TestOkrug	
Loop  

'вывод результиирующей таблицы

End Sub

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

SELECT r.[FeatId] , r.[Geom].STIntersection(z.[Geom]) as gi, 
 r.[Geom].STIntersection(z.[Geom]).STArea() as ar, z.[FeatId], z.[OBJECT_ID], z.[PODVID]
FROM [test2].[Schema1].[Region] as r, [test2].[Schema1].[Zone] as z 

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

where r.[Geom].STIntersection(z.[Geom]).STArea() > 0