路宁宁 发表于 2018-10-29 08:53
你 就是无邪 大神吗 ，你是来刷屏 的吗;P
路宁宁 发表于 2018-10-29 08:53
那怎么放到面板中呢，像贱人工具箱那样？？？？
本帖最后由 yaokui25 于 2018-10-29 11:19 编辑
我简单的总结一下
首先定义(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 于 2018-10-29 19:52 编辑
yaokui25 发表于 2018-10-29 11:18
我简单的总结一下
首先定义(set_tile "time" (strcat (menucmd "M=$(edtime,$(getvar,date),YY/MO/DD HH ...
;;;=================================================================*
;;;;;宗地修改器
;批量修改宗地属性 关于数字字符位数匹配（不足+0） **buy_change
...........
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 ...
在那里啊，哪里不对？
纵横八方 发表于 2018-10-29 13:04
在那里啊，哪里不对？
你只需要把 (set_tile "time" (strcat (menucmd "M=$(edtime,$(getvar,date),YY/MO/DD HH:MM DDDD)")))
放在面板函数内就可以了.