明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 860|回复: 0

求助:lisp语言添加文字样式的问题

[复制链接]
发表于 2016-2-15 20:02 | 显示全部楼层 |阅读模式
本帖最后由 a880110 于 2016-2-15 20:06 编辑

小弟在学习lisp的过程中遇到一个棘手问题,请教大神帮忙。
遇到的问题是要自动添加宋体的文字样式,我的代码如下
(defun c:test()
    (setvar "cmdecho" 0)
    (princ "\n程序运行中若发现问题,请与我联系QQ330839984")
    (command "_style" "宋体" "宋体" "0" "0.7" "0" "" "" "");准备字体
    (command "_style" "图签字体" "宋体" "0" "0.7" "0" "" "" "")
    (setq chklay1(tblsearch "layer" "图纸编号") chklay2(tblsearch "layer" "图纸名称"));准备图层
        (if (= chklay1 nil) (command "layer" "n" "图纸编号" "c" "6" "图纸编号" ""))
    (if (= chklay2 nil) (command "layer" "n" "图纸名称" "c" "3" "图纸名称" ""))

    (dydcl);调用对话框
    (juxing)
)

红色部分是用来生成文字样式的,这种方法生成的文字样式是以"宋体.shx"为基础的,我想要的文字样式是“宋体.ttc”即系统字体中的宋体,cad又不认ttc文件,改用ttf也不行,两种效果的区别如下面两图所示。



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-28 22:26 , Processed in 0.221968 second(s), 34 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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