www.map-info.ru :: Просмотр темы - Пакетное изменение стиля линии
                               РќР° главную страницу сайта

 
                                
ВходВход    РегистрацияРегистрация    ПрофильПрофиль    ПользователиПользователи    ГруппыГруппы    FAQFAQ    ПоискПоиск  

 
   Список форумов www.map-info.ru | Форум - программирование в среде MapInfo Добавить ответ
Предыдущая тема :: Следующая тема  
Автор Сообщение
Vovik



Зарегистрирован: 04.05.2008
Сообщения: 57

СообщениеДобавлено: Ср Июл 27, 2016 3:48 am    Заголовок сообщения: Пакетное изменение стиля линии Добавить ответ со ссылкой на данный текст

Есть ли способ в интегрированной картографии изменять стиль линий в выборке скопом (для увеличения скорости) без перебора каждой линии в цикле.

Этот код работает долго
mapinfo.Do "Select * From " & name_table & " where (diametr >= " & d_massive(j).diametr & ") and (diametr < " & d_massive(j + 1).diametr & ") into ~temp noselect"
nd = Val(mapinfo.eval("TableInfo(~temp , 8 )"))
If nd > 0 Then
For k = 1 To nd
mapinfo.Do "Fetch rec " & k & " From ~temp"
mapinfo.Do "aObj = ~temp.obj"
mapinfo.Do "Alter Object aobj Info 2, " & d_massive(j).pen_style
mapinfo.Do "Update ~temp Set Obj = aObj where RowId = " & k
Next
End If
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
thegeo



Зарегистрирован: 17.01.2012
Сообщения: 119

СообщениеДобавлено: Ср Июл 27, 2016 6:35 pm    Заголовок сообщения: Добавить ответ со ссылкой на данный текст

Посмотрите тему http://map-info.ru/phpBB2/viewtopic.php?t=3172&highlight=
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Vovik



Зарегистрирован: 04.05.2008
Сообщения: 57

СообщениеДобавлено: Чт Июл 28, 2016 7:10 am    Заголовок сообщения: Добавить ответ со ссылкой на данный текст

Спасибо, это я видел, более того можно и так:
........
Update ~temp Set Obj = ChangeColor(Obj, d_massive(j).pen_style)
......

Function ChangeColor(ByVal aObj As Object, ByVal penNew As pen) As Object
Alter Object aObj Info 2, penNew
ChangeColor = aObj
End Function

а как в интегрированной картографии?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
thegeo



Зарегистрирован: 17.01.2012
Сообщения: 119

СообщениеДобавлено: Пт Июл 29, 2016 2:09 am    Заголовок сообщения: Добавить ответ со ссылкой на данный текст

Возможен вариант с использованием дополнительной MapBasic программы (объекта MapBasicApplication). Если есть интерес могу выложить код.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Vovik



Зарегистрирован: 04.05.2008
Сообщения: 57

СообщениеДобавлено: Пт Июл 29, 2016 3:50 am    Заголовок сообщения: Добавить ответ со ссылкой на данный текст

интересует
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
thegeo



Зарегистрирован: 17.01.2012
Сообщения: 119

СообщениеДобавлено: Пт Июл 29, 2016 7:10 pm    Заголовок сообщения: Добавить ответ со ссылкой на данный текст

MI (MB) v.11.5; VS2010
https://cloud.mail.ru/public/7Q8z/toLcP1KYE
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
gps38region



Зарегистрирован: 10.09.2017
Сообщения: 1

СообщениеДобавлено: Вс Сен 10, 2017 9:07 am    Заголовок сообщения: Добавить ответ со ссылкой на данный текст

thegeo писал(а):
MI (MB) v.11.5; VS2010
https://cloud.mail.ru/public/7Q8z/toLcP1KYE

Продублируйте ссылку, не активна
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
   Список форумов www.map-info.ru | Форум - программирование в среде MapInfo Добавить ответ
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Top.Mail.Ru