AutoCad恶作剧帮助

Eclipse · 发表于 2014-3-30 04:24:10

所以愚人节即将到来。
寻找一些好的恶作剧来玩同事（在备份的绘图文件上）。我正在考虑一些类似于lisp映射到通用命令的东西，其中lisp选择绘图中的所有内容并执行以下操作：
- 将其分解几次（以获得嵌套块，图案填充等）
- 使所有内容都成为一种颜色
- 使线型缩放随机
- 打开/关闭所有图层
- 保存两次
- 或者任何人都可以想到的任何其他事情。
有没有人知道任何这样做的lisp，或者想尝试写一个？

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Keith · 发表于 2014-3-30 10:19:06

我建议不要做任何改变绘图的事情。这种恶作剧会让一个人在我工作的地方被解雇。
我过去所做的是使用一个lisp来改变模式macro并在屏幕上打印REDRUM。
在此处获取更多想法

Keith · 发表于 2014-3-30 11:02:56

在我近40年的工作中，我工作过的地方很少，恶作剧不会升级到非常不幸的结论，因此尽管写点“有趣”的东西很有诱惑力(我过去写过一些滑稽的东西，有些是应主管的要求写的，信不信由你)，但我对这条线索的贡献是“不要这么做”。
如果您无法抗拒诱惑，请确保您所做的任何事情都不会直接或间接地导致工作或生产力的损失，以免您自己意识到一个不幸的结论。

Locke · 发表于 2014-3-30 11:18:54

我曾经重新定义了“line”命令，以提醒用户他们不合时宜。

mjfarrell · 发表于 2014-3-30 11:59:53

这个是相当无害的:

copy

;; 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)

huiz · 发表于 2014-3-30 12:04:43

这样的黄金。

Nibster · 发表于 2014-3-30 12:25:49

也许让你的lisp文件插入或在整个图纸上附加一个巨大的黑色jpg，这样图纸看起来是空的
但是我警告说，我曾经用会计部门的模仿备忘录恶作剧了整个办公室...
他们生气了我不得不道歉
所有这些都是因为一些傻瓜没有得到讽刺，认为备忘录是真实的
尽管直到今天，我仍然认为我被恶作剧认为我需要道歉
“老恶作剧回旋镖，嗯，头儿？”