用entmake如何设置字体呢?

魔法披风

1.   (entmake
   
2.     (list '(0 . "MTEXT")  
   
3.           '(100 . "AcDbEntity")   
   
4.           '(100 . "AcDbMText")
   
5.           '(7 . "65")
   
6.           (cons 10 (list (+ (car p1) 94) (- (cadr p1) 1) ))
   
7.           (cons 40 4)
   
8.           (cons 1 (strcat "\\C" str_c ";" "备注") )
   
9.     )
   
10.   )

复制代码

我看了一下,好像是组码7是设置字体, 但是在cad里手动设置后都是黑体不会变化!

比如我想设置成宋体,该如何设置呢?

魔法披风

刚试了下设置成"宋",好像可以

dcl1214

提前创建文字样式，然后entmke就可以了

陈伟

dcl1214 发表于 2024-10-5 21:14
提前创建文字样式，然后entmke就可以了

(entmake (list '(0 . "STYLE") '(100 . "AcDbSymbolTableRecord")'(100 . "AcDbTextStyleTableRecord")(cons 2 "宋体100")'(70 . 0)(cons 40 100) (cons 41 1)'(3 . "宋体.ttf")))


创建字体样式"宋体100"，设置字体为"宋体.ttf"





(list '(0 . "STYLE")
                   '(100 . "AcDbSymbolTableRecord")
                   '(100 . "AcDbTextStyleTableRecord") ;子类名称
                   '(2 . "Test2") ;样式名
                   '(70 . 0) ;二进制数，标准flag:4-垂直，16-注释性，20-垂直+注释性
                   '(40 . 0.0) ;高度：0为不固定
                   '(41 . 0.75) ;宽度因子
                   '(50 . 0) ;倾斜角度（弧度制）
                   '(71 . 0) ;二进制数，颠倒反向：2-反向，4-颠倒，6-颠倒反向
                   '(42 . 500.0) ;历史记录：上次使用的字高
                   '(3 . "C:\\Program Files\\Autodesk\\AutoCAD 2024\\Fonts\\iso.shx") ;小字体路径
                   '(4 . "C:\\Program Files\\Autodesk\\AutoCAD 2024\\Fonts\\bigfont.shx") ;大字体路径
             )