[Малявка]

Здравствуйте, дорогие мои Мастера ЛИСПа!
Обращаюсь к вам с огромной просьбой.
Короче, хочу "отомстить" одному коллеге за первоапрельскую шутку со мной, чтобы счет был 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 не произойдет, потому что

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

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

[Малявка]

Совсем забыла: 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+]

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

[Do$]

Вообще, стоит оценить изобретательность барышни из Егорьевска - так досконально продумала алгоритм действия макроса в своем первом сообщении! Конкеретно когда и как должен действовать, ничего не скажешь - основательно подошла к вопросу

[hwd]

Сообщение от Do$ Вообще, стоит оценить изобретательность барышни из Егорьевска - так досконально продумала алгоритм действия макроса в своем первом сообщении.

Offtop: Ну так если больше ничего не делать и энергию направить некуда - почему бы хрень всякую не попридумывать... Да и не ей одной, как вижу...

[Малявка]

Do$, Именно ОСНОВАТЕЛЬНО! Чтобы макрос не был бы вирусом, а только легкой шуткой, и на короткое время, и чтобы смешно.

hwd, Я погляжу, вы тоже в рабочее время по форумам лазите вместо чтоб в автокаде. И вместо чтоб запросто и быстро нацарапать скриптик, развели философию "нравственно-безнравственно". Уже почти сутки существует топик, а воз и ныне там. Прямо как на базаре: шума много, а всё мимо темы...

p.s. Прислали бы мне инкогнито макросик на почту lenas65@rambler.ru и дело с концом. Тогда можно даже сам топик удалить, все равно макроса в нем не будет.

[357]

Сообщение от kp+ саботаж...есть в УК такая статья

В Украинском?
В Российском нет

[Profan]

Был бы человек, а статья найдётся.

[DEM]

Да тогда уж проще в acad.lsp засунуть, чей нибудь по проще....
Типа выбрать все объекты и поменять цвета в хаотичном порядке

[Profan]

И автоматически сохранить чертеж. А резервные копии удалить.

[E-degtyarev]

Сообщение от Малявка И вместо чтоб запросто и быстро нацарапать скриптик, развели философию "нравственно-безнравственно".

Извини, Малявочка, но "нацарапать скриптик" для исполнения твоих желаний - это не катит. Здесь нужна программа, а автор должен иметь приличную квалификацию (ИМХО).
Люди просто "уходят от темы".

[Profan]

И вообще, надо бы подождать до следующего 1 апреля.

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

Программист, имеющий достаточную для написания этого квалификацию, как правило, имеет определенную репутацию. Которая дорога хотя бы как память.

[DEM]

Блин Малявка ну че парится, возьми вставь в самый конец файла acad(версия автогада)doc.lsp строчку
(command "_.text" "_none" '(10. 10. 0.) 25000 45 "ВАСЯ ЛОХ" "")
Только со скобками смотри не запутайся
PS. Вася лох можно заменить на любой другой текст

[Profan]

Для реализации любой пакости Малявке надо подобраться к его компьютеру. А он заметит и как даст ей по шее.

[DEM]

Profan
А зачем подходить.....
Можно по пробовать применить принцип который заложен в вирусе для автокада, когда файл acad.lsp, переопределяет команды и прописывает себя в файл acad(версия автогада)doc.lsp, просто сказать предположим, у меня в сетевой папке лежит файл, глянь его, ну и там же лежит файл acad.lsp, юзер ни чего не подозревая открывает файло, и открывает файл который автоматом запускает этот простенький вирус.......
И еще можно таких текстов сделать штук 100 и раскидать по разным точкам типа
(command "_.text" "_none" '(10. 10. 0.) 25000 45 "ВАСЯ ЛОХ" "")
(command "_.text" "_none" '(100000. 10. 0.) 25000 45 "с 1 апреля" "")
(command "_.text" "_none" '(100000. 100000. 0.) 25000 45 "БУДЬ БДИТЕЛЕН НЕ ПОДПУСКАЙ НИ КОГО К КОМПЬЮТЕРУ. ВРАГ НЕ ДРЕМЛЕТ" "")
(command "_.text" "_none" '(-10000. 100000. 0.) 25000 45 "УБЕЙ МАЛЯВКУ" "")
(command "_.qsave" )
(command "_.qsave" )

Ну а быстрое сохранение 2 раза, чтобы он с файлами автосохранения не баловался......

[Малявка]

DEM, Спасибо большое! "Вася лох" меня устраивает!!!!

Profan, по шее, конечно, надаёт, но не за поимку с поличным, а сам догадается, ну и пусть. У нас все оставляют компы включенными, уходя на обед. И потом, залезть в чужой комп у нас не проблема, мы часто меняемся компами, судя по рабочей обстановке, так как из 6 компов в комнате только два подключены к плоттеру.

p.s. Ну, вот и всё. Можно считать тему исчерпанной. Всем спасибо.

p.p.s. И все таки, если у кого появится желание сделать макрос по моему сценарию (не вирус), шлите на lenas65@rambler.ru

[DEM]

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

[hwd]

Сообщение от DEM и положить в сетевую папку в которой лежит файл который он будет смотреть, результат должен быть таким же......

Причём у всех, кто будет смотреть этот файл... Например у руководителя группы проектирования. Вот тогда они и посмеются все вместе ещё раз, когда начальник за такую "шутку" будет кому-то давать по заднице в присутствии всё тех же "весёлых" сотрудников. Так сказать позориться, так по крупному...

Offtop: п.с. похоже барышня не понимает, что на форуме себя выставила в весьма глупом свете, тогда - тут уж и доктор бессилен, ибо глупость не лечится...

[DEM]

hwd
Ну зачем же так строго.....
Удалит она этот файл сразу, после розыгрыша, ну не будет же этот файл там вечно лежать.....
Хотя конечно если оставить его в обменной папке на пару месяцев и молчать, думаю народ не шибко обрадуется.....

[Шишков В.С.]

Сообщение от hwd Offtop: п.с. похоже барышня не понимает, что на форуме себя выставила в весьма глупом свете, тогда - тут уж и доктор бессилен, ибо глупость не лечится...

Offtop: Подумаешь, выставила себя в глупом свете. Некоторые барышни и сиськи запросто выставляют на всеобщее обозрение. И ничего.

[Do$]

Сообщение от DEM PS. Попробуй в принципе тоже самое всунуть в acad.lsp и положить в сетевую папку в которой лежит файл который он будет смотреть, результат должен быть таким же......

Тут где-то уже говорилось, что сети у них нет (хотя странно, как тогда в интернет выходит?).
hwd дело говорит, был у меня опыт: сделал файл с блоками для своего отдела, рядом положил acaddoc.lsp, в котором описал шутливый диалог, запускающийся при открытии чертежа. Настроил его так, чтоб он запускался на всех компьютерах, кроме моего, и благополучно про него забыл...
Потом конфуз получился, когда понадобилось поделиться блоками с другим отделом...
Так что, так лучше не делать - вылезет боком в самый неожиданный момент!

[hwd]

Сообщение от Do$ Тут где-то уже говорилось, что сети у них нет (хотя странно, как тогда в интернет выходит?).

Если топикстартер ничего не знает о сети, или под сеткой понимает "авоську" - это не означает, что сети нет (странно, что кто-то в это заявление вообще поверил ). Тем более, что в работе без сетки никуда, особенно в организациях, да и в интернет, как правильно было подмечено, она выходит не с помощью медитации...

[Do$]

Сообщение от hwd Если топикстартер ничего не знает о сети, или под сеткой понимает "авоську" - это не означает, что сети нет

Я не думаю, что все так плохо (все-таки, девушка умеет использовать лисп-приложения в автокаде, пишет макросы на ВБА для экселя - сразу цитата с баша вспоминается). И даже вполне допускаю, что может отсутствовать сеть и присутствовать интернет только на одном компьютере (или вообще только дома)

[Шишков В.С.]

Сообщение от Do$ все-таки, девушка умеет использовать

Еще не факт, что это девушка.

[Do$]

Ну этого мы никогда не узнаем наверняка.

[Нитонисе]

Сообщение от Кулик Алексей aka kpblc Программист, имеющий достаточную для написания этого квалификацию, как правило, имеет определенную репутацию. Которая дорога хотя бы как память.

Сообщение от hwd похоже барышня не понимает, что на форуме себя выставила в весьма глупом свете, тогда - тут уж и доктор бессилен, ибо глупость не лечится...

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

[Лиспер]

Давай-ка тебе напишу подобную шутку. Вместе похохочем.

[Шишков В.С.]

Сообщение от Нитонисе Перевернули все с ног на голову, как будто это не безобидная шутка, а диверсия, подрывающая работу целой организации

Так и есть. Какие могут быть шутки в рабочее время? Шутить дома надо. А на работе работать.

[Нитонисе]

Сообщение от Лиспер Давай-ка тебе напишу подобную шутку. Вместе похохочем.

Напиши)

[Малявка]

Ха-ха-ха, хи-хи-хи, хо-хо-хо, ГЫ-ГЫ-ГЫ!!!
Ой, уморили!!!
Ладно, отвечаю сразу всем, так сказать стаду вумных программеров:
1. Сети у нас действительно нет. А иначе зачем бы мы менялись компами, когда надо распечатать чертеж, а из всех компов только два подключены к плоттеру.
2. Интернет у меня - флешка, модем от Мегафона, своя, так что я сама плачу за интернет, не воруя денюжку у фирмы.
3. Ну да, не девушка, я. Типа женщина. И не блондинка вовсе, просто играюсь в блондинку. А что, нельзя?
4. С программированием у меня неплохо. VBA (Excel), PHP и SQL (стряпаю сайтики для своего удовольствия). Умею в Джумле и Вордпрессе. А вот LISP не дается мне никак. Ну, блондинка я для этого ЛИСПа!
5. Спасибо всем за предупреждения по использованию "Васи-лоха". Поставлю ненадолго, потом приведу в исходный вид.

И последнее: Барон Мюнхгаузен в исполнении Олега Янковского говорил: "Все самые большие глупости в мире делаются с серьезным выражением лица. Улыбайтесь, господа, улыбайтесь".
Чего и вам всем желаю.

[DEM]

Сообщение от Малявка 4. С программированием у меня неплохо. VBA (Excel), PHP и SQL (стряпаю сайтики для своего удовольствия). Умею в Джумле и Вордпрессе. А вот LISP не дается мне никак. Ну, блондинка я для этого ЛИСПа!

Похоже парень вкис.....
Offtop: Вы один момент не учитываете ...
Работал как-то приходящим админом (недалеко от дома).
Бегал почти каждый день в бухгалтерию - то эксель глючит, то разархиворовать не могут.
Только потом, когда уже жить стали вместе с этой девочкой - увидел как она на vba в экселе строгает и бат-ники для *.arj пишет ... :-))))
Потом так и сказала - "ты что правда думаешь что я архив сделать не могу? "
Так что присмотритесь внимательней к "тупым" пользователям ....

[Шишков В.С.]

Сообщение от Do$ Ну этого мы никогда не узнаем наверняка.

Почему? Есть простой способ проверить.

[Profan]

Но трогать её не моги-и...
За её малый рост, малый рост.