关于日期递增? 谢谢

linheyuanpcb

(setq daa (menucmd "m=$(edtime,$(getvar,date),yyyy.mo.dd)"))
(command "text" "j" "bl" "0,0" 2.5 0 daa)
;text===daa 当前日期 2012.04.19
(command "copy" "l" "" "@80,0" "")
(setq dab(getstring  "\n:请输入递增天数"))
(if (= dab nil) (setq dab 4))


复制日期的时候递增天数?如+4天 即复制后结果是 2012.04.23

呼呼se

请问怎么使用   万分感谢！！！

lostbalance

把日期字符串用.号分割成列表，然后再处理加法，最后合并。分割函数论坛里找一下有

lisperado

rtos思路如不介意精准度，因为转换值为字串符!!

1. (defun c:tt ( / i)
   
2. (initget 2)
   
3. (and
   
4. (setq i (cond ((getreal  "\n请输入递增天数+/- : "))(4)))
   
5. (alert (menucmd (strcat "M=$(edtime," (rtos (+ (getvar 'date) i) 2 ) ",YYYY.MO.DD)")))
   
6. )
   
7. (princ)
   
8. )
   

(defun c:tt ( / i)<br /> (initget 2)<br /> (and<br /> (setq i (cond ((getreal  "\n请输入递增天数+/- : "))(4)))<br /> (alert (menucmd (strcat "M=$(edtime," (rtos (+ (getvar 'date) i) 2 ) ",YYYY.MO.DD)")))<br /> )<br /> (princ)<br /> )<br />

Bao_lai

关键是判断进位问题_?