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

Subrayar textos

2 participantes

Ir abajo

Subrayar textos Empty Subrayar textos

Mensaje por saulo2016 Mar Sep 18, 2018 10:08 pm

Hola a Todos los Maestros, tengo este codigo, en él estoy poniendo 3 caracteres el 37 y el 85, estos se posicionan al final del texto seleccionado.

Pero lo que yo quiero es que se posicionen al principio.

Alguien podrá ayudarme con este asunto?


Código:
(defun c:subrayar (/ )
  (vl-load-com)
( setq obj (vlax-ename->vla-object (car (entsel))))
(vlax-put-property
  obj
  'TextString
  (strcat
    (vlax-get-property obj 'TextString)
    (strcat (chr 37) (chr 37) (chr 85))
    )
  )
(princ)
)

Gracias desde ya!

Saludos
saulo2016
saulo2016

Mensajes : 210
Fecha de inscripción : 17/03/2016
Edad : 58
Localización : Monterrey, Nuevo León, Mexico

Volver arriba Ir abajo

Subrayar textos Empty Re: Subrayar textos

Mensaje por saulo2016 Miér Sep 19, 2018 3:36 pm

Hola nuevamente....

Aqui les dejo este codigo que encontré en la RED....

Ya resolvio mi problema...aqui se los comparto por si a alguien le sirve de algo...

Código:
;; Subrayar o quitar subrayado para texto seleccionando texto
;; Copyright (c) 1995 por D. C. Amplia, Jr.
;;
;;; UNDRLINE.LSP "UndrLine" ...UnderLines Text
;;; Underlines a one or more strings of text (not mMtext).
;;; ........................................
;;; Adapted from UNDRSCOR.LSP by Jeff Foster


(DEFUN UNDR (/ CNT SCAL SS EN ED AS PT1 PT2 PT3 DIST1 SCAL1 SCL_F)
(SETQ
CNT NIL SCAL NIL SS NIL EN NIL ED NIL AS NIL PT1 NIL
)
(SETQ CNT 1)
(PRINC "Selecciona TEXTOS para Subrayar o quitar Subrayado")
(SETQ SS (SSGET))
(WHILE (> (SSLENGTH SS) 0)
(PROGN
(SETQ EN (SSNAME SS 0))
(SETQ ED (ENTGET EN))
(SETQ AS (CDR (ASSOC '0 ED)))
(COND ((= AS "TEXT")
(SETQ ED (SUBST (CONS 1 (STRCAT "%%U" (CDR (ASSOC '1 ED))))
(ASSOC 1 ED)
ED
)
)
(ENTMOD ED)
)
)
(SSDEL EN SS)
)
)
(SETQ
CNT NIL SCAL NIL SS NIL EN NIL ED NIL AS NIL PT1 NIL
)
)

;;;%%%%%%%%-COMMAND FUNCTION-%%%%%%%%
(DEFUN C:subrayar ()
(UNDR)
)



Saludos a Todos
saulo2016
saulo2016

Mensajes : 210
Fecha de inscripción : 17/03/2016
Edad : 58
Localización : Monterrey, Nuevo León, Mexico

Volver arriba Ir abajo

Subrayar textos Empty Re: Subrayar textos

Mensaje por robierzo Miér Sep 19, 2018 4:55 pm

Yo imagino que en tu lisp, si cambias esto
Código:
(strcat
    (vlax-get-property obj 'TextString)
    (strcat (chr 37) (chr 37) (chr 85))
)
por esto otro
Código:
(strcat
    (strcat (chr 37) (chr 37) (chr 85))
    (vlax-get-property obj 'TextString)
)
Debería funcionar.
robierzo
robierzo

Mensajes : 102
Fecha de inscripción : 17/03/2016
Localización : La Coruña

http://www.selmotopografia.es

Volver arriba Ir abajo

Subrayar textos Empty Re: Subrayar textos

Mensaje por saulo2016 Miér Sep 19, 2018 5:49 pm

robierzo, muchas gracias Maestro....esa era la solucion....




Saludos
saulo2016
saulo2016

Mensajes : 210
Fecha de inscripción : 17/03/2016
Edad : 58
Localización : Monterrey, Nuevo León, Mexico

Volver arriba Ir abajo

Subrayar textos Empty Re: Subrayar textos

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba

- Temas similares

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