怎么在面板标题头上 加入 <日期+星期+当前时间>

纵横八方

路宁宁 发表于 2018-10-29 08:53

你 就是无邪 大神吗 ，你是来刷屏 的吗

wbltools

路宁宁 发表于 2018-10-29 08:53

那怎么放到面板中呢，像贱人工具箱那样？？？？

yaokui25

我简单的总结一下
首先定义  (set_tile "time" (strcat (menucmd "M=$(edtime,$(getvar,date),YY/MO/DD HH:MM DDDD)")))
如果放到名头则    ????? : dialog{label = "DCL面板";key="time";  ... ... ... ...
如果放到其他位置 :text{key="time";label="";}
大概是这样子滴

纵横八方

yaokui25 发表于 2018-10-29 11:18
我简单的总结一下
首先定义  (set_tile "time" (strcat (menucmd "M=$(edtime,$(getvar,date),YY/MO/DD HH ...

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
(set_tile "time" (strcat (menucmd "M=$(edtime,$(getvar,date),YY/MO/DD HH:MM DDDD)")))
    (defun SHUIDAOPAN_make_dcl (/ lst_str str file f)(setq lst_str '(
          "SHUIDAOPAN:dialog{key=\"time\";label=\"\";"
          ":row{"
          ":button{key=\"ML001\";label=\"快速对齐\";width=14;height=1.8;vertical_margin=none;horizontal_margin=none;}"
          ":button{key=\"ML002\";label=\"横竖排列\";width=14;height=1.8;vertical_margin=none;horizontal_margin=none;}"
          ":button{key=\"ML003\";label=\"快速填充\";width=14;height=1.8;vertical_margin=none;horizontal_margin=none;}"
          "}"

还是空白的

烟盒迷唇

真是大师啊，贴代码那不是一般的长

wbltools

yaokui25 发表于 2018-10-29 11:18
我简单的总结一下
首先定义  (set_tile "time" (strcat (menucmd "M=$(edtime,$(getvar,date),YY/MO/DD HH ...

;;;=================================================================*
;;;;;宗地修改器
;批量修改宗地属性 关于数字字符位数匹配（不足+0） **buy_change
...........

wbltools

yaokui25 发表于 2018-10-29 11:18
我简单的总结一下
首先定义  (set_tile "time" (strcat (menucmd "M=$(edtime,$(getvar,date),YY/MO/DD HH ...

前辈，求教这个代码怎么在面板中加入系统时间呢

纵横八方

看来 好多人不知道 怎么弄的哈，望哪位大神给详细的解答

纵横八方

纵横八方 发表于 2018-10-29 11:22
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
(set ...

在那里啊，哪里不对？

yaokui25

纵横八方 发表于 2018-10-29 13:04
在那里啊，哪里不对？

你只需要把 (set_tile "time" (strcat (menucmd "M=$(edtime,$(getvar,date),YY/MO/DD HH:MM DDDD)")))
放在面板函数内就可以了.