[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

_____________________________________________________________________________________________________________

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

[ShaggyDoc]

Разве минус не должен быть спереди

Символ "-" это не просто "минус", и не оператор "отнимания", а имя функции.
"1-" или "1+" это тоже имена функций. Странные такие, но все равно имена. Этим функциям передается аргументом целое число, результат (сам догадайся).

[Alaspher]

Сообщение от ShaggyDoc Этим функциям передается аргументом целое число...

Поправка - любое число.

[Дима_]

Ну тогда уж любое вещественное число.

[Alaspher]

Сообщение от Дима_ Ну тогда уж любое вещественное число.

С учётом контекста (AutoLISP) "любое число" тождественно "любому вещественному числу", а точнее - "любому рациональному числу" (и то с некоторыми ограничениями), поскольку сам язык не позволяет выйти за эти рамки. В хэлпе дано в варианте "Any number", что подразумевает любое число допустимое в AutoLISP.

[Дима_]

И вообще фулдить на уроках...
P.S. не удержался - (1+ (sqrt 2)) - работает, а значит и ирациональному.

[Red Nova]

Тогда еще вопрос. Как понять это

Код:

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

(setq tab  nil item (sslength value))

Я до сих пор не встречал после setq сразу 4 элемента. Разве их не должно быть только 2

[Alaspher]

Сообщение от Дима_ И вообще фулдить на уроках... P.S. не удержался - (1+ (sqrt 2)) - работает, а значит и ирациональному.

Ну это не флуд вообще-то. Понимание того, как работает интерпретатор языка отчасти страхует от сюрпризов в результатах.

В выражении [FONT=Courier New](1+ (sqrt 2))[/FONT] на вход функции [FONT=Courier New]1+[/FONT] будет подан результат выполнения функции [FONT=Courier New]sqrt[/FONT] фиксированной точности, т.е. рациональное число, где вся "иррациональность" будет уже потеряна - [FONT=Courier New]1+[/FONT] ничего "не знает" об источнике своего аргумента, если так можно выразиться.

[Alaspher]

Сообщение от Red Nova Тогда еще вопрос. Как понять это Код: [Выделить все] (setq tab nil item (sslength value)) Я до сих пор не встречал после setq сразу 4 элемента. Разве их не должно быть только 2

Да, может быть любое чётное количество аргументов, нечётные трактуются, как символы и им присваиаваются значения чётных.

Код:

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

(setq tab  nil item (sslength value))

Равносильно:

Код:

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

(setq tab  nil)
(setq item (sslength value))

[Red Nova]

А как понять это

Код:

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

(repeat (setq tab  nil
                item (sslength value)
                ) ;_ end setq
    (setq tab (cons (ssname value (setq item (1- item))) tab))
    ) ;_ end repeatА как понять это

Из хелпа знаю что

(repeat <число> <выражение>...) В этой функции <число> представляется любой положительной целой величиной. Функция выполняет каждое <выражение> заданное <число> раз и возвращает значение последнего выражения.

То есть форма такая
repeat <число> <выражение>
А у нас вместо <числа>
(setq tab nil item (sslength value))
Как ни кручу это выражение не может вернуть число.

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

Код:

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

(setq tab  nil
                item (sslength value)
                )

Вернет значение item.
P.S. Непонятные куски запускай в консоли vlide - понимания будет больше )

[Дима_]

Сообщение от Alaspher Ну это не флуд вообще-то. Понимание того, как работает интерпретатор языка отчасти страхует от сюрпризов в результатах. В выражении [FONT=Courier New](1+ (sqrt 2))[/FONT] на вход функции [FONT=Courier New]1+[/FONT] будет подан результат выполнения функции [FONT=Courier New]sqrt[/FONT] фиксированной точности, т.е. рациональное число, где вся "иррациональность" будет уже потеряна - [FONT=Courier New]1+[/FONT] ничего "не знает" об источнике своего аргумента, если так можно выразиться.

В том то и дело, что ИНТЕРПРИТАТОР иначе как вы объямните эти примеры:
1. (* (1- (1+ (sqrt 2))) (1+ (1- (sqrt 2))))
2.0;
2. (* 100000000000000000000 (/ 10 3.0))
3.33333e+020;
3. (* 6.0 (/ 20.0 3.0))
40.0;
- по Вашей логике (если числа выдаються с определенной точностью) ответы должны другими получаться.

[Alaspher]

Сообщение от Дима_ - по Вашей логике (если числа выдаються с определенной точностью) ответы должны другими получаться.

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

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

1. (1- (1+ (sqrt 2))) -> (sqrt 2)
(1+ (1- (sqrt 2))) -> (sqrt 2)
(* (sqrt 2) (sqrt 2)) -> 2.0
Так что все логично
2. (/ 10 3.0) -> 10/3
(* 1e20 10/3) да простят меня профессионалы -> (/ 1e21 3.) -> воспользуюсь математической записью 3.(3) * 10^20:
3.

[Red Nova]

kpblc, Вот что отвечает Vlide

_$ (setq tab nil item (sslength value) ) ; error: bad argument type: lselsetp nil _$

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

А перед этим сделать (setq value (ssget)) попробуй

[Red Nova]

У меня проблема с пониманием смысла value в данном коде, да и вообще с пониманием понятия аргумент.
Смысл переменной был понятен сразу. Ей можно присваивать разные значения. А какую роль играют аргументы не пойму.
Вот к примеру тут

Код:

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

(defun _dwgru-conv-pickset-to-list (value / tab item)
  (repeat (setq tab  nil
                item (sslength value)
                ) ;_ end setq
    (setq tab (cons (ssname value (setq item (1- item))) tab))
    ) ;_ end repeat
  ) ;_ end defun

В строке

Код:

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

(setq tab  nil
                item (sslength value)
                ) ;_ end setq

мы даем переменной item значение равное количеству выбора value. Но ведь value еще не чем не определено. Что за элементы в него входят? Сколько их?
Извиняюсь за черепашье мышление.

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

В данном случае value не "любое", а именно pickset - то есть результат (ssget). При вызове, аналогичном

Код:

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

(_dwgru-conv-pickset-to-list (ssget))

value уже получает значение сформированного набора. И потом обрабатывается.

[Дима_]

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

Как вариант - а есть идеи как можно проверить каким способом он работает? (то есть проверить хранит он в переменнной число с определенной точностью а при значениях близких к "круглым" - округляет или-же иррациональное выражение).

[Red Nova]

То есть получается, что вызывая

Код:

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

(_dwgru-conv-pickset-to-list selset)

Мы задаем value значение selset?

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

Ну типа того (если я только не запутался окончательно)