ESTILO DE TEXTO ARIAL BLACK
3 participantes
Página 1 de 1.
ESTILO DE TEXTO ARIAL BLACK
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????
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
Re: ESTILO DE TEXTO ARIAL BLACK
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
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- Mensajes : 213
Fecha de inscripción : 17/03/2016
Edad : 58
Localización : Monterrey, Nuevo León, Mexico
Re: ESTILO DE TEXTO ARIAL BLACK
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
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
Re: ESTILO DE TEXTO ARIAL BLACK
Pero la fuente no es ARIAL si no ARIBLK.TTF.....
No se si tienes ese archivo....
No se si tienes ese archivo....
saulo2016- Mensajes : 213
Fecha de inscripción : 17/03/2016
Edad : 58
Localización : Monterrey, Nuevo León, Mexico
Re: ESTILO DE TEXTO ARIAL BLACK
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
Re: ESTILO DE TEXTO ARIAL BLACK
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)
)
Re: ESTILO DE TEXTO ARIAL BLACK
ESTO ES LO QUE MUESTRA CUANDO USO LA PROPUESTA DE amc.dicsac
![ESTILO DE TEXTO ARIAL BLACK 2unzo6r](https://2img.net/h/oi65.tinypic.com/2unzo6r.jpg)
![ESTILO DE TEXTO ARIAL BLACK 2unzo6r](https://2img.net/h/oi65.tinypic.com/2unzo6r.jpg)
ronaldT- Mensajes : 54
Fecha de inscripción : 20/03/2016
Re: ESTILO DE TEXTO ARIAL BLACK
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))
Re: ESTILO DE TEXTO ARIAL BLACK
BIEN PROBLEMA SOLUCIONADO oK, ESTA FENOMENAL LA SOLUCIÓN SE AGRADACE
ronaldT- Mensajes : 54
Fecha de inscripción : 20/03/2016
![-](https://2img.net/i/empty.gif)
» Aplicar estilo a texto existente
» Poner como actual Estilo de MLEADER
» HTML -> Texto
» Texto de Coordenada
» Datos de CAD a CSV y de CSV a texto de Acad
» Poner como actual Estilo de MLEADER
» HTML -> Texto
» Texto de Coordenada
» Datos de CAD a CSV y de CSV a texto de Acad
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.
|
|