AutoCad恶作剧帮助
所以愚人节即将到来。寻找一些好的恶作剧来玩同事（在备份的绘图文件上）。我正在考虑一些类似于lisp映射到通用命令的东西，其中lisp选择绘图中的所有内容并执行以下操作：
- 将其分解几次（以获得嵌套块，图案填充等）
- 使所有内容都成为一种颜色
- 使线型缩放随机
- 打开/关闭所有图层
- 保存两次
- 或者任何人都可以想到的任何其他事情。
有没有人知道任何这样做的lisp，或者想尝试写一个？
**** Hidden Message ***** 我建议不要做任何改变绘图的事情。这种恶作剧会让一个人在我工作的地方被解雇。
我过去所做的是使用一个lisp来改变模式macro并在屏幕上打印REDRUM。
在此处获取更多想法 在我近40年的工作中，我工作过的地方很少，恶作剧不会升级到非常不幸的结论，因此尽管写点“有趣”的东西很有诱惑力(我过去写过一些滑稽的东西，有些是应主管的要求写的，信不信由你)，但我对这条线索的贡献是“不要这么做”。
如果您无法抗拒诱惑，请确保您所做的任何事情都不会直接或间接地导致工作或生产力的损失，以免您自己意识到一个不幸的结论。 我曾经重新定义了“line”命令，以提醒用户他们不合时宜。 这个是相当无害的:
;; 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)
这样的黄金。 也许让你的lisp文件插入或在整个图纸上附加一个巨大的黑色jpg，这样图纸看起来是空的
但是我警告说，我曾经用会计部门的模仿备忘录恶作剧了整个办公室...
他们生气了我不得不道歉
所有这些都是因为一些傻瓜没有得到讽刺，认为备忘录是真实的
尽管直到今天，我仍然认为我被恶作剧认为我需要道歉
“老恶作剧回旋镖，嗯，头儿？” 可以做一个AutoCAD的截图，用作桌面背景。也隐藏桌面快捷方式。
或者，如果桌子离得很近，将键盘或鼠标电缆与其他计算机交换。 鼠标上光学上的经典磁带总是很有趣。甚至手机上麦克风上的磁带也很不错。 我真的很想做这个...
页:
[1]
2