[Name]

Пишу маленькую прогу на lisp, читает строки из файла и вставляет в табличку (примитив acad_table). Только работает достаточно долго, файл в 400 строк обрабатывает минуты 2-3. Это нормально?

И еще. При каждом запуске объем используемой памяти возрастает на 30-40 мегабайт. Используемым переменным уже всем в конце в nil присваиваю, толку - ноль. Куда хоть копать?

[Alaspher]

Сообщение от Name Пишу маленькую прогу на lisp, читает строки из файла и вставляет в табличку (примитив acad_table). Только работает достаточно долго, файл в 400 строк обрабатывает минуты 2-3. Это нормально?

Не исключено, что с кодом всё нормально - АКАД очень медленно обрабатывает таблицы.

Сообщение от Name И еще. При каждом запуске объем используемой памяти возрастает на 30-40 мегабайт. Используемым переменным уже всем в конце в nil присваиваю, толку - ноль. Куда хоть копать?

Код надо видеть.

[fixo]

Суть в том что при каждом изменении в
таблице, в данном случае при обращении
к любой ячейке, АвтоКАД перерисовывает эту
таблицу заново и образ этой таблице сохраняет
в специальном объекте scetch (черновик) и в течение
всей прграммы этот процесс идет непрерывно
В последних версиях облегчает жизнь и у величивает
скорость такая конструкция:

В начале заполнения таблицы, чтобы не перерисовывался
черновик таблицы:

Код:

[Выделить все]

(if (> (atof (getvar "acadver")) 16.1)
(vla-put-regeneratetablesuppressed vla_table :vlax-true)
)

А после завершения работы с таблицей

Код:

[Выделить все]

    
(if (> (atof (getvar "acadver")) 16.1)
(vla-put-regeneratetablesuppressed vla_table :vlax-false)
)

(этот метод аналогичен методу ScreenUpdating для Excel)

Еще нужно удалять ссылки на объекты, т.е. отключать их
от базы данных рисунка

Код:

[Выделить все]

(vlax-release-object mytable)
(setq mytable nil)

И самом конце может не помешать уборка мусора:

Код:

[Выделить все]

(gc)(gc)

дважды не помешает

Теперь посмотри насколько будет быстрее

~'J'~

[Alaspher]

Сообщение от Fatty Код: [Выделить все] (if (> (atof (getvar "acadver")) 16.1) (vla-put-regeneratetablesuppressed vla_table :vlax-true) )

Очень полезная конструкция! На маленькой таблице разницу не особо заметно, но сделал тестовую добавку 500 записей - в разы. Гуд! Не знал.

[Name]

Большое спасибо, все работает, процесс память потребляет уже в разы медленней.

Еще раз большое спасибо.

[fixo]

Сообщение от Alaspher Сообщение от Fatty Код: [Выделить все] (if (> (atof (getvar "acadver")) 16.1) (vla-put-regeneratetablesuppressed vla_table :vlax-true) ) Очень полезная конструкция! На маленькой таблице разницу не особо заметно, но сделал тестовую добавку 500 записей - в разы. Гуд! Не знал.

Между прочим VK сделал программку для
Entmake table
Еще в разы быстрей
Попробуй поискать, я у себя не нашел

~'J'~

[fixo]

Сообщение от Name Большое спасибо, все работает, процесс память потребляет уже в разы медленней. Еще раз большое спасибо.

Можно еще попробовать заполнение
ячеек тоже как-то через локальную функцию,
думаю еще чуток сэкономит время

~'J'~