Изменение типа объекта

Текстовый объект на самом деле тоже примитив, но который в построении рельефа не участвовал. Как минимум сделаем чтобы за точку при построении рельефа бралась точка привязки текстового объекта. Сегодня обновление выложим.
А вообще, нужно бы и преобразование текста в символ добавить, и операцию по преобразованию текстовых объектов в слой символов с переносом текста в таблицу. А можно и скрипт написать по замене текста на символ:


Sub TextToSymbol()

'Открываем слой с текстами
Set L = CreateObject("zululib.Layer")
L.Open "d:\Test\222"

'Создаем кружок
Set Circ = CreateObject("zululib.ZEllipse")
Circ.SetEllipse 0, 0, 3, 3, 0, True

'Создаем стиль
Set St = CreateObject("zululib.ElemStyle")

'Создаем символ
Set Sym = CreateObject("zululib.Symbol")

'Записываем в символ кружок
Sym.AddEllipse Circ, St

'Добавляем символ в коллекцию символов слоя
L.Symbols.AddItemEx Sym, 1

set Keys = L.ElementKeys

For i=1 To Keys.count

Set El = L.Elements.Item(Keys(i))

'Если объект текстовый
If El.GraphType = 6 Then

'Точка привязки текста
X = El.Points.GetX(1)
Y = El.Points.GetY(1)

'Удаляем текст
L.DeleteElement Keys(i)

'Пишем символьный объект
Id = L.AddSimpleSymbol(X, Y, 0, 1, 100, 0)

'Присваиваем ему ID удаленного текcтового объекта
L.ChangeElemID Id, Keys(i), false

End If
Next
End Sub

Проверил. У нас строится. Вы все обновили? Если серверная версия, то сервер тоже нужно обновить.
Пришлите слой на [email protected] проверим.