Ayuda para modificar una rutina lisp

Buen día a todos.
De nuevo por aca molestando.
Pasa que muy frecuentemente uso una rutina lisp que encontré en alguna parte y lo que hace es eliminar una cantidad "X" de caracteres al inicio de un texto (la configuré para que sen 2 los caracteres que elimine). Debo seleccionar un texto a la vez pero por lo general son muchos los textos a los que les debo eliminar esos 2 caracteres.
La rutina hace esto:
De X:125.36 pasa a 125.36
   Y: 325.41          325.41
   X: 45.26            45.26
   Y: 10.87            10.87
Ahora, por favor, me pueden ayudar a modificar la rutina para que por ventana se seleccionen todos los textos y se elimine de cada texto los caracteres que no ocupo?

Este es el lisp:

Código:

(defun c:test ()
  (setq nCaracteresRecortarIzquierda 2)
  (while
    (setq entsup (car (entsel "\nSeleccione el Primer Texto: ")))
    (setq entvla (vlax-ename->vla-object entsup))
    (setq vtextoOrigen (vla-get-TextString entvla))
    (setq vTextoDestino
   (substr vtextoOrigen
   (+ nCaracteresRecortarIzquierda 1)
   (strlen vtextoOrigen)
   )
    )
    (vla-put-TextString entvla vTextoDestino)
  )
)

Les agradezco la ayuda que puedan brindarme.
Saludos

prueba esto

Buen día a todos.
Don Carlos, muchas gracias por su ayuda y sobre todo por su tiempo.
Saludos cordiales.

Mi nombre es GABRIEL , CALOS DE VIT son mis apellidos

Don Gabriel, mis disculpas.
De nuevo, mil gracias.
Saludos.