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

yanshengjiang

wbltools 发表于 2018-10-28 22:01
(setq riqi(menucmd "M=$(edtime,$(getvar,date),YYYY.MO.DD HH:MM DDDD )"))
请问怎么把变量riqi放到面 ...

没啥意义的

纵横八方

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 15:53其他位置不就是txt哇，key=riqi,贴码，看一下你怎么写的

纵横八方

依然低调 发表于 2018-11-2 16:35

估计是你dcl没有转成lsp的原因

sachindkini

yaokui25 发表于 2018-10-29 14:54
见14#   如果放到名头则... ...

DEAR SIR
ITS NOT WORKING

1. (prompt "\nType T1 to run...")
   
2. 
   
3. (defun C:T1 ()
   
4. 
   
5. 
   
6. (write-line " key=\"time\";label=\"\";//text content" fn)
   
7. 
   
8. (setq dcl_id (load_dialog "t1.dcl"))
   
9. (set_tile "time" (strcat (menucmd "M=$(edtime,$(getvar,date),YY/MO/DD HH:MM DDDD)")))
   
10.      (if (not (new_dialog "test" dcl_id))
    
11.          (exit )
    
12.      );if
    
13. 
    
14. (action_tile "accept"
    
15.     "(done_dialog)"
    
16. );action_tile
    
17. 
    
18. (start_dialog)
    
19. (unload_dialog dcl_id)
    
20. 
    
21. (princ)
    
22. 
    
23. );defun
    
24. (princ)
    

(prompt "\nType T1 to run...")<br /> <br /> (defun C:T1 ()<br /> <br /> <br /> (write-line " key=\"time\";label=\"\";//text content" fn)<br /> <br /> (setq dcl_id (load_dialog "t1.dcl"))<br /> (set_tile "time" (strcat (menucmd "M=$(edtime,$(getvar,date),YY/MO/DD HH:MM DDDD)")))<br />      (if (not (new_dialog "test" dcl_id))<br />          (exit )<br />      );if<br /> <br /> (action_tile "accept"<br />     "(done_dialog)"<br /> );action_tile<br /> <br /> (start_dialog)<br /> (unload_dialog dcl_id)<br /> <br /> (princ)<br /> <br /> );defun<br /> (princ)<br />

1. test:dialog
   
2. {key=\"time\";label=\"\";"
   
3. 
   
4. {
   
5. label = "TIME AND DATE";
   
6.         : text
   
7.         {
   
8.         label = "HI";
   
9.         alignment = centered;
   
10.         }
    
11. 
    
12.         : button
    
13.         {
    
14.         key = "accept";
    
15.         label = "Close";
    
16.         is_default = true;
    
17.         fixed_width = true;
    
18.         alignment = centered;
    
19.         }
    
20. 
    
21. }
    

test:dialog<br /> {key=\"time\";label=\"\";" <br /> <br /> {<br /> label = "TIME AND DATE";<br />         : text<br />         {<br />         label = "HI";<br />         alignment = centered;<br />         }<br /> <br />         : button<br />         {<br />         key = "accept";<br />         label = "Close";<br />         is_default = true;<br />         fixed_width = true;<br />         alignment = centered;<br />         }<br /> <br /> }<br />

yaokui25

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)")))

lisperado

Show Time example

1. (defun c:t1 (/ dcl fn f time)
   
2.   (if (and (setq time (menucmd "M=$(edtime,0,YYYY/MO/DD HH:MM DDDD)")
   
3.                  fn   (strcat (getvar 'tempprefix) "tmp.dcl")
   
4.                  )
   
5.            (setq f (open fn "w"))
   
6.            (write-line
   
7.              (strcat "test:dialog  {label=\"面板时间 : "   time
   
8.                      "\" ;  "                               " :boxed_column { label = \""
   
9.                      time                               "\" ;"
   
10.                      " :column { :row { :button { key = \"t1\" ;label = \""
    
11.                      time                               "\" ;width = 5 ; }}}}"
    
12.                      "ok_cancel; "                       " :text { label = \""
    
13.                      time                               "\"; alignment = centered; }}"
    
14.                      )
    
15.              f
    
16.              )
    
17.            )
    
18.     (progn (close f)
    
19.            (setq dcl (load_dialog fn))
    
20.            (new_dialog "test" dcl)
    
21.            (action_tile "t1" "(alert time)")
    
22.            (action_tile "accept" "(done_dialog)")
    
23.            (start_dialog)
    
24.            (unload_dialog dcl)
    
25.            )
    
26.     )
    
27.   (princ)
    
28.   )
    

(defun c:t1 (/ dcl fn f time)<br />   (if (and (setq time (menucmd "M=$(edtime,0,YYYY/MO/DD HH:MM DDDD)")<br />                  fn   (strcat (getvar 'tempprefix) "tmp.dcl")<br />                  )<br />            (setq f (open fn "w"))<br />            (write-line<br />              (strcat "test:dialog  {label=\"面板时间 : "   time<br />                      "\" ;  "                               " :boxed_column { label = \""<br />                      time                               "\" ;"<br />                      " :column { :row { :button { key = \"t1\" ;label = \""<br />                      time                               "\" ;width = 5 ; }}}}"<br />                      "ok_cancel; "                       " :text { label = \""<br />                      time                               "\"; alignment = centered; }}"<br />                      )<br />              f<br />              )<br />            )<br />     (progn (close f)<br />            (setq dcl (load_dialog fn))<br />            (new_dialog "test" dcl)<br />            (action_tile "t1" "(alert time)")<br />            (action_tile "accept" "(done_dialog)")<br />            (start_dialog)<br />            (unload_dialog dcl)<br />            )<br />     )<br />   (princ)<br />   )<br />