RUS  ENG 

Примеры

6 Сентября 2020

Считываем длину с карты

    Выполнение SQL запросов в макросе
sub set_l 'Получаем активный слой карты Set L = Zulu.ActiveMapDoc.layers.Active ' проверяем что это слой Газопровод If l.UserName <> "Газопровод" then MsgBox "Это не слой Газопровод" Exit sub End if 'выполняем SQL запрос, в котором для выделенных участков считываем длину с карты l.ExecSQL "update set [Длина, м] = round(geometry.Length_sph(),3) where typeid = 2 AND geometry.selected()=1" 'выполняем SQL запрос, в котором сопределяем количество выделенных объектов set result = l.ExecSQL("select count(*) FROM [Газопровод] where typeid = 2 AND geometry.selected()=1") set res = result.DataSet MsgBox "Обновлено " & res.FieldValue(0) & " записей" end sub

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


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

Последнее обновление — 07.09.2020 01:52:28