（提醒“这会很有趣”）
您好，我了解如何在lisp例程中使用警报。这基本上是一条autocad消息，弹出后，您可以选择在阅读后点击“OK”。（提醒“此处显示您的消息”）
我想做的是一个小小的恶作剧。
我们公司共享存储在服务器上的块。我做了80%。我想知道是否有办法做到这一点，这样当有人插入我的一个区块时，就会弹出警报。我能想到一百万件事要说。
“你使用这个区块是因为你创建的区块很糟糕，-Tim”
那将是一个很好的选择。我不知道这是否可能，如果可能的话，帮帮我！
首先，我会拼写检查你的评论，以保护自己免受任何相互嘲弄（your是所有格代词，表示所有权……你想要缩略词“You are”或“You are”）。我还建议大家不要在这样的恶作剧中进行任何人身攻击，让语言与你发送给上司的语言保持一致。因此，您可能需要以下内容：
通过单击“确定”，用户确认用户创建的任何块都低于Tim创建的那些块。
至于你将如何显示这样的信息，我不太确定。不幸的是，我更多的是一个有想法的人，而不是一个程序员。尽管我认为您需要在用户的安装中修改或替换insert命令本身。
嗯，在这里，有一群人可以欣赏一个好笑话，没有人在他们的“哇”里有任何东西。所以我很确定我会没事的。我还想花点时间感谢你的英语课，让我知道你提到的这个神奇的拼写检查工具。我不知道在哪里可以找到它，所以现在你可以阅读这一点，并重新张贴在一个更合适的方式。你似乎很有天赋，能够理解我的胡言乱语，所以希望在你纠正它之后，其他人也能阅读它。
-蒂姆 真正酷的是有几个不同的警报并随机显示。。。我总是想做一些像“每日提示”之类的事情，而不一样的事情总是会出现。有人知道如何在LISP中做到这一点吗？上次我知道如何随机化是使用Turbo-Pascal 也许是这样？你将成为公司圈子里的知名人士和威奇先生！
(defun c:addhint(/ cObj hyLnk)
(vl-load-com)
(if(setq cObj(entsel "\nPick entity > "))
(progn
(setq hyLnk(vla-get-Hyperlinks
(vlax-ename->vla-object(car cObj))))
(vla-Add hyLnk(vl-list->string '(72 105 44 32 73 32 65 109
32 84 105 109 46 32 71 105 118 101 32 109 101 32 53 36 32 116
111 32 114 101 109 111 118 101 32 116 104 105 115 33)))
(alert "\nPlace mouse over the entity to read.")
); end progn
); end if
(princ)
); end c:addhint 嘿，这里有一些非常有趣的恶作剧，我会再发一些链接，但仍然不知道你在做什么
http://forums.augi.com/showthread.php?t=88352 我知道我的帖子听起来有点傲慢（有人指责我在即时通讯和短信中使用了正确的拼写、标点和语法，我是个连环杀手，但我并不后悔）。然而，我会参与任何好的AutoCAD恶作剧，只是不想看到它以纪律处分结束。如果你确信它会很受欢迎，那就试试吧。 如果情况严重。使用命令超链接删除上述代码的提示。 我描述了我几年前做的一个类似的恶作剧。。。但是你必须把程序放在受害者的电脑上！
请参见此处：http://www.cadtutor.net/forum/showthread.php?t=4425
搜索帖子#58。抱歉拼错了。
您也可以阅读以下内容：http://www.cadtutor.net/forum/showthread.php?t=903&& 这是有史以来最伟大的事情！我正在玩一个简单的游戏，它显示一个警报，然后关闭刚刚打开的图形。我是CAD部门的经理，所有作业都存储在网络驱动器上。我开始和我的人捣乱，改变错误信息，等等，表现得很无辜。一个家伙几次试图打开一张图，然后叫我过来给我看错误消息，但在我离开办公桌之前，我重新保存了lisp，没有他的用户名，所以当我走过时它打开得很好。。。。这可能很糟糕。
页:
[1]
2