;;时间计算(defunz_timer(/stimehms)(if(notzhf_time_dot)(setqzhf_time_dot(getvar"date")hnil)(progn(setqstime(getvar"date"))(setqstime(-stimezhf_time_dot))(setqstime(*86400.0(-stime(fixstime))))(setqh(fix(/stime3600)))(setqm(fix(/(-stime(*h36