Uso adecuado de (vl-subst)

Buen día señores. A ver si pueden ayudarme con esto:

Tengo una variable con éste valor: "-5.03%%% en 7.300 m"
Esto sale de tomar el valor de una entidad de texto con la función

Código:

(setq txtent(vlax-get-property pendentrada 'textstring))

(pendiente de entrada)

Ahora, necesito eliminar todo lo que esté desde del %, para que quede así:
"-5.03"
Cabe aclarar que no siempre son 7.300 m, es un valor que variará, con más o menos caracteres. intenté de varias formas y no pude lograrlo.

No se puede leer de izquierda a derecha, ya que puede que no lleve el signo menos o el entero sean uno o dos caracteres. Espero haber explicado bien. Otra aclaración, son muchos textos, pendiente de entrada y pendiente de salida... obviamente varían, sólo me interesa el número, cono o sin signo.

Saludos y gracias a todos.

tienes que usar una combinación de funciones:

Código:

(Setq txt "-5.03%%% en 7.300 m")
(setq val(SUBSTR txt 1 (VL-STRING-SEARCH "%" txt)))

Gracias mi estimado, lo checo....

Saludos