[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

_____________________________________________________________________________________________________________

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

[frostmourn]

Пока разбирался тут с ssget-ом, заметил, что фактические цвета рамки выбора (переменные windowareacolor и crossingareacolor) не соответствуют таковым в окне выбора цвета, видимо, из-за прозрачности. После экспериментов со сменой цвета и проверкой в паинте выяснилось, что величины RGB компонент меньше примерно в 4 раза. Но если пробовать вычислять цвет так, то на некоторых значениях отличается на несколько единиц, а хочется, конечно, точно. Так вот, как определить "настоящий" цвет заливки?

[ZloyEjik]

Есть имя переменной взятое из файла (пр. "SAPsto")
Есть значение переменной взятое из файла (пр. "KRF-107")
Вопрос:
Как в LISP составить команду (setq SAPsto "KRF-107") ?
Имя переменной получается из файла и может меняться.
Попробовал (atoi "(setq SAPsto "KRF-107")") - не получилось.

Или другой вариант той же проблемы:
Есть цикл, в нем N = N+1
В первом повторении цикла должны получить (setq testN 1), где testN = test1
Во втором (setq testN 1), где testN = test2

[Сергей812]

Сообщение от ZloyEjik Есть имя переменной взятое из файла (пр. "SAPsto") Есть значение переменной взятое из файла (пр. "KRF-107") Вопрос: Как в LISP составить команду (setq SAPsto "KRF-107") ? Имя переменной получается из файла и может меняться. Попробовал (atoi "(setq SAPsto "KRF-107")") - не получилось. Или другой вариант той же проблемы: Есть цикл, в нем N = N+1 В первом повторении цикла должны получить (setq testN 1), где testN = test1 Во втором (setq testN 1), где testN = test2

С циклом - на верном пути, в принципе: открываете файл, считываете в цикле оттуда построчно значения и присваиваете их testN.

[ZloyEjik]

Сообщение от Сергей812 С циклом - на верном пути, в принципе: открываете файл, считываете в цикле оттуда построчно значения и присваиваете их testN.

Тут вопрос по поводу возможности изменения переменной. Возможно ли записать кучу переменных через цикл.
(setq test1 "1")
(setq test2 "1")
(setq test3 "1")
(setq test4 "1")
...
(setq testN "1")
Другими словами, чтобы имя переменной тоже было переменно

Другими способами я уже решил задачу. (1ая через cond):
(while (setq stroka (read-line sett))
(cond
( (wcmatch stroka "*SAPsto*") (setq SAPsto (substr stroka 1 (vl-string-position (ascii ";") stroka)))) ; Стойка
( (wcmatch stroka "*SAPrigF*") (setq SAPrigF (substr stroka 1 (vl-string-position (ascii ";") stroka)))) ; Ригель с фрезеровкой
....
))
(2ую можно записывать не одну переменную а добавлять в один список (list) все переменные, а потом считывать)

Но интересно, можно ли решить задачу через изменение имени переменной.

[Сергей812]

не усложняйте себе задачу, потом при попытке что-то изменить сами запутаетесь) автоматизировать надо то-что невозможно или затруднено сделать стандартными средствами программы. Со списком правильная мысль, в "нормальных" ЯП были бы массивы.

[VVA]

Сообщение от ZloyEjik Есть имя переменной взятое из файла (пр. "SAPsto") Есть значение переменной взятое из файла (пр. "KRF-107") Вопрос: Как в LISP составить команду (setq SAPsto "KRF-107") ? Имя переменной получается из файла и может меняться.

Ассоциативный список?
Примеры функций
DwgRuLispLib: Две функции работы со списками
_dwgru-assoc и _dwgru-assoc-multi

[trushev]

Часто возникает необходимость функцией setq присвоить значения нескольким переменным.
Какие преимущества/недостатки вариантов решения этой задачи?
(setq a 1)
(setq b 2)
...
(setq z N)
Или
(setq a 1
b 2
...
z N
);setq

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

Второй вариант обычно быстрее. И читается, как правило, проще.

[gomer]

Сообщение от trushev Какие преимущества/недостатки вариантов решения этой задачи?

Самый распространенный недостаток - трудность переделки кода, ты не можешь просто так скопировать/перенести определение в другое место, только в такой же блок определений

[Сергей812]

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

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

Уууу, робяты, ну вы и тему подняли

Копирастинг кода - зло. Если какая-то последовательность действий выполняется больше чем 1 раз, стоит рассмотреть необходимость ее выноса в отдельную функцию. Например, функция создания слоя с различными параметрами, или функция вставки блока / ссылки, или функция открытия стороннего файла dwg, или функция сохранения лога, или... Короче, общий принцип понятен.
При таком подходе не надо комментировать код внутри функции, достаточно дать ее внятное описание, рассказать, какой параметр за что отвечает и теде. Функция (что бы она ни делала) работает так, как написано, и возвращает строго определенные типы результатов.

Постарайтесь все же найти "САПР на базе AutoCAD - как это делается" - там много интересного.

[Сергей812]

Алексей, к сожалению IDE Lisp и того же VBA уже настолько отстал от других сред разработки, что без копипастинга трудновато обойтись)

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

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

[trushev]

Имеется функция:

Код:

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

(defun test (sp_peremen  ; список имен переменных
             sp_klpoley  ; список ключей полей диалогового окна
                         ;(количество и последовательность элементов списка sp_klpoley соответствуют списку sp_peremen)
             /
             sp_rezultat ;список результатов расчета
            )
             ;
             ;Присвоение значений переменным
             ;
            (foreach k sp_peremen
                     (set k (get_tile (car sp_klpoley)))
                     (setq sp_klpoley (cdr sp_klpoley))
            );foreach sp_peremen
             ;
             ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
             ;
             ;Выполнение вычислений с записью результатов в sp_rezultat
             ;
             ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
             ;
             ;Обнуление используемых переменных
             ;
            (foreach k sp_peremen  ; список имен переменных
                     (set k 'nil)
            );foreach k
             ;
             ;На выходе список результатов расчета
             ;
            sp_rezultat
);defun test

Как объявить локальными переменные из списка sp_peremen?

PS Вышел из отпуска, благодарю за отклики по "setq".

[skkkk]

Сообщение от trushev Как объявить локальными переменные из списка sp_peremen?

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

[trushev]

Сообщение от skkkk Может, я не совсем правильно понял

Постараюсь дать более подробные пояснения.
В коде выполнена попытка унифицировать считывание данных с различных диалоговых окон. Не знаю на сколько эта идея бредовая.
sp_peremen аргумент функции test является списком произвольного числа произвольных имен переменных и может иметь вид:
(list 'ed1 'ed2 'tg1) или
(list 'ed5 'ed6 'ed7 'ls1 'tg4 'tg8) или нечто иное.
sp_klpoley аргумент функции test является списком ключей полей диалогового окна. Количество элементов списка и их последовательность
должны соответствовать списку sp_peremen. sp_klpoley может иметь вид:
(list "ed1" "ed2" "tg1") или
(list "ed5" "ed6" "ed7" "ls1" "tg4" "tg8") или нечто иное.
В цикле с использованием функции "set" (не setq) выполняется присвоение переменным значений.

Сообщение от skkkk И этот аргумент может стать переменной в функции более высокого уровня, и тогда его нужно локализовать в ней

Агументы {все между "(" и "/"} и рабочие переменные {все между "/" и ")"} пользовательской функции объединяются в локальные переменные и дополнительной локализации не требуют.
Ничего не нашел по локализации вложенной функции. Скорее всего ее имя должно фигурировать в перечне локальных переменных основной функции. Но подтверждение этому не нашел.

Сообщение от skkkk кажется, нельзя локализовать все переменные, локализовав одну, содержащую в себе их в виде списка

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

[skkkk]

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

Так и есть. Это легко проверить, например, загрузив в Автокад лисп, в котором будет локализованная и нелокализованная функция, выполнить его и в командной строке после восклицательного знака вбить имя сначала одной, затем другой. Локализованная вернет nil.

Сообщение от trushev Значит без принудительного обнуления переменных из списка не обойтись.

А чем смущает такой подход? Причем, я бы даже добавил это в локальный *error* и вызывал бы его в конце выполнения кода.

[trushev]

Сообщение от skkkk А чем смущает такой подход?

Существует вероятность, хотя и малая, совпадения имен с ранее введенной глобальной переменной.

----- добавлено через ~18 ч. -----
skkkk, спасибо за уделенное время. Приятно было пообщаться.

[George_D]

Добрый день, подскажите , пожалуйста, есть ли возможность с помощью Lisp преобразовать объект в блок и программно добавить к полученному блоку атрибут? Пытаюсь выполнить следующие преобразования: пользователь выбирает полилинию-полилиния преобразуется в блок-атрибут блока пользователь выбирает с помощью выпадающего DCl списка-итог, блок состоящий из полилинии с невидимым атрибутом в нем.

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

_.attsync или его альтернативы (написанные самостоятельно)