明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1306|回复: 0

AcDbXrecord 和vlax-ldata-put有什么关系啊?

[复制链接]
发表于 2015-4-16 17:30 | 显示全部楼层 |阅读模式
为什么我用Lisp(vlax-ldata-put "Userdict" "BYSCALE" 1)
用arx读,返回pRb为Null呢?
double GetNameDictDouble(ACHAR* dict,ACHAR* key)        //(vlax-ldata-get "Userdict" "BYSCALE")       
{

        ZffCHAP5AddNameDict();
        ZffCHAP5ViewNameDict();
        Acad::ErrorStatus es;
        struct resbuf *pRb;
        AcDbObjectId xrecObjId;
        double ret;

        // 获得有名对象字典,向其中添加指定的字典项
        AcDbDictionary *pNameObjDict, *pDict;
        acdbHostApplicationServices()->workingDatabase()->getNamedObjectsDictionary(pNameObjDict,AcDb::kForWrite);
        // 检查所要添加的字典项是否已经存在
        AcDbObjectId dictObjId;
        es=pNameObjDict->getAt(dict, (AcDbObject*&)pDict,AcDb::kForWrite);
        if ( es== Acad::eKeyNotFound)
        {
                pDict = new AcDbDictionary;
                pNameObjDict->setAt(dict, pDict, dictObjId);
                pDict->close();

                pNameObjDict->close();
                // 向新建的字典中添加一个扩展记录
               
                AcDbXrecord *pXrec = new AcDbXrecord;
                acdbOpenObject(pDict, dictObjId, AcDb::kForWrite);
                pDict->setAt(key, pXrec, xrecObjId);
                pDict->close();

                pRb = acutBuildList(AcDb::kDxfReal, 1,        //把BYSCALE设为1
                        0);
                pXrec->setFromRbChain(*pRb);
                pXrec->close();
                acutRelRb(pRb);
                return 1;
                //pRb->resval.rreal
        }
        pNameObjDict->close();
        // 获得指定的对象字典
        AcDbXrecord *pXrec;
        es=pDict->getAt(key, (AcDbObject*&)pXrec, AcDb::kForWrite);
        if ( es== Acad::eKeyNotFound)
        {
                //pDict->close();
                //es=pDict->getAt(key, (AcDbObject*&)pXrec, AcDb::kForWrite);
                pDict->setAt(key, pXrec, xrecObjId);
                pDict->close();

                pRb = acutBuildList(AcDb::kDxfReal, 1,        //把BYSCALE设为1
                        0);
                pXrec->setFromRbChain(*pRb);
                pXrec->close();
                acutRelRb(pRb);
        }
        pDict->close();
        // 获得扩展记录的数据链表并关闭扩展数据对象
        es=pXrec->rbChain(&pRb);
        pXrec->close();
        if (pRb != NULL)
        {
                ret= pRb->resval.rreal;
                acutRelRb(pRb);
                return ret;
        }
        else
                return 1;

}


同样,我在arx中设置的MyDict,XRecord在Lisp里同样读不出来
void ZffCHAP5AddNameDict()
{
        // 要在扩展记录中保存的字符串
        char entType[] = {"直线"};
        struct resbuf *pRb;
        // 获得有名对象字典,向其中添加指定的字典项
        AcDbDictionary *pNameObjDict, *pDict;
        acdbHostApplicationServices()->workingDatabase()
                ->getNamedObjectsDictionary(pNameObjDict,
                AcDb::kForWrite);
        // 检查所要添加的字典项是否已经存在
        AcDbObjectId dictObjId;
        if (pNameObjDict->getAt(L"MyDict", (AcDbObject*&)pDict,
                AcDb::kForWrite) == Acad::eKeyNotFound)
        {
                pDict = new AcDbDictionary;
                pNameObjDict->setAt(L"MyDict", pDict, dictObjId);
                pDict->close();
        }
        pNameObjDict->close();
        // 向新建的字典中添加一个扩展记录
        AcDbObjectId xrecObjId;
        AcDbXrecord *pXrec = new AcDbXrecord;
        acdbOpenObject(pDict, dictObjId, AcDb::kForWrite);
        pDict->setAt(L"XRecord", pXrec, xrecObjId);
        pDict->close();
        // 设置扩展记录的内容
        ads_point pt;
        pt[X] = 100;
        pt[Y] = 100;
        pt[Z] = 0;
        pRb = acutBuildList(AcDb::kDxfText, entType,
                AcDb::kDxfInt32, 12,
                AcDb::kDxfReal, 3.14,
                AcDb::kDxfXCoord, pt,
                RTNONE);
        pXrec->setFromRbChain(*pRb);
        pXrec->close();
        acutRelRb(pRb);
}

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

本版积分规则

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

GMT+8, 2024-3-28 20:04 , Processed in 0.242930 second(s), 22 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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