[Red Nova]

Со школы не ладится у меня с программированием. Все предметы щелкал, а на экзамене по информатике (Visual foxpro) программку типа суммирования столбцов списал у соседа (это уже в университете).
Не смотря на эте намерен научится писать программы для Автокада на лиспе, скачал книгу Хювенена, несколько примеров создания программ, но после получасового “смотрения” таких книг мое мышление явно притормаживает.
Решил пойти другим путем.
Нашел самый короткий лисп из моей коллекции, и прошу программистов с этого форума пошагово объяснить какой символ что означает. Надеюсь на вашу помощь.

Код:

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

(defun c:make-blocks-explodeable (/ adoc)
  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (vlax-for blk_def (vla-get-blocks adoc)
    (if (and (equal (vla-get-isxref blk_def) :vlax-false)
             (equal (vla-get-islayout blk_def) :vlax-false)
             ) ;_ end of and
      (vl-catch-all-apply '(lambda () (vla-put-explodable blk_def :vlax-true)))
      ) ;_ end of if
    ) ;_ end of vlax-for
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

_____________________________________________________________________________________________________________

Прошло много лет и топик теперь представляет из себя площадку для обучения азов программирования для многих начинающих.
Так что начинающие лиспогрызы приветствуются .

[Кулик Алексей aka kpblc]

Сообщение от Vladimir_Sergeevich (ssget) без опций при активном выборе срабатывает как (ssget "_I")

Насклько я помню, не всегда: регулируется значением системной переменной PICKFIRST

[Alexll]

Владимир Сергеевич, огромное спасибо. Заработало.

[Vladimir_Sergeevich]

Алексей, а как часто PICKFIRST ставят в "0"? В моем понимании, это чаще случается случайно по непонятным пользователям причинам и вызывает панику у них же.
Сам в нюансы работы ssget особо не вникал, использовал только с конкретными опциями и кучей фильтров.

[Кулик Алексей aka kpblc]

Vladimir_Sergeevich, это как карта ляжет...

[Vladimir_Sergeevich]

Возник вопрос о граблях ActivX...
Читал умную книжку и вычитал, что "...нужно заботиться о выделении памяти..." (это было про создание безопасных массивов)...
По логике, потом ведь надо это пространство памяти освободить (вычистить) или автокад сам этим занимается?
И еще вопрос, на какой стадии надо начинать отслеживать/замерять объем памяти требуемой для программы, что бы все не рухнуло?

[Кулик Алексей aka kpblc]

В принципе в ACAD была функция (gc) - но ее вызов лично у меня никакого результата не давал. ACAD, как правило, сам занимается чисткой памяти.
Другой вопрос, что при обращении к сторонним приложениям надо принудительно эти приложения либо закрывать, либо релизить (см. vlax-release-object) для освобождения памяти основного процесса.

Сообщение от Vladimir_Sergeevich И еще вопрос, на какой стадии надо начинать отслеживать/замерять объем памяти требуемой для программы, что бы все не рухнуло?

ИМХО на стадии разработки алгоритма

[gomer]

(gc) была актуальна автокада до R10, R11

[Vladimir_Sergeevich]

Сообщение от Кулик Алексей aka kpblc ИМХО на стадии разработки алгоритма

Тут я не совсем четко сформулировал... допустим на начальных стадиях изучения Lisp я работал сугубо командными методами и спустя пол года подошел к программному методу. тут я думаю вообще можно особо не заморачиваться такими вещами (надеюсь я прав?). Последние пару лет потихоньку начинаю использовать объектные методы и вот тут, наверно, уже надо как то заглядывать вперед. Пока что у меня в арсенале точно нет таких, где бы я создавал safearray и прочие преобраозования типов.

Сообщение от Кулик Алексей aka kpblc при обращении к сторонним приложениям надо принудительно эти приложения либо закрывать

это например, когда считываю .xlsx делаю (close "....")

[Кулик Алексей aka kpblc]

При чтении *.xls* через Excel последовательность будет такова:
Создать указатель на объект MS Excel (может быть, его придется создавать)
Создать указатель на коллекцию Workbooks
Открыть документ
Создать указатель на WorkSheets
Создать указатель на WorkSheet
Прочитать данные
Освободить указатель на WorkSheet
То же, WorkSheets
То же, WorkBooks
То же, Excel

Ну, по крайней мере, примерно так: я с Excel напрямую уже давненько не работал, подробностей не помню

[Сергей812]

и не забывать разделять локальные и глобальные переменные в функциях

[Кулик Алексей aka kpblc]

Ну это-то понятно. Вопрос в другом: можно получить указатель на внешний объект и засунуть его в локальную переменную функции. При выходе из функции указатель не обнулится, а просто потеряется - что не есть гуд.

[gomer]

Сообщение от Кулик Алексей aka kpblc Создать указатель на объект MS Excel (может быть, его придется создавать)

Сообщение от Кулик Алексей aka kpblc То же, Excel

не твое, не трогай, хуже будет

[Сергей812]

не лисп, но в тему - Работа с COM-объектами

[Vladimir_Sergeevich]

Сообщение от Кулик Алексей aka kpblc При выходе из функции указатель не обнулится, а просто потеряется - что не есть гуд.

вот я примерно про это и спрашивал, что память загадить можно и все рухнет, вопрос только когда это произойдет...

[gomer]

Сообщение от Vladimir_Sergeevich вопрос только когда это произойдет...

в любой момент

[ShaggyDoc]

(gc) была актуальна автокада до R10, R11

Да, тогда без неё было просто не обойтись. Но и сейчас никто не мешает вставить вызов (gc) в одну из стартовых функций для сборки мусора.

Вопрос в другом: можно получить указатель на внешний объект и засунуть его в локальную переменную функции. При выходе из функции указатель не обнулится, а просто потеряется - что не есть гуд.

А его надо еще и принудительно "обнилить". Тогда ненужная память окажется в "куче" и с ней будет уже менеджер памяти Windows разбираться. Будет известно, что этот кусок "ничейный".

в любой момент

Может никогда, а может и быстро. Зависит от программы. Мне приходилось делать конвертор DWG с разнообразной обработкой - "нормализация", переименование слоев и прочее. Обрабатывались тысячи файлов. При этом происходили некоторые утечки памяти, но при 2-3 часах работы это было незаметно. А потом переполнялась память Windows, подключался своп и работа резко тормозилась.

Конечно, сейчас памяти "немеряно" и с этим можно никогда не столкнуться. Но память сейчас на 90% занята всякими "рюшечками и бантиками" и для серьезных программ это надо учитывать.

А ещё лучше всегда "мыть руки с мылом", т.е. обходиться минимумом глобальных, "обнилять" ненужное, не надеяться на автоматическую сборку мусора.

[Vladimir_Sergeevich]

Сообщение от ShaggyDoc "нормализация", переименование слоев и прочее.

Такое тоже есть, только для активного документа делал, а именно dxf сгенерированного робуром. Здесь обходился вообще без глобальных переменных.
И все таки не понял одного момента: локальные переменные тоже надо обнулять, или при завершении функции они сами в мусор сваливаются?

[ShaggyDoc]

локальные переменные тоже надо обнулять, или при завершении функции они сами в мусор сваливаются?

Нет, лисповские локальные сами уничтожаются по завешении. Дополнительное "обниление" лучше делать для сторонних COM-объектов, т.к. Windows на всякий случай ("вдруг опять понадобится") оставляет их в памяти на некоторое время (обычно около 10 минут).

Но указатель на такой объект может быть в лисповской локальной переменной. Я обычно делаю так:

Код:

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

 (if (setq srv (vlax-get-or-create-object "ruDoubleListSrv.DoubleListDlg"))
    (progn
      (vlax-invoke-method srv "Create")
      (vlax-put-property srv 'Header dlg_caption)
      (vlax-put-property srv 'LeftCaption left_caption)
      (vlax-put-property srv 'RightCaption right_caption)
      (vlax-put-property srv 'ReadOnly (ru-conv-value-to-wordbool read_only))
 ...
       (vlax-invoke-method srv "Free") ;_ end of vlax-invoke-method
      (vlax-release-object srv)
      (setq srv nil)
    ) ;_ end of progn
    (ru-msg-alert "Не удалось запустить ruDoubleListSrv.DoubleListDlg")
  ) ;_ end of if

Здесь srv - локальная переменная функции. В данном случае, помимо (vlax-release-object srv) сделано (setq srv nil). Для обычных переменных это делать не надо.

[mkung]

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

[Сергей812]

Сообщение от mkung Подскажите как программно (на Лиспе) вставить блок с установкой значений атрибутов подставив вычисленные значения точки вставки и угла поворота. Заранее благодарен.

Ну что-то типа этого