[LISP程序]：用lisp语句，怎么得到当前的字型名？

qqq888 · 发表于 2002-9-27 17:50:27

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请教个问题，用lisp语句，怎么得到当前的字型名？

XDSoft · 发表于 2002-9-27 17:53:30

最初由 qqq888 发布
[B]请教个问题，用lisp语句，怎么得到当前的字型名？ [/B]

读系统变量：“textstyle”

命令: (getvar "textstyle")
"Standard"

qqq888 · 发表于 2002-9-27 17:54:04

如果能得到该字形的其他定义就更好了，比如高宽比，用的字体名等等

XDSoft · 发表于 2002-9-27 18:04:38

最初由 qqq888 发布
[B]如果能得到该字形的其他定义就更好了，比如高宽比，用的字体名等等 [/B]

文字样式，保存在数据库的“符号表”里面，使用“符号表”查找函数tblsearch 可以查到需要的。

比如上面的:

(setq curStyl (getvar "textstyle"))
(setq def (tblsearch "style" curStyl))

执行后：
def=
((0 . "STYLE") (2 . "Standard") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.0) (71 .
0) (42 . 2.5) (3 . "txt") (4 . ""))

其中组码3表示使用的字体，其他的都有，看看联机帮助，关于组码部分：

登录/注册后可看大图

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

[LISP程序]：用lisp语句，怎么得到当前的字型名？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [LISP程序]：用lisp语句，怎么得到当前的字型名？