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

ESTILO DE TEXTO ARIAL BLACK

3 participantes

Ir abajo

ESTILO DE TEXTO ARIAL BLACK Empty ESTILO DE TEXTO ARIAL BLACK

Mensaje por ronaldT 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????

ronaldT

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

Volver arriba Ir abajo

ESTILO DE TEXTO ARIAL BLACK Empty Re: ESTILO DE TEXTO ARIAL BLACK

Mensaje por saulo2016 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
saulo2016
saulo2016

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

Volver arriba Ir abajo

ESTILO DE TEXTO ARIAL BLACK Empty Re: ESTILO DE TEXTO ARIAL BLACK

Mensaje por ronaldT 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

ronaldT

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

Volver arriba Ir abajo

ESTILO DE TEXTO ARIAL BLACK Empty Re: ESTILO DE TEXTO ARIAL BLACK

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

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

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

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

Volver arriba Ir abajo

ESTILO DE TEXTO ARIAL BLACK Empty Re: ESTILO DE TEXTO ARIAL BLACK

Mensaje por ronaldT 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...

ronaldT

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

Volver arriba Ir abajo

ESTILO DE TEXTO ARIAL BLACK Empty Re: ESTILO DE TEXTO ARIAL BLACK

Mensaje por amc.dicsac 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)
  )
amc.dicsac
amc.dicsac

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

http://axprogramlisp.blogspot.pe/

Volver arriba Ir abajo

ESTILO DE TEXTO ARIAL BLACK Empty Re: ESTILO DE TEXTO ARIAL BLACK

Mensaje por ronaldT Jue Dic 01, 2016 4:08 pm

ESTO ES LO QUE MUESTRA CUANDO USO LA PROPUESTA DE amc.dicsac
ESTILO DE TEXTO ARIAL BLACK 2unzo6r

ronaldT

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

Volver arriba Ir abajo

ESTILO DE TEXTO ARIAL BLACK Empty Re: ESTILO DE TEXTO ARIAL BLACK

Mensaje por amc.dicsac 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))

amc.dicsac
amc.dicsac

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

http://axprogramlisp.blogspot.pe/

Volver arriba Ir abajo

ESTILO DE TEXTO ARIAL BLACK Empty Re: ESTILO DE TEXTO ARIAL BLACK

Mensaje por ronaldT Jue Dic 01, 2016 9:22 pm

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

ronaldT

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

Volver arriba Ir abajo

ESTILO DE TEXTO ARIAL BLACK Empty Re: ESTILO DE TEXTO ARIAL BLACK

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.