TheSwamp

CAD Forums => CAD General => Topic started by: Eclipse on March 30, 2014, 04:24:10 AM

Title: AutoCad prank help
Post by: Eclipse on March 30, 2014, 04:24:10 AM
So April fools day is coming up.

Looking for some good pranks to play on colleagues (on backed up drawing files). I am thinking something along the lines of a lisp mapped to a common command where the lisp selects everything in the drawing and does the following:
- explodes it several times (to get nested blocks, hatches etc)
- makes everything one colour
- makes linetype scale random
- turns all layers on/off
- saves twice
- or anything else anyone can think of.

Does anyone know any lisps that do this or want to have a go at writing one?  :mrgreen:
Title: Re: AutoCad prank help
Post by: Keith™ on March 30, 2014, 10:19:06 AM
I'd recommend against anything that changes a drawing. That kind of shenanigans would have gotten a person terminated in the places I have worked.

What I have done in the past is use a lisp that would change modemacro and print REDRUM on the screen.

Get some more ideas here (http://www.theswamp.org/index.php?topic=35163.0;all)
Title: Re: AutoCad prank help
Post by: MP on March 30, 2014, 11:02:56 AM
In my near 40 years of work I've worked in very few places where practical jokes don't escalate to very unfortunate conclusions, so as tempting as it is to write something "fun" (and I have written some doozies in the past, some at the behest of supervisors believe it or not) my contribution to this thread is "just don't do it".

If you simply cannot resist the temptation ensure anything you do will not result in lost work or productivity, directly or indirectly, lest you be the one who realizes an unfortunate conclusion.
Title: Re: AutoCad prank help
Post by: Keith™ on March 30, 2014, 11:18:54 AM
I once redefined the "line" command to alert the user that they were out of line.
Title: Re: AutoCad prank help
Post by: Lee Mac on March 30, 2014, 11:59:53 AM
This one is pretty harmless:
Code: [Select]
;; An April Fools Treat by Lee Mac :-)
(defun c:fool nil
    (if (null fool:reactor)
        (setq fool:reactor (vlr-command-reactor nil '((:vlr-commandwillstart . fool:callback))))
        (princ "\nYou are already being fooled!")
    )
    (princ)
)
(defun fool:callback ( a b )
    (vl-catch-all-apply 'vlax-invoke
        (list
            (setq fool:wsh (cond (fool:wsh) ((vlax-create-object "wscript.shell"))))
            'sendkeys
            "{ESC}"
        )
    )
    (princ)
)
(defun c:okyougotme nil
    (if (= 'vlr-command-reactor (type fool:reactor))
        (vlr-remove fool:reactor)
    )
    (if (and (= 'vla-object (type fool:wsh)) (not (vlax-object-released-p fool:wsh)))
        (vlax-release-object fool:wsh)
    )
    (setq fool:reactor nil
          fool:wsh     nil
    )
    (princ)
)
(vl-load-com) (princ)
Title: Re: AutoCad prank help
Post by: Locke on March 30, 2014, 12:04:43 PM
I once redefined the "line" command to alert the user that they were out of line.

Such gold.
Title: Re: AutoCad prank help
Post by: mjfarrell on March 30, 2014, 12:25:49 PM
perhaps have your lisp file insert or attaches a giant BLACK jpg over the entire drawing so that the drawing looks empty

however I caution that I once pranked an entire office with a parody memo from accounting department...
they got mad I had to apologize
all because some fool didn't get satire and thought the memo was real

although to this day, I still think I was pranked into thinking I needed to apologize

"The Old Prank boomerang, eh Chief?"
Title: Re: AutoCad prank help
Post by: huiz on March 31, 2014, 02:49:26 AM
You can make a screenshot of AutoCAD and use that as desktop background. Also hide the desktop shortcuts.

Or, if the desks are close to each other, swap the keyboard or mouse cables with other computers.
Title: Re: AutoCad prank help
Post by: Greg B on March 31, 2014, 09:23:26 AM
The classic tape over the optical on the mouse is always fun.  Or even the tape over the mic on the phone is pretty good.
Title: Re: AutoCad prank help
Post by: Nibster on March 31, 2014, 10:17:17 AM
I really want to do THIS  (http://www.instructables.com/id/air-horn-office-chair-prank/)one...
Title: Re: AutoCad prank help
Post by: Bethrine on March 31, 2014, 10:22:28 AM
I once saw something that, when opened, your screen filled up with water. All you had to do was hit escape to get out of it.
Title: Re: AutoCad prank help
Post by: Jeff H on March 31, 2014, 11:41:44 AM
Had fun with this ifart (http://www.theswamp.org/index.php?topic=42469.msg477322#msg477322)
Title: Re: AutoCad prank help
Post by: Keith™ on April 01, 2014, 06:00:28 PM
The classic tape over the optical on the mouse is always fun.  Or even the tape over the mic on the phone is pretty good.

http://www.collegehumor.com/post/6702869/computer-mouse-hacked-by-anonymous
Title: Re: AutoCad prank help
Post by: BryanHerron on October 31, 2017, 05:08:55 PM
I drove a guy crazy for the better part of the day by plugging in a wireless mouse to his machine and randomly moving his mouse. He finally got one of the IT guys to come look at it, who knew pretty quickly what it was and managed to give me back my usb transmitter without the guy knowing what had happened.
Title: Re: AutoCad prank help
Post by: Matt__W on November 01, 2017, 12:23:43 PM
In my near 40 years of work I've worked in very few places where practical jokes don't escalate to very unfortunate conclusions...
Reminds me of the time I changed a co-worker's Internet Explorer home page every time he opened AutoCAD. One day he had a rep at his desk and they were talking about a particular piece of mechanical equipment. Well, one thing led to another and one of them said, "Let's look it up online." Thankfully the rep had a good sense of humor because I can only imagine how awkward it could have been to try to explain why this guy has a gay porn site bookmarked as his home page. After hearing that story, I quickly removed the code to change his home page.



But damn, was it funny.


The moral of this story is you have to carefully choose your "victim" because had it been any other person, it could very well have been a different outcome.
Title: Re: AutoCad prank help
Post by: BIGAL on November 03, 2017, 07:13:35 PM
You can put messages on the bottom of the screen using MODEMACRO

But this is a nice one send voice messages, dont forget if on a server based startup can check for an individual user id so could have different messages. (getenv "username")

Code: [Select]
(defun SpeakSapi ( s / sapi )
(if (eq (type s) 'STR)
(progn
(setq sapi (vlax-create-object "Sapi.SpVoice"))
(vlax-put sapi 'SynchronousSpeakTimeout 1)
(vlax-invoke-method sapi 'WaitUntilDone 0)
(vlax-invoke sapi "Speak" s 0)
(vlax-release-object sapi)
)))
(speaksapi "Welcome from BIG al the humour and respect you can expect here at The swamp")