tm20038175 发表于 2012-4-18 20:05:04

动态云线程序？

不知道能不能实现这样的功能：
1，按下鼠标左键，开始画云线
2，松开鼠标，云线消失
3，空格或回车，结束
这个程序主要在演示时候会用到。。。。。

tm20038175 发表于 2012-4-18 22:13:47

Gu_xl 发表于 2012-4-18 21:26
没有做不到，只有想不到！
**** 本内容被作者隐藏 ****

太好了，有了这个程序，就可以在菜鸟面前显摆显摆啦，哈哈………

Gu_xl 发表于 2012-4-18 21:26:35

本帖最后由 Gu_xl 于 2012-7-3 18:34 编辑

没有做不到，只有想不到！


(defun c:yx (/ loop gr en)
(command "_revcloud")
(while (= 1 (getvar "cmdactive"))
    (command pause)
    )
(setq en (entlast))
(princ "\n空格、回车、右键结束")
(while (not loop)
    (setq gr (grread t 1))
    (if (or (= 25 (car gr))
            (and (= 2 (car gr)) (= 13 (cadr gr)))
            (and (= 2 (car gr)) (= 32 (cadr gr)))
            )
      (setq loop t)
      )
    )
(entdel en)
(princ)
)

taoyi0727 发表于 2018-5-31 08:54:39

好东西G版的要来看下

yjr111 发表于 2012-4-18 21:48:15

板凳视察

lz123456 发表于 2012-4-18 22:42:24

G大威武，必看

zhouwanweihf 发表于 2012-4-18 22:49:16

看看你的程序

langjs 发表于 2012-4-19 00:12:42

G版雄起，看看程序

dusnknbnd 发表于 2012-4-19 00:52:48

楼主，是你让我深深地理解了‘人外有人，天外有天’这句话。谢谢侬！

zhd81617 发表于 2012-4-19 06:01:30

学习

Atsai 发表于 2012-4-19 08:32:23

「没有做不到，只有想不到！」
真是赞！
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 动态云线程序？