[LISP函数-DCL]：DCL常用Lisp函数

eachy

2. 
   
3. ;;填充列表
   
4. ;; key  ==  key  val == List  item - 默认值
   
5. (defun $XDDCL_AddList (key val item)
   
6.   (start_list key)
   
7.   (foreach n val
   
8.     (add_list n)
   
9.   )
   
10.   (end_list)
    
11.   (set_tile key (itoa item))
    
12. )
    
13. ;;绘制Image
    
14. ;; key  --- key sldname --- slide  color -- backgroud
    
15. (defun $XDDCL_SlideImage (key sldname color / x y)
    
16.   (setq        x (dimx_tile key)
    
17.         y (dimy_tile key)
    
18.   )
    
19.   (start_image key)
    
20.   (fill_image 0 0 x y color)
    
21.   (slide_image 0 0 x y sldname)
    
22.   (end_image)
    
23. )
    
24. ;;填充颜色
    
25. (defun $XDDCL_ImageFillColor (key color)
    
26.   (setq        x (dimx_tile key)
    
27.         y (dimy_tile key)
    
28.   )
    
29.   (start_image key)
    
30.   (fill_image 0 0 x y color)
    
31.   (slide_image 0 0 x y key)
    
32.   (end_image)
    
33.   (mode_tile key 1)
    
34. )
    
35. (defun $XDDCL_ImageCrlDisable (key)
    
36.   (mapcar
    
37.     '(lambda (x)
    
38.        ($XDDCL_ImageFillColor x 253)
    
39.      )
    
40.     key
    
41.   )
    
42. )
    
43. ;;启用按钮
    
44. (defun $XDDCL_CtrlEnable (clist)
    
45.   (mapcar
    
46.     '(lambda (x)
    
47.        (mode_tile x 0)
    
48.      )
    
49.     clist
    
50.   )
    
51. )
    
52. ;;禁用按钮
    
53. (defun $XDDCL_CtrlDisable (clist)
    
54.   (mapcar
    
55.     '(lambda (x)
    
56.        (mode_tile x 1)
    
57.      )
    
58.     clist
    
59.   )
    
60. )

<br /> ;;填充列表<br /> ;; key  ==  key  val == List  item - 默认值<br /> (defun $XDDCL_AddList (key val item)<br />   (start_list key)<br />   (foreach n val<br />     (add_list n)<br />   )<br />   (end_list)<br />   (set_tile key (itoa item))<br /> )<br /> ;;绘制Image<br /> ;; key  --- key sldname --- slide  color -- backgroud<br /> (defun $XDDCL_SlideImage (key sldname color / x y)<br />   (setq        x (dimx_tile key)<br />         y (dimy_tile key)<br />   )<br />   (start_image key)<br />   (fill_image 0 0 x y color)<br />   (slide_image 0 0 x y sldname)<br />   (end_image)<br /> )<br /> ;;填充颜色<br /> (defun $XDDCL_ImageFillColor (key color)<br />   (setq        x (dimx_tile key)<br />         y (dimy_tile key)<br />   )<br />   (start_image key)<br />   (fill_image 0 0 x y color)<br />   (slide_image 0 0 x y key)<br />   (end_image)<br />   (mode_tile key 1)<br /> )<br /> (defun $XDDCL_ImageCrlDisable (key)<br />   (mapcar<br />     '(lambda (x)<br />        ($XDDCL_ImageFillColor x 253)<br />      )<br />     key<br />   )<br /> )<br /> ;;启用按钮<br /> (defun $XDDCL_CtrlEnable (clist)<br />   (mapcar<br />     '(lambda (x)<br />        (mode_tile x 0)<br />      )<br />     clist<br />   )<br /> )<br /> ;;禁用按钮<br /> (defun $XDDCL_CtrlDisable (clist)<br />   (mapcar<br />     '(lambda (x)<br />        (mode_tile x 1)<br />      )<br />     clist<br />   )<br /> )

aeo

;;给我不选择的自由!

2. 
   
3. (defun $XDDCL_AddList (key val item)
   
4.   (start_list key)
   
5.   (foreach n val
   
6.     (add_list n)
   
7.   )
   
8.   (end_list)
   
9. (if item (set_tile key (itoa item)))
   
10. )
    

<br /> (defun $XDDCL_AddList (key val item)<br />   (start_list key)<br />   (foreach n val<br />     (add_list n)<br />   )<br />   (end_list)<br /> (if item (set_tile key (itoa item)))<br /> )<br />

wzg356

后来才知道

kkt123

:loveliness:后来才知:o

王鹏_pBZlo

备注研究一下
来自: 微社区

xxchemkin

收藏，学习。