[ARX程序]：如何创建一个TrueType字体？

fqj

我想创建一个仿宋的字体，该如何实现？

XDSoft

字体的设置先设置“文字样式”，样式里面设置好字体。

然后在AcDbText对象里面，引用上面设置的文字样式。

fqj

我想创建一个Style，但是不知道用那个函数定义它的名称，另外，如果用TrueType字体，该如何设置呢

XDSoft

最初由 fqj 发布
[B]我想创建一个Style，但是不知道用那个函数定义它的名称，另外，如果用TrueType字体，该如何设置呢 [/B]

你要实例一个AcDbTextStyleTableRecord对象，最后把这个对象添加到AcDbTextStyleTable中。

AcDbTextStyleTableRecord对象，你可以使用SET类方法，设置字体等，比如AcDbTextStyleTableRecord::setFont(...)等等，具体去看ARX联机帮助关于AcDbTextStyleTableRecord类的帮助。

另外简单点的方法你可以直接运行ACAD命令style，如(command "-style......"根据交互过程，输入参数即可设置字型样式。

fqj

我曾尝试(command...的方法，当我给的参数为simfang.ttf时在Win98下没问题，但在W2k下提示Font file doesn't exist。你知道原因吗？

fqj

这段代码还缺啥？
Acad::ErrorStatus SetFont()
{
        Acad::ErrorStatus Er;       
        AcDbTextStyleTable * pTxt;
        Er=acdbCurDwg()->getTextStyleTable(pTxt,AcDb::kForWrite);
        if (Er!=Acad::eOk)
        {
                ads_alert("Error Get TextStyleTable");
                return Er;
        };
        AcDbTextStyleTableRecord* pRecord=new AcDbTextStyleTableRecord;
        pRecord->setFont("simfang.ttf",FALSE,FALSE,0,0);
        Er=pTxt->add(pRecord);
        pTxt->close();
        return Er;

}

XDSoft

最初由 fqj 发布
[B]这段代码还缺啥？
Acad::ErrorStatus SetFont()
{
        Acad::ErrorStatus Er;       
        AcDbTextStyleTable * pTxt;
        Er=acdbCurDwg()->getTextStyleTable(pTxt,AcDb::kForWrite);
        if (Er!=Acad::eOk)
        {
                ads_aler... [/B]

你没有设置样式名，用AcDbSymbolTableRecord::setName 设置下AcDbTextStyleTableRecord对象的名字，然后在添加到样式表中。

fqj

Acad::ErrorStatus Er;       
        AcDbTextStyleTable * pTxt;
        Er=acdbCurDwg()->getTextStyleTable(pTxt,AcDb::kForWrite);
        if (Er!=Acad::eOk)
        {
                ads_alert("Error Get TextStyleTable");
                return Er;
        };
        AcDbTextStyleTableRecord* pRecord=new AcDbTextStyleTableRecord;
        pRecord->setName("fqj");
        pRecord->setFont("仿宋_GB2312",FALSE,FALSE,134,49);
        AcDbObjectId Id;
        Er=pTxt->add(Id,pRecord);
        pRecord->close();
        pTxt->close();
        return Er;

XDSoft

最初由 fqj 发布
[B]Acad::ErrorStatus Er;       
        AcDbTextStyleTable * pTxt;
        Er=acdbCurDwg()->getTextStyleTable(pTxt,AcDb::kForWrite);
        if (Er!=Acad::eOk)
        {
                ads_alert("Error Get TextStyleTable");
                return Er;
        };
... [/B]

1. pRecord->setFont("仿宋_GB2312",FALSE,FALSE,134,49);
   

复制代码

这个里面你应该给一个具体的TTF文件名字，比如simplex_..ttf，这个字体要是当前系统已经安装的TTF字体，改改试试。

fqj

Acad::ErrorStatus SetFont()
{
        Acad::ErrorStatus Er;       
        AcDbTextStyleTable * pTxt;
        Er=acdbCurDwg()->getTextStyleTable(pTxt,AcDb::kForWrite);
        if (Er!=Acad::eOk)
        {
                ads_alert("Error Get TextStyleTable");
                return Er;
        };
        AcDbTextStyleTableRecord* pRecord=new AcDbTextStyleTableRecord;
        pRecord->setName("fqj");
        pRecord->setFont("仿宋_GB2312",FALSE,FALSE,134,49);
        AcDbObjectId Id;
        Er=pTxt->add(Id,pRecord);
        pRecord->close();
        pTxt->close();
        return Er;
}

XDSoft

最初由 fqj 发布
[B]Acad::ErrorStatus SetFont()
{
        Acad::ErrorStatus Er;       
        AcDbTextStyleTable * pTxt;
        Er=acdbCurDwg()->getTextStyleTable(pTxt,AcDb::kForWrite);
        if (Er!=Acad::eOk)
        {
                ads_alert("Error Get TextS... [/B]

解决了吗？

habit

这样做ＯＫ