AcDbXrecord 和vlax-ldata-put有什么关系啊？
为什么我用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 = 100;
pt = 100;
pt = 0;
pRb = acutBuildList(AcDb::kDxfText, entType,
AcDb::kDxfInt32, 12,
AcDb::kDxfReal, 3.14,
AcDb::kDxfXCoord, pt,
RTNONE);
pXrec->setFromRbChain(*pRb);
pXrec->close();
acutRelRb(pRb);
}
页:
[1]