[Browning Zed]

Всем привет. Пытаюсь на данный момент выработать для себя стратегию, каким образом лучше всего возвращать переменные к их исходному состоянию. Помимо самого простого и очевидного:
(setq OldVar (getvar ...) (progn ...) (setvar ... OldVar)
существует два подхода:
1. Определить глобальную переменную со списком нужных нам переменных в одной функции, и вернуть исходное состояние переменных через другую функцию, что-то в духе:

Код:

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

 (defun get-defin-sysvar (set_sysvar ext_sysvar_list) 
	(setq *sysvar-list* (append '(CLAYER CECOLOR CELTYPE CELWEIGHT PLINEWID) ext_sysvar_list))
	(setq *sysvar-value* (mapcar 'GetVar *sysvar-list*))
	(if set_sysvar (mapcar 'SetVar (cdr *sysvar-list*) '("ByLayer" "ByLayer" -1 0)))
)
(defun res-defin-sysvar ()
	(if	*sysvar-list* (mapcar 'SetVar *sysvar-list* *sysvar-value*))
	(setq *sysvar-list* nil *sysvar-value* nil)
)

2. Либо возвращать переменные в исходное состояние через error handling, например, как это представлено здесь.
В связи с чем, у меня вопрос к гуру лиспа, и не только.
Какими методами пользуетесь лично вы? Какой подход более рационален? Если возможно, хотелось бы услышать мнение с аргументацией pro et contra.

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

Есть третий вариант. Как пример, который у меня существует уже много лет:

Код:

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

 
(defun sysvars-save (sysvar-list)
                    ;|
*    Переустановка / запоминание системных переменных
*    Параметры вызова:
  sysvar-list   ; список точечных пар "имя" "устанавливаемое значение". Если "устанавливаемое" пропущено,
                ; состояние переменной просто запоминается
*    Примеры вызова:
(sysvars-save '(("osmode" . 0) ("sysmon")))
|;
  (vl-remove nil
             (mapcar (function (lambda (x / temp)
                                 (if (setq temp (getvar (car x)))
                                   (progn (if (cdr x)
                                            (setvar (car x) (cdr x))
                                            (cons (car x) temp)
                                          ) ;_ end of if
                                   ) ;_ end of progn
                                 ) ;_ end of if
                               ) ;_ end of lambda
                     ) ;_ end of function
                     sysvar-list
             ) ;_ end of mapcar
  ) ;_ end of vl-remove
) ;_ end of defun

(defun sysvars-restore (sysvar-list)
                       ;|
*    Восстановление системных переменных
*    Параметры вызова:
  sysvars-save  ; список точечных пар "имя" "исходное значение"
*    Примеры вызова:
(setq lst (sysvars-save '(("osmode" . 0) ("sysmon"))))
;; some code
(sysvars-restore lst)
|;
  (foreach item sysvar-list (setvar (car item) (cdr item)))
) ;_ end of defun

Ну и использование:

Код:

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

 (defun main-fun (/ sysvar_status err)
  (setq sysvar_status (sysvars-save '(("clayer" . "0")
                                      ("cecolor" . "bylayer")
                                      ("celtype" . "bylayer")
                                      ("osmode" . 0)
                                      ("sysmon" . 0)
                                      ("cmdecho" . 0)
                                     )
                      ) ;_ end of sysvars-save
  ) ;_ end of setq
  ;; опасный код
  (if (vl-catch-all-error-p (setq err (vl-catch-all-apply (function (lambda () (/ 50 0.))))))
    (princ (strcat "\nError : " (vl-catch-all-error-message err)))
  ) ;_ end of if
  (sysvars-restore sysvar_status)
  (princ)
) ;_ end of defun

Код не проверял, просто для иллюстрации. Как видно, глобальных переменных нет, и ошибки обрабатываются вполне себе достойно.
P.S. На будущее старайся не использовать глобальные переменные. Лично у меня это указатели на приложение ACAD, текущий документ, пространство модели документа - и, пожалуй, все. Хотя нет, вру - иногда приходится запоминать результаты длинных запросов к БД в глобальной переменной уровня документа (а то и приложения), но это не потоково, а достаточно редко и разово.

[Browning Zed]

Алексей, спасибо за комментарий, код на досуге попробую поюзать. А в чем проблема частого использования глобальных переменных? Ну, помимо того, что имена переменных могут пересечься со всеми вытекающими (что, впрочем, решается назначением им каких-нибудь замысловатых имен)? Замусоривают память? Ну так вроде сейчас не девяностые годы, ОЗУ уже не мегабайтами измеряются, так ли актуальна проблема?
И все же, хотелось еще услышать твоё мнение об error handling. Насколько понимаю, ты его не котируешь?

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

Почему не котирую? Очень активно. Просто помню о его старом ограничении - не больше 9 уровней вложенности (словил как-то на 2006, с тех пор стараюсь подобного избегать; повторять эксперимент не хочу).
На данный момент очень редко превышается 4 уровень - и то на кусках, которые реально могут вывалить ошибку и обрушить весь код.
С глобальными переменными у меня была оочень веселая ошибка - всего в одном месте вмесо pr написал pt (сократил, блин, prop / property), потом полдня искали причину некорректного поведения достаточно большого куска. С тех пор правило: короткие имена - только внутри анонимных функций, локальные переменные имеют внятные обозначения, глобальные переменные идут лесом. И каждая функция обязательно подвергается проверке через Ctrl+Alt+C.
P.S. Про переопределение *error* можешь даже не спрашивать Не пользуюсь уже лет 8, наверное (если не больше).

[Петр-и-Алекс]

"В связи с чем, у меня вопрос к гуру лиспа, и не только.
Какими методами пользуетесь лично вы? Какой подход более рационален? Если возможно, хотелось бы услышать мнение с аргументацией pro et contra."
Сразу: я далеко не гуру. Просто в свое время (к концу 90х) написал ооочень много разных лиспов и в силу необходимости, и со скуки. Например, авто переводчики на аглицкий (с удаленным участием отдела переводов), разные анимации по типу "тараканы от курсора", редактор текстов пачкой собственных бигфонтов, всякое типа нынешнего спдс, автомат.заполнение весов спецификаций с генерацией "выборки стали" без ексел и не помню уж чего еще.
И все без vla-, до которого тогда не дорос. С литературой тогда был совсем швах.
Исключительно личный опыт, приобретенный методом тыка. При смене версий имел несколько раз засады из-за изменения состава и имен системных переменных, в том числе и досовских\виндовских. В какой то момент перегорел и послал это дело подальше.
Потому рекомендация: без крайней необходимости не общаться со средой системы.

Я считаю, что "любителям" лучше пользовать тот метод, который автору проще/понятнее. В моем случае это ваш первый. Лучше больше понятного кода, чем компактный код, но лишний напряг интеллекта.
А в принципе, если б не бросил, то приближался к решению Кулика.
---
Сейчас под финал вернулся, смотрю что актуально на сегодня. С печалью вижу, что "спецификация\выборка" актуально по сей день... Очень лень, но похоже реанимирую. Мне странно смотреть, как молодежь тыркает "формулы" в ячейки таблиц, когда у компа и так под носом все нужные данные..
Хорошо хоть "профили проката" реализовали в СПДСах, и то - прогресс.
А еще смотрю полная печаль в excel… с интерполяцией например. Я сейчас про анналы сайта.

[koMon]

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

имхо
1) системные переменные лучше вообще не трогать, поскольку в своём большинстве они придуманы для разного поведения конкретной команды (группы команд) автокада.
2) использование командных методов в программировании на лиспе, при своей кажущейся простоте не есть правильно и тут логичнее всего юзать по-полной activex, который почти всегда позволяет с лёгкостью обойти системные переменные. хотя есть очевидные случаи, когда без них не обойтись, например если нужно что-то заштриховать.
3) использовать переопределение *error* - имхо полное кощунстсво, поскольку привязывает каждый код к этому переопределению, даже возможно тогда, когда это и не нужно. и последствия этого переопределения не очень желательны, когда что-то пошло не так. лучше использовать отлов ошибок опять же на activex.

[Browning Zed]

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

Петр-и-Алекс, спасибо, за столь развернутый ответ. Метод проще и понятнее, имееется в виду (setq OldVar (getvar ...)) (progn ...) (setvar ... OldVar)? Но что, если в процессе выполнения кода случится ошибка (например, пользователь нажимает Esc)? Отката к исходному состоянию переменных в таком случае не происходит.

koMon, activex круто юзать, если умеешь конечно, но для меня это пока недостижимый хай-левел. На счет переопределения *error* усвоил – исключу, пожалуй, этот метод из практики на данном этапе. Спасибо за комментарий.

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

Если есть время и желание - советую найти "САПР на базе AutoCAD" (на форуме где-то лежит в достаточно хорошем качестве). Скачать, прочитать, попробовать применить.

[Петр-и-Алекс]

Уважаемый, хочу обратить внимание на такое понятие из жизни программистов, как "выгорание". Это дело существует. Особенно оно ранит "любителей". В том числе и потому, что у них нет (как правило) поддержки административной.
Мой вам искренний совет:
- старайтесь сделать законченный продукт. Тот, который работает и решает поставленную задачу. Даже если Вы видите, что его "можно сделать много лучше", на первом этапе просто "достигните финиша". Потом будете шлифовать по мере возможностей.
- подумайте, как можно ввести работающий продукт в практику. Это не менее творческая задача. Если это не удается в желаемом масштабе - хотя бы опубликуйте здесь.
- при этом, имейте ввиду такие засады: работодатель может выразить неудовольствие тем, что вы вообще этим занимаетесь, ващей публикацией вне конторы.
- мне прилетало неудовольствие от самого автодеска… к примеру
Юридическая сторона подобного вида хобби тоже тема любопытная... больше сейчас говорить не буду
Но в любом случае, удачи Вам! и слегка завидую Вам в том, что Вы в начале этого пути

[ShaggyDoc]

Сообщение от Browning Zed Профессиональные программисты, наверное, сочтут это за порочную практику.

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

Сообщение от Browning Zed много глобальных переменных в которых, как правило, сидят списки с определением различных стилей (текста, размеров, мультивыносок, таблиц), которые я, в случае необходимости, прогоняю через определенную функцию создания стиля

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

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

Сообщение от Browning Zed activex круто юзать, если умеешь конечно, но для меня это пока недостижимый хай-левел.

Да никакого "хая там нет". Осваивается легко. От command надо уходить, тем более, что она становится несовместимой в разных версиях Автокада.

Но зато в active-x возможно сделать настоящий (в отличие от *error*) обработчик ошибок. Любых - хоть прерывание пользователем, хоть какие-то действия программы, вплоть до деления на ноль. Это аналог try.... except... end в "больших" языках.

Для этого имеются функции vl-catch-all-apply, vl-catch-all-error-p, vl-catch-all-error-message. Они работают в связке, для простоты применения их лучше обернуть в свою функцию наподобие

Код:

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

 (defun ru-error-catch
       (protected_expression on_error_expression / catch_error_result)
;|
Пример вызова
(ru-error-catch
    (function (lambda ()
                ;;; защищаемое выражение  
                (
                
                )
                ;;; То что вернет - будет результатом
              ) 
    ) 
    (function
      (lambda (err_msg)
        ;; если надо - выводим сообщение. err_msg подставит Автокад
        (princ (strcat "\nОШИБКА такой-то функции: " err_msg))
        ;; возвращаем NIL при ошибке
        nil
      ) 
    ) 
  )

|;
  
  (setq catch_error_result
         (vl-catch-all-apply protected_expression)
  ) 
  (if (and (vl-catch-all-error-p catch_error_result)
           on_error_expression
      ) 
    (apply on_error_expression
           (list (vl-catch-all-error-message catch_error_result))
    ) 
    catch_error_result
  ) 
) 

Когда есть обработчик ошибок, то ваши программы смогут работать надежно даже без присутствия автора.

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

Код:

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

 (defun МОЯ (/)

  (ru-app-begin)
;; делаем что угодно
    (ru-app-end)
  (princ)
)

И непременно надо формировать свою библиотеку функций, а не повторять все в программах.

[Петр-и-Алекс]

ShaggyDoc - славно!

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

Сообщение от Петр-и-Алекс ShaggyDoc - славно!

САПР на базе, все дела...

[Петр-и-Алекс]

Понял.
Тема в сторону: столько лет прошло, а то, что я вижу из-за плеча бойцов - никакого "сапра" нет... в массовом использовании по крайней мере.
Есть более менее актуальный кад + СПДС... Не таким мечталось будущее 20 лет назад.
Я про строительное проектирование на своей поляне. Надеюсь где то САПР существует. Впрочем, да, даже видел его в бою.

[nickname2019]

Сообщение от Петр-и-Алекс Понял. Тема в сторону: столько лет прошло, а то, что я вижу из-за плеча бойцов - никакого "сапра" нет... в массовом использовании по крайней мере.

Если Вы подразумеваете под САПР готовое коробочное решение в котором "все есть", и которое не позволяет его настраивать под себя - это не сапр, это недоразумение.

Есть более менее актуальный кад + СПДС... Не таким мечталось будущее 20 лет назад. Я про строительное проектирование на своей поляне. Надеюсь где то САПР существует. Впрочем, да, даже видел его в бою.

Какой САПР Вы имеете ввиду?

[Сергей812]

Offtop:

Сообщение от Петр-и-Алекс столько лет прошло, а то, что я вижу из-за плеча бойцов - никакого "сапра" нет... в массовом использовании по крайней мере.

а откуда он может появиться, если софтверные компании подстраиваются под некую усредненную модель потребителя - чтобы "окучить" максимально возможное число потенциальных покупателей. Удобство пользования, стабильность работы приложения - все принесено в жертву прибыли. А сейчас уже на следующую стадию перешли - ищут волонтеров на практическое тестирование продукта) Ну а разрабатывают под себя (силами внутренних/приглашенных программистов либо одиночек-энтузиастов) ПО сейчас единицы - многие даже толковых проектировщиков не могут себе в штат набрать, какое там программирование. Так что так и будет набор костылей и надстроек для базовых рисовалок + некоторая часть проектировщиков в вертикальных решениях фигачат в меру своего разумения.

[koMon]

Сообщение от ShaggyDoc Да никакого "хая там нет".

абсолютно!

----- добавлено через ~1 мин. -----

Сообщение от Петр-и-Алекс мне прилетало неудовольствие от самого автодеска

это как?!