Topic: April One

[ronjonp]

How'd you torment your users? 

Code: [Select]

(defun aprilfools (/ d)
  (setq d (rtos (fix (getvar 'cdate)) 2 0))
  (if (eq "0401" (strcat (substr d 5 2) (substr d 7 2)))
    (progn
      (defun teehee (reactor params / disp)
(setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
(cond ((eq (car params) "EXPLODE") (vlax-put disp 'modelcrosshaircolor 0))
      ((eq (car params) "COPY") (vlax-put disp 'modelcrosshaircolor 255))
      ((eq (car params) "CIRCLE") (vlax-put disp 'modelcrosshaircolor 85))
      ((eq (car params) "ERASE")
       (vlax-put disp
'displaylayouttabs
(boole 8 0 (vlax-get disp 'displaylayouttabs))
       )
      )
      ((eq (car params) "MOVE") (vlax-put disp 'cursorsize 25))
      ((eq (car params) "PLOT")
       (vlax-put disp
'displayscrollbars
(boole 8 0 (vlax-get disp 'displayscrollbars))
       )
      )
      ((eq (car params) "MLEADER")
       (vlax-put disp
'displayscreenmenu
(boole 8 0 (vlax-get disp 'displayscreenmenu))
       )
      )
)
(princ)
      )
      (if (not *aprilfoolsreactor*)
(setq *aprilfoolsreactor*
       (vlr-editor-reactor
"TeeHeeHee"
'((:vlr-commandended . teehee))
       )
)
      )
    )
;;; Cleanup
;;; (vlr-remove-all :vlr-editor-reactor)
  )
)
(aprilfools)

[alanjt]

LoL
As soon as I started reading this Coasters - Yakety Yak Lyrics popped in my head.

[KewlToyZ]

http://lifehacker.com/213646/download-of-the-day--bluescreen-screen-saver-windows
 

[alanjt]

Stupid song is still stuck in my head!!!

[ronjonp]

So not other pranksters out there? I'm setting up the bluescreen screensaver as we speak 

[alanjt]

So not other pranksters out there? I'm setting up the bluescreen screensaver as we speak 

You're much more imaginative that I am. I just put this in the acaddoc.lsp file.

Code: [Select]

(or (eq "athompson" (getvar 'loginname)))
    (alert "Press OK to format C: drive"))

[KewlToyZ]

 
Brutal and brilliant!

[dgorsman]

Provided your users actually *read* the command line.   

I *was* considering adding a speech module to the global error handler, with the computer saying "Please don't touch me like that." on every error.  But seeing that I can't even get 5 minutes without being interupted this morning... 

[M-dub]

For April Fools this year, I cut the wife's brake line.

(points and laughs) "Ha Ha, April Fools!  How's that neck brace treatin' ya?!"



I'm kidding, of course.

[KewlToyZ]

http://aprilfoolzone.com/office.htm

[Lee Mac]

Nice one Ron   

FYI

Code: [Select]

(boole 8 0 x)  =  (~ x) 

[Greg B]

For April Fools this year, I cut the wife's brake line.

(points and laughs) "Ha Ha, April Fools!  How's that neck brace treatin' ya?!"



I'm kidding, of course.

Of course.

[ronjonp]

Nice one Ron   

FYI

Code: [Select]

(boole 8 0 x)  =  (~ x) 

 

[GDF]

;;;R.K. McSwain 98
(defun c:aprilfool  ()
  (setvar "cmdecho" 0)
  (command ".delay" 4000)
  (setvar "expert" 5)
  (command ".layer" "_off" "*" "")
  (setvar "expert" 0)
  (alert (strcat
           "              FATAL ERROR" "             \n"
           "             \n Heap error in module FF00:1235"
           "             \n CIS debug FF12:4510  FF12:1895"
           "             \n FF18:1346 in acad.exe."))
  (alert (strcat " Audit will now execute...."))
  (prompt "\rcommand: audit")
  (prompt "\nFix any errors detected? <N> y")
  (command ".delay" 100)
  (prompt "\n 112 Blocks audited")
  (command ".delay" 1500)
  (prompt "\nPass 1 1320     objects audited")
  (command ".delay" 1500)
  (prompt "\nPass 2 1320     objects audited")
  (command ".delay" 1500)
  (prompt "\nPass 3 9617     objects audited")
  (command ".delay" 150)
  (prompt "\nTotal errors found 1842 fixed 0")
  (princ))

[GDF]

(defun ANNOY  ()
  (command ".limits" "-0.1,-0.1" "0,0" "" "on")
  (command ".undefine" "limits" "undefine" "redefine")
  (progn (setq num 10000)
         (while (> num 50) (dos_speaker num 1) (setq num (- num 250))))
  (progn (setq X 1000)
         (setq Y 500)
         (repeat 10 (dos_speaker Y 250) (dos_speaker X 200)))
  (progn (setq X 50)
         (setq Y 200)
         (repeat 10 (dos_speaker Y 250) (dos_speaker X 200)))
  (progn (setq num 50)
         (while (< num 10000) (dos_speaker num 1) (setq num (+ num 250))))
  (princ))