acad hispano
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.

Ayuda para modificar una rutina lisp

Ir abajo

Ayuda para modificar una rutina lisp Empty Ayuda para modificar una rutina lisp

Mensaje por José Francisco el Jue Jul 23, 2020 12:11 am

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

José Francisco

Mensajes : 40
Fecha de inscripción : 30/03/2016

Volver arriba Ir abajo

Ayuda para modificar una rutina lisp Empty saca dos letras

Mensaje por Admin el Vie Jul 24, 2020 3:33 am

prueba esto
Archivos
Ayuda para modificar una rutina lisp Attachment
saca 2letras-despues - Standard.zip No tienes los permisos para descargar los archivos.(55 KB) Descargado 7 veces

Admin
Admin

Mensajes : 216
Fecha de inscripción : 16/03/2016
Edad : 72
Localización : CORDOBA ARGENTINA

https://acadhispano.foroargentina.net

A José Francisco le gusta esta publicaciòn

Volver arriba Ir abajo

Ayuda para modificar una rutina lisp Empty Re: Ayuda para modificar una rutina lisp

Mensaje por José Francisco el Vie Jul 24, 2020 6:59 pm

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

José Francisco

Mensajes : 40
Fecha de inscripción : 30/03/2016

Volver arriba Ir abajo

Ayuda para modificar una rutina lisp Empty Re: Ayuda para modificar una rutina lisp

Mensaje por Admin el Vie Jul 24, 2020 7:12 pm

Mi nombre es GABRIEL , CALOS DE VIT son mis apellidos

Admin
Admin

Mensajes : 216
Fecha de inscripción : 16/03/2016
Edad : 72
Localización : CORDOBA ARGENTINA

https://acadhispano.foroargentina.net

Volver arriba Ir abajo

Ayuda para modificar una rutina lisp Empty Re: Ayuda para modificar una rutina lisp

Mensaje por José Francisco el Vie Jul 24, 2020 7:17 pm

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

José Francisco

Mensajes : 40
Fecha de inscripción : 30/03/2016

Volver arriba Ir abajo

Ayuda para modificar una rutina lisp Empty Re: Ayuda para modificar una rutina lisp

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.