将wkai的最短路径由经典改为A星算法 ;;时间计算(defunz_timer(/stimehms)(if(notzhf_time_dot)(setqzhf_time_dot(getvar"date")hnil)(progn(setqstime(getvar"date"))(setqstime(-stimezhf_time_dot))(s