Форумы GIS-Lab.info

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

dim h as integer
dim objvar as object
dim cs as string

if selectioninfo(3)=0 then
note "Ничего не выбрано!"
end program
end if

select * from selection into selprog noselect

cs=tableinfo(selectioninfo(1),29)

run command "set "+cs
set distance units "m"

for h=1 to tableinfo(selprog,8)
select obj from selprog where rowid=h into selelem noselect
objvar=selelem.obj
onerror goto e
alter object objvar geography 5, createpoint(ObjectGeography(objvar,1)+(ObjectGeography(objvar,3)-ObjectGeography(objvar,1))/2,ObjectGeography(objvar,2)+(ObjectGeography(objvar,4)-ObjectGeography(objvar,2))/2)
update selelem set obj=objvar
next


end program

e:
resume next