[Малявка]

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

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

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

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

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

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

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

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

[Yuzer]

Offtop: Да Вы садист, однако....

[hwd]

Это, как я понимаю - от нечего делать... Попросите руководителя группы подкинуть вам работы, дабы подобные глупости в голову не лезли.
Offtop: п.с. порой "блондинка" - это диагноз.

[Малявка]

нет, не от нечего делать. Работы хватает. Просто стараемся жить весело, без напряга. А что, у вас в конторах разве не потешаются? И потом, я же хочу пошутить незло.
Ой, я уже сейчас представляю, как он полушепотом матерится... вижу его непонимающий, такой "мудрый" взгляд на монитор...

[hwd]

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

У меня юзеры порой приносят (либо им присылают) разную дрянь, которая расползается по сети и мешает работать другим. Когда отлавливаю виновных - даю по жопе. Вряд ли им в этот момент смешно.
Жить весело можно и не мешая другим нормально работать. У нас в одной группе проектирования имеется дартс и хоккей. Если у них перерыв - они могут немного поиграть, но к работе все относятся серьёзно и не мешают друг другу.

[Малявка]

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

[hwd]

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

У меня такого точно не будет, и у вас бы не было, если бы каждый юзер работал под своим профилем Windows с правами обычного юзера (не админа). Пароли, приклеенные стикером на краю монитора, нужно переклеивать на лоб юзера.

[Малявка]

hwd, я обратилась не с просьбой выслушать нравоучения, а за конкретной помощью. А вы тему моего топика уводите в сторону офисной нравственности и безопасности. Ближе к теме, пожалуйста.

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

Ближе к теме? Легко!
На лиспе подобное реализовать крайне затруднительно, если вообще возможно.
---
Добавлено: не, можно, конечно, через реакторы или переопределение команд подобное намутить, да только эффективность подобного решения сильно в минусах. Лично я не хотел бы "разгребать" последствия таких "шуток".

[hwd]

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

[Малявка]

Кулик Алексей aka kpblc, я так понимаю, в начале макроса надо установить временные границы его работы. Дальше макрос работает так: по нажатию Enter или по окончании рисования примитива его цвет (вес) меняется локально. Какие еще реакторы, какие переопределения? Разве поменять цвет примитива программно сложнее, чем мышкой?

hwd, в содержании топика нет призывов к экстремизму, нет оскорблений и т.д. Ни один пункт правил форума не нарушен. А вы - "прикрывать"! Да у вас комплекс, батенька... Комплекс из серии "держать и не пущать!"
А польза от такой шутки - огромная! Вы же не знаете нравственной обстановки в нашей конторе.

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

Сложнее. Хотя бы потому, что лисп не умеет работать в "фоновом" режиме.

[Yuzer]

Малявка, сделай принтскрин монитора, установи на рабочий стол, удали все ярлыки. Или. Установи самую низкую скорость на мышке 1 из 11.

[Малявка]

Yuzer, не прокатит. Даже я это знаю. И все у нас такие шутки знают. Я подобную программу, работающую по времени, могу написать в Excel на VBA, но надо именно в AutoCAD в LISP.

Кулик Алексей aka kpblc, я так понимаю, что запускать макрос можно только из командной строки, а сам он не запустится?

[Pastor]

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

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

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

[Pastor]

Макрос просто меняет цвет вновь создаваемых примитивов. Чего тут разгребать? И почему на 30 компах. Речь идет об одном малявкином коллеге.

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

Pastor, когда ты получишь подобный вирус от совершенно стороннего человека, мне будет интересно, вспомнишь ты про эту тему или нет. Или если через полгода к тебе обратится твой (!) коллега, у которого из-за этого стопорится работа.
---
Народ! Думайте на пару шагов вперед!

[Малявка]

Кулик Алексей aka kpblc, ну не знаю! Я же в самом начале описала функционал макроса, какой же это вирус? И потом, я подозреваю, что макрос даже дня не продержится в тайне, так как моя жертва за столом напротив довольно продвинутый человек.
Хотя, с другой стороны, модератор, он хозяин-барин. Может и вправду, не стОит выкладывать подобное "безобразие" для всех, это ведь частная просьба. Поэтому для желающих создать сие творение - мой адрес:
lenas65@rambler.ru
Спасибо!

Pastor, вы правы: наши компьютеры локальные, даже без внутренней сети.

[Pastor]

Это не вирус, а программа-шутка. Чтобы она появилась на моем компе, нужно, чтобы файл MyJoke.dll кто то положил мне на диск, а в файл acaddoc.lsp прописал соответствующую инструкцию для загрузки. Это само-собой (по типу вируса) уж точно никак не произойдет.
И у hwd не произойдет, потому что

У меня такого точно не будет

сказал он и обещал по жопе надавать
А для полной уверенности с малявки надо брать подписку о нераспространении
Уж больно вы все серьезные.