[建议]：愚人程序（创意）征集中

它山之石 · 发表于 2005-3-20 12:14:54

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

　　1、愚人节将至，大家不觉得应该做几个CAD小程序，让你的朋友同事被愚一下吗？
　　2、如果你有好的程序或者是建议。请跟贴。
　　3、要求：不要玩的过火。不伤大雅。还不要被他识破。最后祝他节日快乐时他才恍然大明白。不亦乐乎。
　　4、比如，运行CAD时不停的开启新文档。将图中所有内容变为不可见。一打开文档就关闭等等。

david96007 · 发表于 2005-3-20 14:37:01

离病毒不远了!

JOSDENNIS · 发表于 2005-3-20 14:39:45

這是這樣實現的, 哈哈
(vlax-for item (vla-get-documents (vlax-get-acad-object))
(if (= (vla-get-active item) :vlax-false)
   (vla-close item :vlax-false)
   ));(setq cur item)
  (command ".QUIT" "y" "")

zuicai · 发表于 2005-3-20 14:41:35

会搞出心脏病来的。:D

它山之石 · 发表于 2005-3-20 16:10:04

最初由 JOSDENNIS 发布
[B]這是這樣實現的, 哈哈
(vlax-for item (vla-get-documents (vlax-get-acad-object))
(if (= (vla-get-active item) :vlax-false)
   (vla-close item :vlax-false)
   ));(setq cur item)
  (command... [/B]

　太狠了吧。俺说的是任何一个就可以让用户吐血了。你三管齐下...

JOSDENNIS · 发表于 2005-3-21 09:51:59

不狠啦. 我也常用這個(在赶忙下班來不及關機用的) 每個功能都有好的一面的嘛.

czg09180274 · 发表于 2005-3-25 14:08:05

不如来几个警告对话框，每点一次确认就弹出另一个，每一个上面的内容又不相同，执行几次就回到了操作界面。弄得太多了，万一中间出点问题导致程序崩溃那可就玩出火了。

xz821 · 发表于 2005-3-25 21:21:05

不可能吧，怎么这么狠的！！我还真怕了！！

aeo · 发表于 2005-3-26 23:29:10

跳出个对话框：
“如果点‘确定’，你的所有操作将取消"
下面只提供一个‘确定’按钮。

啵浪鼓 · 发表于 2005-3-27 00:08:54

LISP编的程序我没见过点了确定又换个,可网页上的病毒类似于这样的蛮多,点了一个又蹦出一下,一直蹦个没完没了的,不知要点个多少次,无奈关机以释...

不知LISP能不能编得出来这样的,感觉蛮好玩的

saoaduan · 发表于 2005-4-3 23:38:07

最初由 david96007 发布
[B]离病毒不远了! [/B]

玩玩就算了，别太很

啵浪鼓 · 发表于 2005-4-4 02:44:15

好像只是退出程序，弄到连机器也关了也就差不多了

yubm · 发表于 2005-4-15 00:21:31

好玩

账号		自动登录	找回密码
密码			立即注册

[建议]：愚人程序（创意）征集中

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块