找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1166|回复: 4

[ARX程序]:创建文本样式(ARX)

[复制链接]
发表于 2007-11-21 00:25:30 | 显示全部楼层 |阅读模式

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

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

×
//////////////////////////////////////////////////////////////////////////
//
//  功能: 创建文本样式
//
//  输入参数:
//        pStyleName: 文本样式名称
//        pFontName:  文本样式采用的字体名称,缺省为Consolas
//        dTextSize:  文本尺寸
//        bCurrent:   是否设为当前
//
//  输出参数:AcDbObjectId
//
//  作者:
//  
//  日期:2007-11-10
//
//  历史:无
//
//////////////////////////////////////////////////////////////////////////

AcDbObjectId CEUFUtility::CreateTextStyle(
        char *pStyleName,
        char *pFontName,
        double dTextSize,
         boolean bCurrent)
{

        AcDbTextStyleTable *pTextStyleTable;
        acdbHostApplicationServices()->workingDatabase()->getTextStyleTable(pTextStyleTable,AcDb::kForRead);  
       
        AcDbObjectId idTextStyle = AcDbObjectId::kNull;
       
        if (pTextStyleTable->has(pStyleName)) {
                pTextStyleTable->getAt(pStyleName,idTextStyle);
        }else
        {
                AcDbTextStyleTableRecord *pTextStyleTableRecord = new AcDbTextStyleTableRecord();
                pTextStyleTableRecord->setName(pStyleName);
                //To set the TextStyleTableRecord to use an SHX font,use setFileName() method.
                if (pFontName==NULL) {
                        pTextStyleTableRecord->setFont("Consolas",Adesk::kFalse,Adesk::kTrue,ANSI_CHARSET,DEFAULT_PITCH);
                }else
                {
                        pTextStyleTableRecord->setFont(pFontName,Adesk::kFalse,Adesk::kTrue,ANSI_CHARSET,DEFAULT_PITCH);
                }
                pTextStyleTableRecord->setTextSize(dTextSize);
                pTextStyleTableRecord->setIsVertical(Adesk::kFalse);
                pTextStyleTable->upgradeOpen();
                pTextStyleTable->add(idTextStyle,pTextStyleTableRecord);
                pTextStyleTableRecord->close();       
        }
       
        pTextStyleTable->close();
        //set it current
        if (bCurrent) {
                acdbHostApplicationServices()->workingDatabase()->setTextstyle(idTextStyle);
               
        }
        return idTextStyle;
}
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2007-11-21 12:44:40 | 显示全部楼层
不错,学习一下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-11-23 01:57:46 | 显示全部楼层
支持的人很少 呵呵
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2007-11-23 09:51:01 | 显示全部楼层
很好,谢谢搂主,初学者很需要这样的常用函数。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

发表于 2007-11-28 17:55:24 | 显示全部楼层
谢谢楼主,不错的东西
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-11 04:49 , Processed in 0.374900 second(s), 39 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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