RUS  ENG 

Преобразование полигонов в символы (VBScript)

25 ноября 2015

Преобразование полигонов в символы (VBScript)

Пример преобразования полигонов в символьные объекты с тем же ID

'Пример преобразования полигонов в символьные объекты с тем же ID Sub ConvertToSymbols() Set L = CreateObject("zululib.Layer") L.Open "d:\Test\polygons.b00" Set Keys = L.ElementKeys For i = 1 To Keys.Count Set El = L.Elements.getElement(Keys.Item(i)) 'Если объект простой полигон If El.GraphType = 5 Then 'eGraphTypePrimSquare 'Получаем габариты объекта Set Rc = El.GetBoundsRectangle(0) 'Удаляем полигон L.DeleteElement Keys.Item(i) 'Добавляем символ с координатами центра габаритов полигона ID = L.AddSimpleSymbol ((Rc.Xmax + Rc.Xmin)/2, (Rc.Ymax + Rc.Ymin)/2, 0, 1, 100, 0) 'Присваиваем символу ID исходного полигона L.ChangeElemID ID, Keys.Item(i), false End If Next End Sub

Скачать пример (788 Б)


Возврат к списку

Последнее обновление — 27.12.2018 16:31:14