ESTILO DE TEXTO ARIAL BLACK

Ver el tema anterior Ver el tema siguiente Ir abajo

ESTILO DE TEXTO ARIAL BLACK

Mensaje por ronaldtroya el Dom Nov 27, 2016 6:06 pm

Muy buenos días a todos amigos
hago la siguiente consulta, desarrolle una rutina que entre sus aplicativos, creaba un estilo de texto Arial Black de la siguiente manera:

(command "style" "TEX_negrita" "ariblk.ttf" 0 "" "" "" "")

Pero en AutoCAD 2017 no reconoce la fuente alguien sabe como hacerlo????

ronaldtroya

Mensajes : 26
Fecha de inscripción : 20/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: ESTILO DE TEXTO ARIAL BLACK

Mensaje por saulo2016 el Lun Nov 28, 2016 2:55 pm

Hola.....yo tengo AutoCAD 2017 y no tuve problema con la creacion del estilo ARIAL BLACK....revisa que tengas el ARIBLK.TTF en la ruta adecuada, yo lo encontré aqui...
c:\Windows\WinSxS\amd64_microsoft-windows-f..truetype-arialblack_31bf3856ad364e35_6.3.9600.16384_none_da0a2b6e3aeaa15f\ariblk.ttf
checa tu que lo tengas....





Saludos
avatar
saulo2016

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

Ver perfil de usuario

Volver arriba Ir abajo

Re: ESTILO DE TEXTO ARIAL BLACK

Mensaje por ronaldtroya el Lun Nov 28, 2016 3:53 pm

Si tengo la fuente
C:\Windows\Fonts\Arial
aqui adentro contiene todas las fuentes, es mas cuando lo hago manual si se puede pero la idea es hacerlo desde Lisp, Gracias SAULO2016

ronaldtroya

Mensajes : 26
Fecha de inscripción : 20/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: ESTILO DE TEXTO ARIAL BLACK

Mensaje por saulo2016 el Lun Nov 28, 2016 4:43 pm

Pero la fuente no es ARIAL si no ARIBLK.TTF.....

No se si tienes ese archivo....
avatar
saulo2016

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

Ver perfil de usuario

Volver arriba Ir abajo

Re: ESTILO DE TEXTO ARIAL BLACK

Mensaje por ronaldtroya el Lun Nov 28, 2016 9:43 pm

Cuando creo el estilo de la forma manual en el AutoCAD existe el estilo, en la carpeta Fonts\Arial dentro de la misma existe la fuente...

ronaldtroya

Mensajes : 26
Fecha de inscripción : 20/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: ESTILO DE TEXTO ARIAL BLACK

Mensaje por amc.dicsac el Miér Nov 30, 2016 6:57 pm

Hola que tal, intenta probando con el siguiente codigo

Código:

;;-----------------------------------------------------;;
;; Creador de style ---> AX:ProgramLisp                ;;
;; (2ap_Draw_Style "style_1" "romans" 0 0.90)          ;;
;;-----------------------------------------------------;;

(defun 2ap_Draw_Style ( name font alt anc)
(if (null (tblobjname "STYLE" name))
(entmake (list '(0 . "STYLE")
              '(100 . "AcDbSymbolTableRecord")
              '(100 . "AcDbTextStyleTableRecord")
                (cons 2 name)
           (cons 3 font)
         '(70 . 0)
           (cons 40 alt)
           (cons 41 anc)
      )
    )
  )
)

(defun c:prueba ()
  (2ap_Draw_Style "TEX_negrita6" "Arial Black" 0 1.00)
  (PRINC)
  )
avatar
amc.dicsac

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

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

Volver arriba Ir abajo

Re: ESTILO DE TEXTO ARIAL BLACK

Mensaje por ronaldtroya el Jue Dic 01, 2016 4:08 pm

ESTO ES LO QUE MUESTRA CUANDO USO LA PROPUESTA DE amc.dicsac

ronaldtroya

Mensajes : 26
Fecha de inscripción : 20/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: ESTILO DE TEXTO ARIAL BLACK

Mensaje por amc.dicsac el Jue Dic 01, 2016 6:45 pm

Lo corregi a ver prueba i luego me dices si funciona. Yo lo eh probado en autocad 2008 y 2017 y no eh encontrado ningun problema.

Código:

;;-----------------------------------------------------;;
;; Creador de style ---> AX:ProgramLisp                ;;
;; (2ap_Draw_Style "style_1" "romans.shx" 0 0.90)          ;;
;;-----------------------------------------------------;;

(defun 2ap_Draw_Style ( name font alt anc )
(if (null (tblobjname "STYLE" name))
(entmake (list '(0 . "STYLE")
              '(100 . "AcDbSymbolTableRecord")
              '(100 . "AcDbTextStyleTableRecord")
              '(70 . 0)
               (cons 2 name)
               (cons 3 font)
               (cons 40 alt)
               (cons 41 anc)
      )
    )
  )
)

(defun c:prueba ()
  (setvar "cmdecho" 0)
  (2ap_Draw_Style "TEX_negrita6" "Arial Black.ttf" 0 1.00)
  (setvar "cmdecho" 1)
  (princ))

avatar
amc.dicsac

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

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

Volver arriba Ir abajo

Re: ESTILO DE TEXTO ARIAL BLACK

Mensaje por ronaldtroya el Jue Dic 01, 2016 9:22 pm

BIEN PROBLEMA SOLUCIONADO oK, ESTA FENOMENAL LA SOLUCIÓN SE AGRADASE

ronaldtroya

Mensajes : 26
Fecha de inscripción : 20/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: ESTILO DE TEXTO ARIAL BLACK

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


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