[不死猫出品]动态小标签带切换的咔嚓声音（源码）

xyp1964

;; 向猫老师学习
;; 优化代码

2. (defun c:tt ()
   
3.   (command "opendcl")
   
4.   (dcl_project_load "dynamic.odcl" t)
   
5.   (dcl_form_show dynamic_form1)
   
6.   (Setq wmp (vlax-Create-Object "WMPlayer.OCX"))
   
7.   (Vlax-Put-Property wmp 'URL (findfile "Change.wav"))
   
8.   (move 1 95 65)
   
9. )
   
10. (defun c:dynamic_Form1_TextButton1_OnClicked (/)
    
11.   (move 1 95 65)
    
12.   (Vlax-Put-Property wmp 'URL "Change.wav")
    
13. )
    
14. (defun c:dynamic_Form1_TextButton2_OnClicked (/)
    
15.   (move 2 255 65)
    
16.   (Vlax-Put-Property wmp 'URL "Change.wav")
    
17. )
    
18. (defun c:dynamic_Form1_TextButton3_OnClicked (/)
    
19.   (move 3 255 225)
    
20.   (Vlax-Put-Property wmp 'URL "Change.wav")
    
21. )
    
22. (defun move (index n1 n2 / str i d2 d3)
    
23.   (setq        str "dynamic_Form1_GraphicButton"
    
24.         d2  dynamic_Form1_TextButton2
    
25.         d3  dynamic_Form1_TextButton3
    
26.         lst (cond ((= index 1) '(0 255 255 215 215 175 175 135 135))
    
27.                   ((= index 2) '(0 225 225 185 185 145 145 105 105))
    
28.                   ((= index 3) '(0 195 195 155 155 115 115 75 75))
    
29.             )
    
30.         i   1
    
31.   )
    
32.   (dcl_Control_SetTopFromBottom d2 n1)
    
33.   (dcl_Control_SetTopFromBottom d3 n2)
    
34.   (repeat 8
    
35.     (dcl_Control_SetTopFromBottom
    
36.       (eval (read (strcat str (itoa i))))
    
37.       (nth i lst)
    
38.     )
    
39.     (dcl_Control_SetPicture
    
40.       (eval (read (strcat str (itoa i))))
    
41.       (+ 100 i (* (- index 1) 8))
    
42.     )
    
43.     (setq i (1+ i))
    
44.   )
    
45. )

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

mitenickevin

有创意啊。顶起来

梦回唐朝

真是太酷啦

yaokui25

品茗新秀 发表于 2013-7-5 12:05
这个对我作用太大了,一直想找个这样的程序,一直未找到,今天终于有了,

不好意思发错了

yaokui25

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

丁X的

这个程序有点意思

timmy521

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

信刚哥得永生999

就是厉害啊

海盗曹

研究研究猫老师的例子

柯达时刻

猫老师就是牛！