魔法披风 发表于 2024-10-4 19:30:10

用entmake如何设置字体呢?

(entmake
    (list '(0 . "MTEXT")
          '(100 . "AcDbEntity")   
          '(100 . "AcDbMText")
          '(7 . "65")
          (cons 10 (list (+ (car p1) 94) (- (cadr p1) 1) ))
          (cons 40 4)
          (cons 1 (strcat "\\C" str_c ";" "备注") )
    )
)我看了一下,好像是组码7是设置字体, 但是在cad里手动设置后都是黑体不会变化!

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

魔法披风 发表于 2024-10-4 19:33:38

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

dcl1214 发表于 2024-10-5 21:14:54

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

陈伟 发表于 2024-10-16 10:27:21

本帖最后由 陈伟 于 2024-10-16 11:09 编辑

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") ;大字体路径
             )


页: [1]
查看完整版本: 用entmake如何设置字体呢?