[Малявка]

Здравствуйте, дорогие мои Мастера ЛИСПа!
Обращаюсь к вам с огромной просьбой.
Короче, хочу "отомстить" одному коллеге за первоапрельскую шутку со мной, чтобы счет был 1:1.
Напишите, пожалуйста такой макрос (я его загоню коллеге в папку AutoCAD/Support):

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

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

Во вторую минуту каждого четного часа цвет - желтый и

В третью минуту каждого четного часа вес примитива - 0,5мм (тоже локально, с возможностью изменения).

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

А я - наши столы напротив - понаблюдаю за ним пару деньков и потешу свое "обиженное" самолюбие.

Кто поможет "несчастненькой" блондинке?

[Малявка]

Совсем забыла: AutoCAD 2008 rus

[gomer]

ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ
1. Если человек вам напакостил, то он не тетка... А значит раскусить вас ему раз плюнуть! Если вы все же не отказываетесь от своей идеи, читайте пукт 2.
Пункт 2.гораздо более серьезный прикол, когда цвета примитивов меняются перед печатью а после печати возвращаются на места только не используйте событие изменения базы рисунка а то рекурсия - штука коварная

[Малявка]

gomer, неа, более серьезный прикол не хочу. Это получится месть, а я хочу шутку. Он же пошутил первого апреля. Да, скорее всего, раскусит. Но несколько часов "напряженной" работы его мозга будет гарантировано!

[gomer]

думаю больше 5 минут ему не понадобится

[Малявка]

gomer, а вот напишите мне макрос, а я после "эксперимента" отпишусь, как все прошло. Здесь же, в этом топике.

[Vov.Ka]

зачем вам макрос. пригласите его на свидание и не придите. делов то...

[gomer]

Сообщение от Малявка gomer, а вот напишите мне макрос

Я макросы на автолиспе писать не умею, сорри

[Vova]

Сообщение от Малявка Ой, я уже сейчас представляю, как он полушепотом матерится... вижу его непонимающий, такой "мудрый" взгляд на монитор...

Любовь, однако?

[Малявка]

Vova, ближе к теме, пожалуйста. Вам же несложно понаписать все эти cad-ы, caddddddr-ы... Ну что вам стоит...

Vov.Ka, уж очень банально и неинтересно.

[Do$]

Мне кажется вполне естественным, когда люди просят написать им полезное в работе приложение...
Я даже спокойно и с пониманием отношусь к ситуации, когда студенты просят написать им различные бесполезные программки для получения зачета...
Ладно, морали читать не буду - чай не дети малые Скажу просто - я пас!
P.S. Не хочется потакать человеку в совершении глупости (сорри, не удержался )

[Modis]

Сообщение от Pastor Обратитесь к тов. Modis. У него в приложении уже написан функционал для посадки объектов построения на нужный слой (см. ссылку). Может он согласится выделить нужную часть в небольшое приложение и переделать её так, чтобы менялся цвет, а не слой. Ну и таймеры подключить. Получится .NET приложение, автозагрузку которого можно зарегистрировать через реестр или через acaddoc.lsp. И пойдет оно гулять по миру...

Но тов.Modis такая леееень...
А на самом деле - времени нет.
И что все так на девушку напали? Шутку можно сделать и так, чтобы не осталось последствий. Ну поменяла она там пару слоев/цветов/толщин линий - ну и что? Это не страшно, зато нервы пощекочит. Тем более не сложно можно сделать, чтобы функция после, допустим 10 загрузок, отключилась. Единственное - таймер. Таймер - это зло! Лисп не поддерживает, в NET - создается в отдельном потоке, что может автокад "сломать", в ARX - не знаю.
Но, как я уже сказал выше - лично мне некогда этим заниматься.
З.Ы. В давние времена, помнится мне, был один лиспик, после загрузки которого через определенное время по экрану бегал таракан. Правда у меня так и не заработала
З.Ы.Ы. В одной знаменитой книжке есть пример с плавающими панелями

[VVA]

Сообщение от Малявка А как вы будете себя чувствовать, если у вас на компе все значки-ярлыки начнут убегать от курсора! Невозможно было ни одни ярлык нажать!

Можешь в качестве шутки использовать код из #4 лисп не дает отключить шаг. Можно еще настроить SNAPUNIT соответственно, а вместо (princ "* Нельзя отключать шаг *") написать свое послание

[Малявка]

VVA, как-то пресно. Перчика не хватает.

[Лиспер]

Гусары, молчать!

[Vova]

Сообщение от Малявка Vova, ближе к теме, пожалуйста. Вам же несложно понаписать

Попробуй задать ему блок, скажи, мол, не взрывается. Блок возьми из темы Совершенно секретно где-то в середине, называется Унитазик

[sgt]

Offtop: Лисп не знаю, только VBA

Сообщение от Modis Таймер - это зло! Лисп не поддерживает

А если воспользоваться в качестве счетчика числом кликов мышки? Можно рандомным.

[Do$]

Можно. По сути это получится вирус под AutoCAD. Останется к нему еще прикрутить код для его самостоятельного размножения - и написавшему будет долго икаться...

[kp+]

Предлагаю незлобный и недеструктивный, а, главное, простой прикол

Команда: _UNDEFINE Имя команды: _QUIT
Команда:
Команда:
Команда: _quit Неизвестная команда "ПОКИНУТЬ". Для вызова справки нажмите F1.

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

[Do$]

В автозагрузку:

Код:

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

 (while (not (alert "А поработать у тебя сегодня не получится!")))

[kp+]

слишком "симметричный" ответ, палевно И, потом, понимаешшшь, срываешь работу человеку...а это уже саботаж...есть в УК такая статья