社区 › OpenDCL与LISP扩展库 › [不死猫出品]动态小标签带切换的咔嚓声音（源码）

xyp1964 发表于 2013-7-6 09:11:50

;; 向猫老师学习
;; 优化代码(defun c:tt ()
(command "opendcl")
(dcl_project_load "dynamic.odcl" t)
(dcl_form_show dynamic_form1)
(Setq wmp (vlax-Create-Object "WMPlayer.OCX"))
(Vlax-Put-Property wmp 'URL (findfile "Change.wav"))
(move 1 95 65)
)
(defun c:dynamic_Form1_TextButton1_OnClicked (/)
(move 1 95 65)
(Vlax-Put-Property wmp 'URL "Change.wav")
)
(defun c:dynamic_Form1_TextButton2_OnClicked (/)
(move 2 255 65)
(Vlax-Put-Property wmp 'URL "Change.wav")
)
(defun c:dynamic_Form1_TextButton3_OnClicked (/)
(move 3 255 225)
(Vlax-Put-Property wmp 'URL "Change.wav")
)
(defun move (index n1 n2 / str i d2 d3)
(setq      str "dynamic_Form1_GraphicButton"
      d2dynamic_Form1_TextButton2
      d3dynamic_Form1_TextButton3
      lst (cond ((= index 1) '(0 255 255 215 215 175 175 135 135))
                  ((= index 2) '(0 225 225 185 185 145 145 105 105))
                  ((= index 3) '(0 195 195 155 155 115 115 75 75))
            )
      i   1
)
(dcl_Control_SetTopFromBottom d2 n1)
(dcl_Control_SetTopFromBottom d3 n2)
(repeat 8
    (dcl_Control_SetTopFromBottom
      (eval (read (strcat str (itoa i))))
      (nth i lst)
    )
    (dcl_Control_SetPicture
      (eval (read (strcat str (itoa i))))
      (+ 100 i (* (- index 1) 8))
    )
    (setq i (1+ i))
)
)

mitenickevin 发表于 2013-7-6 09:53:56

有创意啊。顶起来

梦回唐朝 发表于 2013-7-6 17:39:13

真是太酷啦

yaokui25 发表于 2014-5-1 12:22:52

品茗新秀 发表于 2013-7-5 12:05 static/image/common/back.gif
这个对我作用太大了,一直想找个这样的程序,一直未找到,今天终于有了,
不好意思发错了

yaokui25 发表于 2014-5-1 12:24:24

猫老师您好
我在您的 [不死猫出品]动态小标签带切换的咔嚓声音（源码）帖子里
发现一个很有意思的图标 就是手拉手的那个
我想问您一下，您开发　Jupiter 这个软件？
因为我工作中一直都在用

丁X的 发表于 2014-6-13 15:38:47

这个程序有点意思

timmy521 发表于 2015-1-26 18:59:34

猫老师的东西，就是好啊。

信刚哥得永生999 发表于 2015-11-5 21:42:05

就是厉害啊

海盗曹 发表于 2015-11-10 09:15:09

研究研究猫老师的例子

柯达时刻 发表于 2015-11-11 01:20:39

猫老师就是牛！

查看完整版本: [不死猫出品]动态小标签带切换的咔嚓声音（源码）