[求助]：碰到一个初始化功能lisp的问题

Lanfeng · 发表于 2004-4-16 22:09:49

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

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

×

(if (not (tblsearch "style" "ST"))
   (if (findfile "simsun.ttf")
   (command "-style" "ST" "simsun.ttf" "" "0.7" "" "" "")
   (princ "\n 找不到字型文件\"simsun.ttf\",忽略字型ST.")

这个程序段是执行一个小的字体初始化的功能，当前图纸中，如果没有st这个字体，就生成一个st字体格式，选用的是系统字——宋体

本来应该很简单，结果现在很麻烦，因为系统里面的宋体的字体文件其实是simsun.ttc，所以第三行一定是执行不了的，可是style命令又不兼容ttc文件格式，我还尝试着改变simsun.ttc为simsun.ttf。结果，运行会出错～～～

难道，初始化就不能定义一个宋体？～！各位大侠，帮忙～～

lijiao · 发表于 2004-4-17 08:42:48

用VLA－函数。

ll_j · 发表于 2004-4-18 09:50:22

最初由 Lanfeng 发布
[B](if (not (tblsearch "style" "ST"))
   (if (findfile "simsun.ttf")
   (command "-style" "ST" "simsun.ttf" "" "0.7" "" "" "")
   (princ "\n 找不到字型文件\"simsun.ttf\",忽略字型ST.")

这个程序段是?.. [/B]

你试试用：
(command "-style" "ST" "宋体" "" "0.7" "" "" "")
(command "-style" "XST" "新宋体" "" "0.7" "" "" "")

这种方法对细明体（mingliu.ttc）好像不起作用。

Lanfeng · 发表于 2004-4-19 09:58:50

谢谢ll_j，原来如此简单～～～
细明体应该也可以，找到它在系统中注册的名称就行了吧

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

[求助] [求助]：碰到一个初始化功能lisp的问题

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

相关帖子

Re: [求助]：碰到一个初始化功能lisp的问题