yanshengjiang 发表于 2018-11-2 08:56
没啥意义的
(setq riqi(menucmd "M=$(edtime,$(getvar,date),YYYY.MO.DD HH:MM DDDD )"))放到new_dialog下面，然后
"SHUIDAOPAN:dialog{label=\"【面板】\";key=\"riqi\";"38楼 不是讲的很清楚吗
yaokui25 发表于 2018-10-29 11:18
我简单的总结一下
首先定义(set_tile "time" (strcat (menucmd "M=$(edtime,$(getvar,date),YY/MO/DD HH ...
其他位置成功！面板标题处还未成功！感谢！！
xshrimp 发表于 2018-10-28 12:46
命令: (menucmd "M=$(edtime,$(getvar,date),YYYY.MO.DD HH:MM DDDD )")
"2018.10.28 12:46 星期日 "
虾米 大神 ，能不能 把你的 栏杆等分 那个插件修复一下
依然低调 发表于 2018-11-2 10:08
其他位置成功！面板标题处还未成功！感谢！！
其他位置不就是txt哇，key=riqi,贴码，看一下你怎么写的
本帖最后由 依然低调 于 2018-11-2 16:39 编辑
纵横八方 发表于 2018-11-2 15:53其他位置不就是txt哇，key=riqi,贴码，看一下你怎么写的
依然低调 发表于 2018-11-2 16:35
估计是你dcl没有转成lsp的原因
yaokui25 发表于 2018-10-29 14:54
见14# 如果放到名头则... ...
DEAR SIR
ITS NOT WORKING
(prompt "\nType T1 to run...")
(defun C:T1 ()
(write-line " key=\"time\";label=\"\";//text content" fn)
(setq dcl_id (load_dialog "t1.dcl"))
(set_tile "time" (strcat (menucmd "M=$(edtime,$(getvar,date),YY/MO/DD HH:MM DDDD)")))
(if (not (new_dialog "test" dcl_id))
(exit )
);if
(action_tile "accept"
"(done_dialog)"
);action_tile
(start_dialog)
(unload_dialog dcl_id)
(princ)
);defun
(princ)
test:dialog
{key=\"time\";label=\"\";"
{
label = "TIME AND DATE";
: text
{
label = "HI";
alignment = centered;
}
: button
{
key = "accept";
label = "Close";
is_default = true;
fixed_width = true;
alignment = centered;
}
}
sachindkini 发表于 2018-11-3 15:46
DEAR SIR
ITS NOT WORKING
(action_tile "accept"
"(done_dialog)"
);action_tile
(set_tile "time" (strcat (menucmd "M=$(edtime,$(getvar,date),YY/MO/DD HH:MM DDDD)")))
Show Time example
(defun c:t1 (/ dcl fn f time)
(if (and (setq time (menucmd "M=$(edtime,0,YYYY/MO/DD HH:MM DDDD)")
fn (strcat (getvar 'tempprefix) "tmp.dcl")
)
(setq f (open fn "w"))
(write-line
(strcat "test:dialog{label=\"面板时间 : " time
"\" ;" " :boxed_column { label = \""
time "\" ;"
" :column { :row { :button { key = \"t1\" ;label = \""
time "\" ;width = 5 ; }}}}"
"ok_cancel; " " :text { label = \""
time "\"; alignment = centered; }}"
)
f
)
)
(progn (close f)
(setq dcl (load_dialog fn))
(new_dialog "test" dcl)
(action_tile "t1" "(alert time)")
(action_tile "accept" "(done_dialog)")
(start_dialog)
(unload_dialog dcl)
)
)
(princ)
)
lisperado 发表于 2018-11-3 18:40
Show Time example
dear sir ,
thanks its working