Author Topic: AutoCad prank help  (Read 1766 times)

0 Members and 1 Guest are viewing this topic.

Eclipse

  • Newt
  • Posts: 33
AutoCad prank help
« 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:
« Last Edit: March 30, 2014, 04:28:12 am by Eclipse »

Keith™

  • Villiage Idiot
  • Seagull
  • Posts: 16618
  • Superior Stupidity at its best
Re: AutoCad prank help
« Reply #1 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
Proud provider of opinion and arrogance since November 22, 2003 at 09:35:31 am
CadJockey Militia Field Marshal

MP

  • Seagull
  • Posts: 17000
  • brevity != aggression
Re: AutoCad prank help
« Reply #2 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.
\|// Set goal. Experiment tirelessly until
|oo| practice has become expertise.  Loop.
|- | LinkedIn | Dropbox | About

Keith™

  • Villiage Idiot
  • Seagull
  • Posts: 16618
  • Superior Stupidity at its best
Re: AutoCad prank help
« Reply #3 on: March 30, 2014, 11:18:54 am »
I once redefined the "line" command to alert the user that they were out of line.
Proud provider of opinion and arrogance since November 22, 2003 at 09:35:31 am
CadJockey Militia Field Marshal

Lee Mac

  • Seagull
  • Posts: 11834
  • AutoCAD 2015 Windows 7 London, England
Re: AutoCad prank help
« Reply #4 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)

Locke

  • Newt
  • Posts: 94
  • Sharing knowledge is powerful.
Re: AutoCad prank help
« Reply #5 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.
Check out: SharpPlant! PiaNO!

mjfarrell

  • Seagull
  • Posts: 14101
  • Every Student their own Lesson
Re: AutoCad prank help
« Reply #6 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?"
Be your Best


Michael Farrell
http://primeservicesglobal.com/

huiz

  • Swamp Rat
  • Posts: 782
  • Certified Prof C3D
Re: AutoCad prank help
« Reply #7 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.
The conclusion is justified that the initialization of the development of critical subsystem optimizes the probability of success to the development of the technical behavior over a given period.

Greg B

  • Seagull
  • Posts: 12188
  • Tell me a Joke!
Re: AutoCad prank help
« Reply #8 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.

Nibster

  • Water Moccasin
  • Posts: 1825
  • Autocabbid
Re: AutoCad prank help
« Reply #9 on: March 31, 2014, 10:17:17 am »
I really want to do THIS one...
A2016 w/ 3D navigator

"Nobody ever knows who I am." ~anonymous

Bethrine

  • Water Moccasin
  • Posts: 2271
  • "Life is the greatest adventure.", Peter Pan
Re: AutoCad prank help
« Reply #10 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.
AutoCAD 2014, Inventor 2014, TurboNest 2012
I only get one life. I'm going to have fun living it. Find joy in everything.

Jeff H

  • Needs a day job
  • Posts: 5854
Re: AutoCad prank help
« Reply #11 on: March 31, 2014, 11:41:44 am »
Had fun with this ifart

Keith™

  • Villiage Idiot
  • Seagull
  • Posts: 16618
  • Superior Stupidity at its best
Re: AutoCad prank help
« Reply #12 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
Proud provider of opinion and arrogance since November 22, 2003 at 09:35:31 am
CadJockey Militia Field Marshal

BryanHerron

  • Mosquito
  • Posts: 1
Re: AutoCad prank help
« Reply #13 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.

Matt__W

  • Seagull
  • Posts: 12942
  • I like my water diluted.
Re: AutoCad prank help
« Reply #14 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.
Autodesk Expert Elite
Autodesk Revit Architecture, Structure, MEP Mechanical and MEP Electrical Certified Professional
Building Performance Analysis Certified (BPAC v3.0)
Autodesk Navisworks 2014 Essentials