明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1678|回复: 2

字型设定有问题

[复制链接]
发表于 2004-5-22 09:47:00 | 显示全部楼层 |阅读模式
我编写了一个字型设定函数,当打开STYLE对话框时FSTHZ式样名,在字体名中没有显示,用TEXT命令写字则是宋体字,如果我不用TEXTNAME变量而直接将"仿宋_GB2312"写入则没有问题,可我总不能一个字体写一段程序吧!!! (Defun Wzh-Set-Style (StyleName StyleHight Stylescale / Textname)
(cond ((= (strcase Stylename "STHZ")) (setq Textname "宋体"))
((= (strcase Stylename "FSTHZ")) (setq Textname "仿宋_GB2312"))
) ;cond
(if (= (tblobjname "STYLE" StyleName) nil)
(progn
(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 Textname) ;字型名称
'(4 . "") ;大字体文件名
)
)
)
)
(princ)
)
发表于 2004-5-22 10:32:00 | 显示全部楼层
看看你的COND,,,(= (...))


=函数后面只有一个参数的情况下都返回T
 楼主| 发表于 2004-5-22 11:44:00 | 显示全部楼层
(cond ((= (strcase Stylename) "STHZ") (setq Textname "宋体"))
((= (strcase Stylename) "FSTHZ") (setq Textname "仿宋_GB2312"))
) ;cond
竟然出现这种错误,丢人,浪费版主时间
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-6 02:37 , Processed in 0.195459 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表