[LISP]如何用Lisp编程创建TrueType字体，比如宋体

lobster100 · 发表于 2004-4-29 11:45:00

我的思路是：

1 首先在AutoCAD的文本字体集中建立一个新的字体；

2设置新的字体包括其格风格属性和字体文件。

我不明白的是关于字体文件，如何对付TrueType字体

(vla-put-fontfile AcadSt font)

CAD不认Simsun.ttf形式

龙龙仔 · 发表于 2004-4-30 17:09:00

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=4595&replyID=17946

秋枫 · 发表于 2004-4-30 20:12:00

(command "-style" "TestStyle" "宋体" "" "" ....)

wzh · 发表于 2004-5-9 15:56:00

(entmake (list
'(0 . "STYLE")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbTextStyleTableRecord")
(cons 2 Stylename)
'(70 . 0)
(cons 40 Stylehight) ;字高
(cons 41 Stylescale) ;宽度系数
'(50 . 0.0) ;旋转角度
'(71 . 0) ;生成标志
(cons 3 "仿宋_GB2312") ;字型名称
'(4 . "") ;大字体文件名
)
)

账号		自动登录	找回密码
密码			注册