yang686526

lisp中如何限制使用時間.
www.dimcax.com

说得好,偶顶
d
说得好
d
(defun k_right (/ kongel_code_s yo do yn dn
date_d_e date_d_1_e date_d_2_e my_da )
(defun k_code_s(/ date_d date_d_1 date_d_2 kongel_code_s )
(setq kongel_code_s
(vl-registry-read
"hkey_current_user\\software\\kongel"
"my_code_date_start")
)
(if (= kongel_code_s nil)
(progn
(setq date_d (getvar "cdate"))
(setq date_d_1 (rtos date_d 2 20))
(setq date_d_2 (substr date_d_1 5 4))
(setq kongel_code_s (vl-registry-write "hkey_current_user\\software\\kongel"
"my_code_date_start" date_d_2 ))
)
)
)
;********************************
(k_code_s)
(setq kongel_code_s
(vl-registry-read
"hkey_current_user\\software\\kongel"
"my_code_date_start")
)
(setq yo (atof (substr kongel_code_s 2 1)))
(setq do (atof (substr kongel_code_s 3 2)))
(setq date_d_e (getvar "cdate")) ;;;获取当前日期
(setq date_d_1_e (rtos date_d_e 2 20))
(setq date_d_2_e (substr date_d_1_e 5 4))
(setq yn ( atof (substr date_d_2_e 2 1)))
(setq dn ( atof (substr date_d_2_e 3 2)))
(setq my_da (- (+ (* 30 yn) dn) (+ (* 30 yo) d0) ) ) ;;;计算时间差
(if (> my_da 90)
(progn
(alert "\n已到期！请与联系!")
(exit)
)
(setq kongel_code_s kongel_code_s)
)
)
这是我写的，不过有问题。还麻烦高手指点一下。
错误: 参数类型错误: numberp: nil
d