论坛 › LISP/VLISP函数库 › [LISP函数-DCL]：DCL常用Lisp函数

eachy 发表于 2005-9-1 12:28:38

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

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

aeo 发表于 2005-9-1 23:18:11

;;给我不选择的自由!

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

wzg356 发表于 2014-10-19 15:53:52

后来才知道

kkt123 发表于 2015-2-3 09:35:25

:loveliness:后来才知:o

王鹏_pBZlo 发表于 2019-11-23 11:40:29

备注研究一下

xxchemkin 发表于 2021-2-8 15:51:23

{:1_1:}收藏，学习。

查看完整版本: [LISP函数-DCL]：DCL常用Lisp函数