Преобразование полигонов в символы (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
Последнее обновление — 27.12.2018 16:31:14