create a new text style with entities

[marcelogarcia3251]

Good night would create a new text style by entmake
so far did it

(defun c:ntext()
(entmake (list
                    (cons 0 "style")
                    (cons 100 "AcDbSymbolTableRecord")
                    (cons 100 "AcDbTextStyleTableRecord")
                    (cons 2 "novo_texto")
                    (cons 40 0.5)
                    (cons 41 1)

)
)
)

but is not working, someone could help me.

[hmsilva · Accepted solution]

Hi Marcelo,

try

(entmake (list
             (cons 0 "style")
             (cons 100 "AcDbSymbolTableRecord")
             (cons 100 "AcDbTextStyleTableRecord")
             (cons 2 "novo_texto")
;; Standard flag values (bit-coded values):
;; 0 = Normal text
;; 1 = If set, this entry describes a shape
;; 4 = Vertical text
;; 16 = If set, table entry is externally dependent on an xref
             '(70 . 0) 
             (cons 40 0.5)
             (cons 41 1.0)
;; your font file
             (cons 3 "C:\\Windows\\Fonts\\arial.ttf")
           )
  )

Henrique

[marcelogarcia3251]

thank you not know how much helped me

[hmsilva]

You're welcome, Marcelo
Glad I could help

Henrique