[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”))

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