[Малявка]

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

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

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

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

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

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

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

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

[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$ Тут где-то уже говорилось, что сети у них нет (хотя странно, как тогда в интернет выходит?).

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