Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
VLog
Зарегистрирован: 27.05.2011 Сообщения: 2
|
Добавлено: Пт Май 27, 2011 2:31 pm Заголовок сообщения: Почему "выбивает" MI при запуске программки на MB? |
|
|
Кто знает почему при запуске программы с циклом на MB по разделу полилинии на отдельные линии может испортить MapInfo так что приходиться переустанавливать Windows? Такое впечатление что без переустановки W не работает временная таблица Selection и связанные с ней операции! Используется MI v8.5 и приложение на MB v8. Заранее благодарен. |
|
Вернуться к началу |
|
|
Андрей Могильный
Зарегистрирован: 21.03.2006 Сообщения: 864
|
Добавлено: Пн Май 30, 2011 1:47 pm Заголовок сообщения: |
|
|
Что-то у вас не так :) Программа на MapBasic врядли может так повлиять. Похоже на вирус. Кстати на MapBasic тоже был 1 вирус, проверьтесь короче.
Ну или покажите программный код. |
|
Вернуться к началу |
|
|
VLog
Зарегистрирован: 27.05.2011 Сообщения: 2
|
Добавлено: Вт Май 31, 2011 2:38 pm Заголовок сообщения: |
|
|
Спасибо за ответ. Текст программы следующий:
Close all
Open Table "D:\ОБЪЕМЫ\ЕГРЗиспГраницаРаздел.TAB"
Dim i, j, nrow1, nobj1, k As Integer
nrow1=TableInfo(ЕГРЗиспГраницаРаздел,
Fetch First From ЕГРЗиспГраницаРаздел
Do While i<nrow1
i=i+1
k=i
nobj1=Objectinfo(ЕГРЗиспГраницаРаздел.obj,20)
Do While j<nobj1-2
j=j+1
Select * from ЕГРЗиспГраницаРаздел where Rowid=k into Selection
Objects Pline Split At Node 2 Into Table ЕГРЗиспГраницаРаздел
k=TableInfo(ЕГРЗиспГраницаРаздел,
Loop
j=0
Fetch Next From ЕГРЗиспГраницаРаздел
Loop
Commit Table ЕГРЗиспГраницаРаздел As "D:\ОБЪЕМЫ\ЕГРЗиспОтрезки.TAB" TYPE NATIVE Charset "WindowsCyrillic"
Close All
Приложение на основе этого текста полгода добросовестно делило полилинии образованные из некоторого количества полигонов на отдельные линии. Затем при попытке раздела полилиний образованных из регионов - полигонов с внутренними дырками - "озерами" ( понятно что она не должна сработать т.к. нет счетчика полигонов внутри региона) происходит такой фатальный сбой. Я нашел рекомендации произвести очистку временных файлов. Попробую. Еще раз спасибо. |
|
Вернуться к началу |
|
|
|