autolisp correção (funcionando)

identificacao de variaveis