[valerik88]

Во многих языках программирования есть возможность создавать функции с необязательными параметрами.
Т.е. хочу вызываю её с параметрами (somefunction param), а хочу вызываю без параметров (somefuntion)
Есть ли подобная возможность в Autolisp?

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

Можно, почему нет. Как вариант: http://autolisp.ru/2009/10/21/lisp-overloading/

[valerik88]

Сообщение от Кулик Алексей aka kpblc Можно, почему нет. Как вариант: http://autolisp.ru/2009/10/21/lisp-overloading/

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

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

Количество параметров в AutoLISP задается один раз. Полноценного "переопределения" / "перегрузки" функций тут нет.

[skkkk]

Но можно же создать функцию, в которой какой-либо из параметров (или все) может быть nil. Опустить его при запуске функции нельзя, но обработать nil можно в коде функции:

Код:

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

(defun somefunction (param / )
	(if (null param)
		.......
	)
)

А вызывать

Код:

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

(somefunction nil)

Не то?

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

Я так понял, что ТС хочет получить нечто типа:

Код:

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

(fun)
(fun 1)
(fun 1 2)
(fun 3 4 5 6 7 8 9)

Т.е. название функции одно и то же, но количество и/или тип аргументов - разный.

[doctorraz]

похоже ТС хочет что бы работало как на VB

Код:

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

Function MyF(a As String, b As String, c As String, _
         d As String, Optional aa As Integer, Optional bb As _
        String) As Variant

[ShaggyDoc]

Собственно ответили уже, но для ясности:
1. Автолисп - язык функциональный. В нем нет вообще "параметров", а есть аргументы функций. "Это вам не лезгинка, а твист"!

2. На Автолисп сделать функцию с переменным количеством аргументов нельзя.

3. Но аргументы могут быть разного типа. В том числе списки. В том числе NIL. Как обрабатывать разные типы аргументов должно быть прописано в теле функции.

4. Если один или несколько аргументов являются списками, внутри следует обращаться к элементам списка по их номеру функцией nth или функциями car, cdr и им подобным - как удобнее.

5. Если "нельзя, но очень хочется", надо написать функцию с одним обязательным аргументом. А вызывать её уже можно по разному. Вызов (my_fun nil) будет соответствовать вызову без "параметров", но с одним аргументом, а вызов (my_fun (list 1 2 3 fig vam)) - переменное количество "параметров", но по-прежнему один аргумент.

6. В других языках, где допускается переменное количество аргументов в описании процедуры или функции указывается, какое значение присваивается опущенному при вызове параметру. В Автолисп это надо прописывать внутри тела функции.

[Александр Ривилис]

Средствами ObjectARX и AutoCAD .NET API можно создать lisp-функцию с переменным числом аргументов. По аналогии с некоторыми встроенными функциями AutoLisp, которые тоже могут принимать различное число аргументов. Например, (+ ...) или (mapcar ...)

[Дима_]

!!! ВНИМАНИЕ ОПРОВЕРЖЕНИЕ !!!

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

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

Уточнение: функция должна быть именована.
Сильно подозреваю, что ты имеешь в виду определение не через defun, а через defun-q (которым, к стыду своему, я не пользуюсь).

[Дима_]

Сообщение от Кулик Алексей aka kpblc Сильно подозреваю, что ты имеешь в виду определение не через defun, а через defun-q

не верное направление...
тут не знания, а смекалка на первом месте

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

Ок, уболтал. Но условие остается прежним: функция должна иметь собственное имя

[Дима_]

кАнечно - имя будет какое захочешь

----- добавлено через ~10 мин. -----
Кому - 2 дня будет мешать спать и работать - пишите публично "Сдаюсь" - ответ пришлю в личку.

[trushev]

Передача функции переменного количества "аргументов" уже озвучена:

Сообщение от ShaggyDoc my_fun (list 1 2 3 fig vam)) - переменное количество "параметров", но по-прежнему один аргумент.

[Apelsinov]

Пока думал над вопросом, обнаружил интересный способ записи неименованных функций, может это общеизвестно, но для меня было открытием:

Код:

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

 ('((A B C) (LIST A B C)) 1 2 3)  

возвращает '(1 2 3)

[ShaggyDoc]

Могу предположить, что это буде как "интерпретатор Лисп на Лиспе" из книги "Мир Лиспа".

[skkkk]

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

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

skkkk, я так понимаю, что надо создать функцию, которая корректно будет работать при вызовах типа:
(fun)
(fun nil)
(fun t "a")
(fun 1 2 "c" t nil)
(fun '(1 2))
При этом функция должна вызываться именно в стандартном варианте кода, без применения eval и read.

[nolte]

может так,

Код:

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

 
(defun example (aug1)
 
(foreach item aug1
(print item)
);_foreach
(princ)
);_defun

(example ‘( “Hello” “Aloha” “Hola” “Ciao” “Guten Tag”))

откопал на просторах

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

http://forum.dwg.ru/showpost.php?p=1548015&postcount=2 и далее - не?

[Дима_]

не - будет честная функция запускаемая из ком. строки автокада (из лисп файлов так-же будет работать) без всяких прелюдий типа eval и пр.
Будет корректно работать и возрващать ожидаемый результат:

Код:

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

 (my-fun 1)
(my-fyn 1 2)
(my-fun 1 2 3)

Я гарантирую это

----- добавлено через ~4 мин. -----
Решение элементарное - еще раз повторю - практически этот метод не сильно пригоден - включайте смекалку - как создать такую функцию средствами автолиспа и только ими - знаний у каждого участника темы более чем достаточно для его реализации.

[Apelsinov]

кто молодец? я молодец!

Код:

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

 
(setq my-fun +)
(my-fun 1 2 3)

[Дима_]

Зачет!

----- добавлено через ~4 мин. -----
Предлагаю поддержать викторину - кто выдаст следующую задачку.

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

Задачка та же, только действия посложнее. Ну типа там, изменить цвет и / или тип линии для выбранных объектов / всего файла, с обработкой описаний блоков или без. Количество параметров может быть таким:
0 (установить цвет линии)
0 "hidden" (установить цвет и тип линии)
0 "hidden" t (то же, для выбранных объектов)
0 "hidden" t t (то же, с обработкой описаний блоков)
0 t (устанавливать цвет линии, для выбранных объектов)
0 nil t (цвет, для всего файла, с обработкой описаний блоков)

Вперед?

[Apelsinov]

Сообщение от Кулик Алексей aka kpblc Вперед?

Тебе с такими задачками - в "Поиск исполнителей"

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

Apelsinov, я подобные задачи буду решать по методу, описанному в #2 Дима_ просил следующую задачку - я выдал ))

[skkkk]

Эх, не хватило меня вчера (уже позавчера, уже "в тот день") углубиться в проблему, уточнить условия задачи, и, признаюсь, она меня довольно-таки увлекла. И в свободное от других мыслей время мой мозг посвящал ей...
Однако условия "викторины" можно было понять по-разному.
Задачу

Сообщение от Дима_ создать автолисп функцию на чистом автолиспе с переменным количеством аргументов

в какой-то спешке и в свете темы Есть ли в Autolisp возможность задавать необязательные параметры для функций? я воспринял несколько по-своему.
Я почему-то предположил, что в общем виде, эта двоякость задачи должна бы решиться при помощи одного гениального подхода.
Я полагал, что можно на чистом лиспе действительно создать для функции необязательный аргумент, да еще и аргументы при этом могут быть разных типов, ну как в ssget, например.... а тут оказалось, что надо просто "с переменным количеством аргументов"...

Признаться, я слегка разочарован. А где "необязательные параметры"? А где разные типы этих "параметров"? Я думал, что сейчас последует какая-нибудь рекурсия, обернутая в какой-нибудь vl-catch-, которая бы, "прочитав" и проанализировав сообщение об ошибке переопределила бы и вызвала бы сама себя еще разок, а может, и не один... (десяток).
Главным вопросом, терзавшим мой разум, был "А как же мне программно понять, что за аргументы, и какое именно их количество передалось функции в момент вызова?" Ну, чтобы суметь их проанализировать перед "мобильным" её переопределением. Конечно, неоднократные упоминания о незначительной практической пользе меня настораживали, но я слепо объяснял себе это тем, что смысл от этого "достижения" непонятен, и тем, что ничто и никогда не мешало мне поставить nil, если мне не нужен в этом месте аргумент.
Тем более, что из командной строки я обычно функции (с аргументами!) не вызываю.
Тем еще более, что было предложено, причем, неоднократно, весьма, на мой взгляд, гениальное решение скормить функции список любого содержания. Я просто не понимал, зачем над этим думать, если это решение было не нужно, а если было бы и очень нужно "пафосно" и часто пропустить в кодинге необязательный "параметр", то надо просто загнать его в список, а в коде - его проанализировать.
Но было прикольно.

Сообщение от Дима_ Предлагаю поддержать викторину - кто выдаст следующую задачку.

Offtop: Есть у меня на примете одна такая. Но она совершенно из другой темы.

[gomer]

Сообщение от skkkk Признаться, я слегка разочарован.

да вас Дима_ просто потроллил создать новое описание функции или создать новую ссылку на существующее описание - это не одно и тоже.

[ShaggyDoc]

Сообщение от skkkk Главным вопросом, терзавшим мой разум, был "А как же мне программно понять, что за аргументы, и какое именно их количество передалось функции в момент вызова?" Ну, чтобы суметь их проанализировать перед "мобильным" её переопределением. Конечно, неоднократные упоминания о незначительной практической пользе меня настораживали, но я слепо объяснял себе это тем, что смысл от этого "достижения" непонятен, и тем, что ничто и никогда не мешало мне поставить nil, если мне не нужен в этом месте аргумент

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

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

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

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

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

Ну и напомню еще одну интересную возможность Лиспа - передача имени функции в качестве аргумента. Вот есть у меня функция, объявленная так

Код:

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

 (ru-3d-pipe-draw-any  func   param_lst   msg_1pt  msg_2pt     dist_by_vector)

Она предназначена для моделирования в 3D любых элементов трубопроводов. Хоть просто трубы, хоть отвода, хоть тройника, перехода, задвижки или даже насоса.

Здесь аргументами являются

func - "квртированное" имя функции, которая должна что-то из "любого" уметь рисовать. Например (quote ru-3d-pipe-reducer-conc-draw) или (quote ru-3d-pipe-2-flange-draw-revolved)

param_lst - список аргументов для заданной функции рисования. Может быть и (list 159.0 6.0) и (list 159.0 300.0 250.0 25.0 212.0 3.0 68.0 26 8 6.0 nil T). Как эти аргументы обрабатывать - знает только сама функция рисования.

msg_1pt, msg_2pt - тексты приглашений для первой и второй точек.

dist_by_vector - возможное смещение точки.

И внутри ru-3d-pipe-draw-any, если опустить открывающую часть (ввод и вычисления точек start_pnt end_pnt) и завершающую часть само "рисование" происходит просто

Код:

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

 ((eval func)  start_pnt   end_pnt   param_lst )

Вот эта строчка позволяет нарисовать что угодно. Попробуйте сделать так на Бейсике.

А вызов ru-3d-pipe-draw-any с аргументами просто записывается в меню (у меня в XML). И уже пользователь системы "смышленая тётка" самостоятельно может добавлять или изменять набор моделируемых объектов, просто копируя образец вызова и изменяя аргументы

Код:

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

 
(ru-3d-pipe-draw-any (quote ru-3d-pipe-2-flange-draw-revolved) (list   159.0 300.0 250.0 25.0 212.0 3.0 68.0 26 8 6.0 T nil) "Начало фланца" "Безфланцевый конец трубы" nil) - конец трубы с фланцем
(ru-3d-pipe-draw-any (quote ru-3d-bolt-and-nut) (list 20.0 t) "Начало соединяемых деталей" "Конец соединяемых деталей" nil) - болт с гайкой в 3D
(ru-3d-pipe-draw-any (quote ru-3d-line) nil "Начало отрезка" "Направление конца" 500.0)"  - отрезок трубы с выбираемым диаметром, но заданной длины
(ru-3d-pipe-draw-any (quote ru-3d-tee-thread) (list 21.8 60.0 30 T) "Центр тройника" "Направление основного потока" 56.0)"  - тройник для металлопластика

и так далее - сотни вариантов.

Вот что eval животворящий делает!

[trir]

Попробуйте сделать так на Бейсике.

легко

[ShaggyDoc]

Сообщение от trir легко

Не указатели, а строковое имя функции (которое еще и вычислять можно или прочитать). И сделайте, (да в одну строчку кода), а не сошлитесь на "да всякое можно делать".