[LISP程序]：如何闪烁一个线段

daziran · 发表于 2002-11-8 18:57:33

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

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

×

一条线，当用鼠标点一下，开始变换颜色闪烁，再点一下，恢复原来颜色（必须是原颜色）。
怎么实现？

XDSoft · 发表于 2002-11-8 19:00:19

LISP是实现不了闪烁的，你用“闪烁”做关键字搜索“ARX”论坛，讨论过。

另：为什么要“闪”？变虚亮显不能满足需要吗？

daziran · 发表于 2002-11-8 21:17:39

用于工程招标演示：指点新建铁路线，该线变色醒目显示。
我就会lisp :4

aeo · 发表于 2002-11-9 00:25:19

演示还用cad?
把铁路线改成黄色-----等一秒----再改红色----等一秒-----改黄色-------
等待xd-api不知有没有,没办法的话,给一个大运算量的叫机器算,根据机器不同调整.
xdrx_sleep 可以

XDSoft · 发表于 2002-11-9 00:31:10

最初由 aeo 发布
[B]演示还用cad?
把铁路线改成黄色-----等一秒----再改红色----等一秒-----改黄色-------
等待xd-api不知有没有,没办法的话,给一个大运算量的叫机器算,根据机器不同调整.
(setq q 2)(repeat 1000000 (setq q(+ 2 q))... [/B]

你的意思是让他点完后，然后就抽根烟，看着闪？

aeo · 发表于 2002-11-9 00:45:56

这肯定可以的
以前的cad的示范就是这么干的,做一命令,停一会,再下一命令
他的等待是求系统时间的差来的.

daziran · 发表于 2002-11-9 02:46:42

可以用循环控制闪烁（比如用(command "chprop" ssent "" "c" 1 "") (repeat 20222) 。。。。。
然后怎么脱出来？如何响应鼠标？不会用Ctrl +C 吧：）

Qlin · 发表于 2002-11-10 11:20:55

延迟等待可以使用DOSLib 的dos_pause 函数

ll_j · 发表于 2002-11-10 12:15:37

最初由 daziran 发布
用于工程招标演示：指点新建铁路线，该线变色醒目显示。
我就会lisp :4

一般说来，招标演示常用MS PowerPoint制作，我不会，但周围会制作的同事也没有刻意学，可见入门应该是比较简单的，建议你不妨试试。

daziran · 发表于 2002-11-10 21:29:59

还是没解决问题

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

[LISP程序]：如何闪烁一个线段

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

相关帖子

用于演示，我就会lisp

Re: 用于演示，我就会lisp