Subrayar textos
2 participantes
Página 1 de 1.
Subrayar textos
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?
Gracias desde ya!
Saludos
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- Mensajes : 210
Fecha de inscripción : 17/03/2016
Edad : 58
Localización : Monterrey, Nuevo León, Mexico
Re: Subrayar textos
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...
Saludos a Todos
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- Mensajes : 210
Fecha de inscripción : 17/03/2016
Edad : 58
Localización : Monterrey, Nuevo León, Mexico
Re: Subrayar textos
Yo imagino que en tu lisp, si cambias esto
- Código:
(strcat
(vlax-get-property obj 'TextString)
(strcat (chr 37) (chr 37) (chr 85))
)
- Código:
(strcat
(strcat (chr 37) (chr 37) (chr 85))
(vlax-get-property obj 'TextString)
)
Re: Subrayar textos
robierzo, muchas gracias Maestro....esa era la solucion....
Saludos
Saludos
saulo2016- Mensajes : 210
Fecha de inscripción : 17/03/2016
Edad : 58
Localización : Monterrey, Nuevo León, Mexico
Temas similares
» Sentido de Textos
» Sumadora de Textos
» Filtar textos
» Eliminar espacios "de más" en textos....
» Acotar Angulos
» Sumadora de Textos
» Filtar textos
» Eliminar espacios "de más" en textos....
» Acotar Angulos
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.
|
|