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

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

本帖最后由 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-k  dclcidian  lst_str  key2str (list gaikey huik)  acttlst)
)

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

沙发，谢谢大佬分享。

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

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

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

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

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

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

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

帮主给力了

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

l学习了，楼主太棒了

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

谢谢分享

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

谢谢分享，来学习下。

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

有创意感谢共享！

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

评分