Xin Hoặc Nhờ Các Cao Thủ Viết Lisp Tạo Text Style

[hondacodon_dtu 3]

Mình muốn xin lisp tạo text style.

hoặc nhờ các cao thủ viết cho mình 1 lisp tạo "new text style" theo ý muốn với các tùy chọn về tên Style, font và cỡ chữ.

Ví dụ gõ lệnh: nst=>Enter=> Đặt tên style=> Enter=>Chọn font chữ/T/A/G

(Với A= Time new roman, B= arial, C=gothic)

=>Enter =>Text height =>Enter

 

Mình tìm mấy ngày nay trên diễn đàn củng như google ko ra. Tks các cao thủ.

[duy782006 1.544]

Thử xem! Cái màu đỏ thì ưng sửa sao sửa.

(entmake (list (cons 0 "STYLE") (cons 100 "AcDbSymbolTableRecord") (cons 100 "AcDbTextStyleTableRecord") (cons 2 "duy782006") (cons 3 "txt") (cons 70 0) ))