В шейпе темы Polyline делаю SetValue и...

Question

Подскажите, плз.
Есть у меня тема, в которой одна линия. Соответственно в таблице аттрибутов одна запись типа Polyline, Id=0. Линия создана вручную. Хочу её перерисовать в своих координатах.
Делаю вот так:
l = PolyLine.Make({{p1,xlast@ylast}})
...
'изменения в main_line
MLsrc = SrcName.Make (projDir + "shapes\main_line.shp")
MainLineFTab = FTab.Make(MLsrc)
if (MainLineFTab.IsEditable.Not) then
MainLineFTab.SetEditable(TRUE)
MainLineFTab.StartEditingWithRecovery
MainLineFTab.SetValue(MainLineFTab.findField("Shape"), 0, l)
MainLineFTab.StopEditingWithRecovery(TRUE)
end
theView.Invalidate

После этого вроде бы должна на место старой линии встать новая, с координатами (p1,xlast@ylast) - точки имеют координаты в значениях проекции, т.е. ненулевые и не nil.
На самом деле просто стирается с вида старая линия, новая не рисуется. Если сделать экстент по этой теме, будет пустое место с масштабом 0. В таблице атрибутов, как и прежде, одна запись, ну это так и должно быть.
Кто-нибудь может сказать с определённостью, что не так? В другом проекте ТОЧНО такой же скрипт делает всё как надо... Может, тему как-то по-другому надо создать?

Answer 1

В данном случае такая ситуация обязательно возникнет, если p1=xlast@ylast. Создается null полилиния.

Answer 2

Нет, в том и дело.
p1<>p2, в отладчике l прописываается как 2, а не как null или nil...

Answer 3

Ага, значит работаем в спроектированном виде? Какая проекция стоит? И не использовал ли в скрипте ReturnProjected (ReturnUnprojected)?

Answer 4

Ээээх, про проекции я даже отдельную тему сделал тут же... Проекция трансверс меркатор. Первая точка получена именно через ReturnProjected, иначе линия получается длиной в 6млн метров....

Answer 5

Ну тут поаккуратнее надо :). Если так берешь первую точку, то вторая должна быть в той же проекции. Это понятно. Попробуй скопировать свою тему после преобразования в новый неспроектированный вид. Посмотри, что получилось в реале. Скорее всего эта линия просто выходит за рамки проекции и не отображается в виде...

Answer 6

То, что они д.б. в одной проекции, я понимаю...
Первая точка берётся из точечной темы, в которой мне чертовски необходимо задавать координаты точки в десятичных градусах (других координат я не знаю :)). Сконвертить её раз навсегда в нормальные метры у меня тоже не получается, см. тему про проекции...
Вторую точку я получаю от мышки - GetUserPoint. Она получается, как я понял, в единицах проекции.
После проецирования первой точки имею, к примеру: p1 (-10000, 6*10^6), p2(10000, 6*10^6). Вроде всё в шоколаде, ан нет...
На самом деле, думаю, если получится первую точку/тему грамотно засейвить в метрах, то....

Answer 7

Ну правильно все говоришь...

первую точку определяем так:

aPoint = aFtab.ReturnValue(aFtab.FindField("Shape"),rec).ReturnProjected(aView.GetProjection)

вторую - считываем с мышки...

 

Answer 8

Дык....

Скорее всего эта линия просто выходит за рамки проекции и не отображается в виде...

Если она действительно выходит, что мне с ней делать-то дальше?

Answer 9

Выходит она только в том случае, если ты не видишь в виде стартовой точки (конечную-то - по-любому видишь). Если это так, и ты уверен в верности определения координат точек - придется менять проекцию вида... Но мне сдается, что что-то с координатами напутал. Проверь подробнее каждый шаг.

Answer 10

Ок, дома поковыряю...
Спасибо, и до следующей итерации!