correção do valor da extensão simples e acumulada do autolisp