xj6019 发表于 2022-9-5 19:25:05

相逢_瞎玩版DCL//通用DCL调用函数方便快捷的dcl函数出炉

本帖最后由 xj6019 于 2022-11-2 16:15 编辑

相逢_瞎玩版DCL,一种通用的便捷的DCL搞法，参照高手的玩法，咱也搞搞


调用主体函数暂时下架，有需要的入群领取：701625004




(defun C:NM ( )
        (setq dclcidian "cidian")
        (setq lst_str
                (append(dcl-name "★XJ_山寨版_玩一把★" )                       
                        (dcl-vh '("BV" "★相逢_瞎玩版★"))                       
                        (dcl-dan '(("单选1" "CESHIK1" "5") ("单选2" "CESHIK2" "5") ("单选3" "CESHIK3" "5") ("单选4" "CESHIK4" "5")) "H")
                        (dcl-DUO '(("多选1" "CESHIK5" "5") ("多选2" "CESHIK6" "5") ("多选3" "CESHIK7" "5") ("多选4" "CESHIK8" "5")) "H")                       
                        (DCL-list '(("列表框" "CESHIK9" "30" "10"))"H")
                        (DCL-shu '(("输入" "CESHIK10" "55" ))"")
                        (DCL-xiala '(("下拉列表" "CESHIK11" "60" "5"))"H")
                        (dcl-vh "S") ;空一行
                        (dcl-jian "1" "30" "0.2") ;带颜色间隔符 无key
                        (dcl-vh "S") ;空一行
                        (dcl-text '(("" "CESHIK12" "60" ))"V")        ;写文字
                        (dcl-text '(("2.如果不在key表里写，就写在这个位置" "CESHIK13" "60" ))"V")        ;1.如果文字在最后，可以直接从这里将位置写入lab来显示       
                        (dcl-an'(("拾取1" "ANNIU1" "3" "3")("拾取2" "ANNIU2" "3" "3")("拾取3" "ANNIU3" "3" "3")("拾取4" "ANNIU4" "3" "3"))"H")
                        (DCL-shuan'(("输入1" "SHURU1""15" "拾取1" "2")("输入2" "SHURU2""15" "拾取2" "2")) "H")       
                        (dcl-vh "e")               ;dcl-vh的结尾符合
                        (dcl-oc)        ;确认按钮                                                               
                )
        )
        (xj-dcl-kdclcidianlst_strkey2str (list gaikey huik)acttlst)       
)

lxl217114 发表于 2022-9-5 20:57:26

沙发，谢谢大佬分享。

hhh454 发表于 2022-9-6 07:16:24

dcl做法好多种了，看看楼主的方法，学习

spp_wall 发表于 2022-9-6 08:12:10

支持！！！！！！！！！！！！！！

20060510412 发表于 2022-9-6 08:45:02

大开眼界，楼主这是造福大众了，赞一个。

Yruz 发表于 2022-9-6 09:16:34

帮主给力了

不一样地设计 发表于 2022-9-6 20:56:25

l学习了，楼主太棒了

229096767 发表于 2022-9-7 18:18:53

谢谢分享      

哆啦A梦_oELxg 发表于 2022-9-10 08:09:55

谢谢分享，来学习下。

guosheyang 发表于 2022-12-29 14:36:09

有创意感谢共享！
页: [1] 2
查看完整版本: 相逢_瞎玩版DCL//通用DCL调用函数方便快捷的dcl函数出炉