Es posible cambiar la fuente de un Mtext mediante Lisp??

Ver el tema anterior Ver el tema siguiente Ir abajo

Es posible cambiar la fuente de un Mtext mediante Lisp??

Mensaje por Alejandros85 el Mar Mayo 31, 2016 11:18 pm

Buenas tardes amigos, tengo una duda que es la siguiente, a un mtext se le puede cambiar la fuente mediante un programa en autolisp, es que me he encontrado mtext que tienen el Style name en Romans, pero la fuente esta en arial por decir un ejemplo y eso mismo se repite en varios mtext, entonces lo que tengo que hacer es ir uno por uno y cambiarles la fuente con el comando mtedit.

Fui plantenado una rutina, para obtener el tipo de entidad, que a esa entidad le saque el contenido del texto y lo guarde en una variable y aqui es donde viene el tema, no puedo o no se como se hace para sacarle solo el contenido del metxt ya que sale de esta forma "{\\fArial|b0|i0|c0|p34;PERFIL NATURAL\\PDE TERRENO}" y dejarlo asi "PERFIL NATURAL\\PDE TERRENO" que corresponde con el romans.

Adjunto el código que empeze:

Código:
(DEFUN c:ale2 ()
  (SETQ hnd (ENTSEL "\nSeleccione objeto: "))
  (SETQ obj (CDR (ASSOC 0 (ENTGET (CAR hnd))))
 lay (CDR (ASSOC 1 (ENTGET (CAR hnd))))
  )
  (PRINC)
)


Les agradezco su ayuda, utilizo CAD 2014 en windows 10

Alejandros85

Mensajes : 7
Fecha de inscripción : 05/04/2016
Edad : 31
Localización : San Jose, Costa Rica

Ver perfil de usuario

Volver arriba Ir abajo

Re: Es posible cambiar la fuente de un Mtext mediante Lisp??

Mensaje por amc.dicsac el Miér Jun 01, 2016 12:00 am

Hola que tal, aun tengo un lisp que me descarge hace ufff y hace lo que tu pides y mucho más, este lisp se encarga de restaurar los valores de los mtext que fueron anteriormente alterados solo bastara con que dejes activod el check font, te dejo el link, descargalo y copia ambos archivos en tu "disco c" y lo cargas

Espero te sirva

https://www.dropbox.com/sh/002a3lnucjtup3p/AAD2YrwEB6ewd44wvxTBbMXJa?dl=0
avatar
amc.dicsac

Mensajes : 76
Fecha de inscripción : 17/03/2016
Edad : 26
Localización : Lima - Perú

Ver perfil de usuario http://axprogramlisp.blogspot.pe/

Volver arriba Ir abajo

Re: Es posible cambiar la fuente de un Mtext mediante Lisp??

Mensaje por Alejandros85 el Miér Jun 01, 2016 12:18 am

Hola amc.discac, gracias por el programa, ya lo descargue pero me sale un error que dice:
Cannot loasd DCL file "StrinMtext(3).dcl y estan el mismo lugar los 2 archivos, los puse en el support del CAD

Alejandros85

Mensajes : 7
Fecha de inscripción : 05/04/2016
Edad : 31
Localización : San Jose, Costa Rica

Ver perfil de usuario

Volver arriba Ir abajo

Re: Es posible cambiar la fuente de un Mtext mediante Lisp??

Mensaje por Alejandros85 el Miér Jun 01, 2016 12:19 am

Ya lo logre, los pegue donde dijiste, pensé que podía ser en cualquier lado del disco c

Alejandros85

Mensajes : 7
Fecha de inscripción : 05/04/2016
Edad : 31
Localización : San Jose, Costa Rica

Ver perfil de usuario

Volver arriba Ir abajo

Re: Es posible cambiar la fuente de un Mtext mediante Lisp??

Mensaje por Alejandros85 el Miér Jun 01, 2016 12:35 am

Muchas gracias amigo, ya probé la rutina y funciona de maravilla.

Alejandros85

Mensajes : 7
Fecha de inscripción : 05/04/2016
Edad : 31
Localización : San Jose, Costa Rica

Ver perfil de usuario

Volver arriba Ir abajo

Re: Es posible cambiar la fuente de un Mtext mediante Lisp??

Mensaje por amc.dicsac el Miér Jun 01, 2016 5:00 pm

Gracias me alegro que te sea util, no te preocupes voy a incorporar el dcl dentro del lisp y luego te lo paso, para que lo puedas poner en cualquier lugar.

Saludos
avatar
amc.dicsac

Mensajes : 76
Fecha de inscripción : 17/03/2016
Edad : 26
Localización : Lima - Perú

Ver perfil de usuario http://axprogramlisp.blogspot.pe/

Volver arriba Ir abajo

Re: Es posible cambiar la fuente de un Mtext mediante Lisp??

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

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