[PanNik]

Силюсь создать функцию динамического создания переменной.... но безрезультатно))

Суть в том чтобы передавать в функцию название (прим. Primer), и значение (прим. trololo). Он бы создавал переменную Primer1 содержащую trololo, в следующий раз, если кинуть туда Primer и любое значение, он бы создавал Primer2, с тем самым значением...

[hwd]

показывай код своих "усилий".

[VVA]

Я думаю что переменные это от незнания что такое ассоциативный список. Тебе для чего они нужны?

[PanNik]

hwd

Показывать, собственно, нечего. Есть только блок-схема.

VVA
Переварил найденные в инете крохи информации про ассоциативный список. Очень удобно. Где бы поподробнее что нибудь почитать?

И вот еще такой вопрос, можно ли через Autolisp разбить динамический блок на полилинии, из которых он состоял.

[Лиспер]

А зачем разбивать? Состав блока выцепить можно и так.

[VVA]

PanNik, Я тебе пример привел в #27

[Supermax]

Можно и мне вставить пару копеек?

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

Код:

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

(setq num 12345);переменная где хранится последний номер динамической переменной
(setq abcd (strcat "yoklmn" (vl-princ-to-string num)))

;собственно создание динамической переменной
(set (read abcd) "что угодно")

;зная начальный и конечный номера массива переменных мы можем
;прочесть все от yoklmn0 до yoklmn12345

[PanNik]

VVA, ага, уже видел, спасибо!

[Олег (jr.)]

Мой тебе совет...
Никогда не используй эту динамическую хрень
Lisp есмь фича юзающая списки
Особенно игнорируй Супермаксово
ИМКХЭ

[Лиспер]

Олег (jr.), лично я только с третьего раза понял чего ты хотел сказать

[Олег (jr.)]

Сообщение от Лиспер Олег (jr.), лично я только с третьего раза понял чего ты хотел сказать

Не люблю флудить... кароч:
нафик динамические, если есть NTH и др ф-ции
На практике вряд ли эти динамические будут
использоваться

[Supermax]

Что за дым? Я этот код систематически использую. Когда надо обрабатывать много элементов, надо не создавать себе проблем с огромными списками' а сразу формировать и классифицировать нужные данные. К любой переменной можно создать подтипы с номерами.
и переменную с границей диапазона.
И поверьте' я знаю вкус с этих устриц.

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

Сугубо ИМХО - лишнее. В LISP'е намного проще создавать [ассоциативные] списки и работать с ними, чем создавать динамические переменные.

[Apelsinov]

Supermax,
ммм...а вот как бы все эти переменные обозначить для функции как локальные? А то мусорить как-то не хорошо.

[Shraybicus]

Сообщение от Apelsinov ммм...а вот как бы все эти переменные обозначить для функции как локальные? А то мусорить как-то не хорошо.

Просто установить для всех nil - очистка переменных в конце функции

Код:

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

 (mapcar '(lambda (var) (set (read var) nil)) listVals)

где listVals - список с переменными

[Apelsinov]

Shraybicus, ну то есть списочек то придется ввести, ч.т.д., да и засовывать эту заплатку придется в обработчик ошибок, на всякий.

[Дима_]

Сообщение от Supermax Я этот код систематически использую. Когда надо обрабатывать много элементов, надо не создавать себе проблем с огромными списками' а сразу формировать и классифицировать нужные данные

Можно пример описания задачи где это с Вашей точки зрения оправдано.

[Shraybicus]

Сообщение от Дима_ Можно пример описания задачи где это с Вашей точки зрения оправдано.

Могу привести пример, когда мне это понадобилось.
Когда писал диал. окна с помощью DCL-окон, то прикручивал к элементам окна функции (такие как, например, set_tile). Конечно надо было создать для начала список с ключами полей формы.
Это позволило значительно сократился код в размере.

Сообщение от Apelsinov Shraybicus, ну то есть списочек то придется ввести, ч.т.д., да и засовывать эту заплатку придется в обработчик ошибок, на всякий.

Всегда есть отрицательные стороны.

[CB]

Я делаю так(иногда):

Код:

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

(setq var_name (list 'var1 'var2));имена переменных
(setq var (list 10 20));значения переменных

(mapcar 'set var_name var);присвоение значения переменным
(mapcar '(lambda (x) (set x nil)) var_name);удаление мусора

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

Сообщение от Shraybicus Когда писал диал. окна с помощью DCL-окон, то прикручивал к элементам окна функции (такие как, например, set_tile). Конечно надо было создать для начала список с ключами полей формы.

Когда мне подобное требуется, я просто читаю dcl-файл (если это вообще требуется), и фильтрую элементы со словом "key=". А имена ключей у меня и так подчиняются некоторым моим внутренним законам, так что отследить, что за что отвечает - не проблема.

[PanNik]

Дайте пожалуйста ссылку на учебный материал по ассоциативным спискам, а то ничего непонятно...

[Дима_]

Да там материалов-то - см. справку автокада по функциям assoc, subst.

[VVA]

Ассоциативный список - это просто список списков, у которых 1-й элемент является ключом. Пример - dxf коды в Автокаде. Нарисуй отрезок и набери в командной строке (entget(entlast)). Увидишь что-то похожее

((-1 . <Имя объекта: 7ef92690>) (0 . "LINE") (330 . <Имя объекта: 7ef90d08>) (5 . "2DB2") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbLine") (10 331.511 226.191 0.0) (11 439.551 198.487 0.0) (210 0.0 0.0 1.0))

Первые элементы - это dxf коды примитива, он же ключ.
Поиск нужных данных осуществляет функция assoc, замену - subst
Я знаю, что в списке с ключом 8 находится имя слоя, тогда

Команда: (assoc 8 (entget(entlast))) (8 . "0")

вернет мне список с ключом, а второй элемент - это нужное мне имя слоя
Ключом (первым элементом) может быть и строка. Assoc чувствительна к регистру.

Команда: (setq lst (list (list 1 "Первый") '(2 "Второй")(list 3 10)(list "first" "Тоже первый"))) ((1 "Первый") (2 "Второй") (3 10) ("first" "Тоже первый")) Команда: (assoc 1 lst) (1 "Первый") Команда: (assoc "first" lst) ("first" "Тоже первый") Команда: (assoc 3 lst) (3 10)

В общем то вот и весь материал

[PanNik]

большое спасибо, это наверное будет попроще чем создавать динамические переменные, и наверняка полегче для компутера