Créer un style de texte

[DenisHen]

Bonjour à toutes et à tous,

 

Je cherche à créer un style de texte sans

command "-style" ...

J'ai fais çà :

(defun c:CreeStyle (Style Police /)
 (entmakex
   (list
     (cons 0 "STYLE")
     (cons 100 "AcDbSymbolTableRecord")
     (cons 100 "AcDbTextStyleTableRecord")
     (cons 2 Style)
     (cons 70 1)
     (cons 40 1) ; Hauteur de texte fixe ; 0 si non fixée
     (cons 41 1) ; Facteur d'extension
     (cons 50 0) ; Angle d'inclinaison
     (cons 3 Police) ; Nom du fichier de polices primaires
     ;(cons 4 Police) ; Nom de fichier de grandes polices ; chaîne vide si aucun
   ) ;_ Fin:list
 ) ;_ Fin:entmakex
)

mais çà ne fait rien, à part un "nil"...

 

merci d'avance,

 

Denis...

[bryce]

Bonjour;

 

(defun CreeStyle (Style Police /)
 (entmakex
   (list
     (cons 0 "STYLE")
     (cons 100 "AcDbSymbolTableRecord")
     (cons 100 "AcDbTextStyleTableRecord")
     (cons 2 Style)
     (cons 70 0)
     (cons 40 1) ; Hauteur de texte fixe ; 0 si non fixée
     (cons 41 1) ; Facteur d'extension
     (cons 50 0) ; Angle d'inclinaison
     (cons 3 Police) ; Nom du fichier de polices primaires
     ;(cons 4 Police) ; Nom de fichier de grandes polices ; chaîne vide si aucun
   ) ;_ Fin:list
 ) ;_ Fin:entmakex
)

- pas de C: pour définir une fonction acceptant des paramètres

- une valeur de 1 pour le code 70 définit une forme (shape), il faut la mettre à 0 pour créer un style de texte ;)

[DenisHen]

Bonjour,

 

Merci bryce, ça marche nikel. ;)

 

Denis...