写扩展词典程序

BDYCAD

//加扩展词典独立程序
bool SetEntityDictFromRbChain(AcDbObjectId entId,ACHAR *strDictName,resbuf* pRbValue)
{
AcDbEntityPointer pObj(entId,AcDb::kForWrite);
if (pObj.openStatus()!=Acad::eOk ) return false;
AcDbObjectId extDictId = pObj->extensionDictionary();
if (extDictId == AcDbObjectId::kNull)
{
  Acad::ErrorStatus es = pObj->createExtensionDictionary();
  if (es != Acad::eOk)
   return false;
  if ((extDictId = pObj->extensionDictionary()) == AcDbObjectId::kNull)
   return false;
}
AcDbDictionaryPointer pDict(extDictId,AcDb::kForRead);
if(pDict.openStatus() != Acad::eOk)
  return false;
AcDbObjectId xRecId;
if(pDict->getAt(strDictName,xRecId) != Acad::eOk)
{
  AcDbXrecord* pXrec = new AcDbXrecord();
  //pXrec 可以使用scoped_ptr
  pDict->upgradeOpen();
  if(pDict->setAt(strDictName,pXrec,xRecId) != Acad::eOk)
  {
   delete pXrec;
   return false;
  }
  pXrec->close();
}
AcDbObjectPointer<AcDbXrecord> pXrcord(xRecId,AcDb::kForWrite);
if(pXrcord.openStatus() != Acad::eOk) return false;
if(pXrcord->setFromRbChain(*pRbValue) != Acad::eOk) return false;
acutRelRb(pRbValue);
return true;
}

下面是调用增加扩展词典示例程序代码
ads_point p1;
  ads_name Ename,WKEname;
  AcDbObjectId ObjID,BMBKObjID;
  if (acedEntSel(_T("\n选对象1:"),WKEname,p1)!=RTNORM)return;
  acdbGetObjectId(BMBKObjID,WKEname);
  if (acedEntSel(_T("\n选对象2:"),Ename,p1)==RTNORM)
  {
   acdbGetObjectId(ObjID,Ename);
   acutRelRb(XreDa);
   XreDa=acutBuildList(RTENAME,WKEname,0);
   ACHAR Tempchar[MAX_PATH];
   _tcscpy(Tempchar,_T("TestXre"));
   SetEntityDictFromRbChain(ObjID,Tempchar,XreDa);
  }

今天测试，这个加词典的涵数在VS2008 写的ARX2010至2012均能成功加上，然后我把代码放上VS2012写的ARX2015去测试经过调试发现程序运行到if(pXrcord->setFromRbChain(*pRbValue) != Acad::eOk) return false; 这句就不成功退出程序。百思不得其解，发上来请教一下大侠们如何解决ARX2015上面增加词典与的这段小程序。

photo_cup

学习学习.............

CldMaster

路过，学习一下

highflybir

我这里返回的错误代码是：
eInvalidDxfCode            = 50,

highflybird 2014/11/10 19:17:22
无效的dxf代码

BDYCAD

自解决了：
问题发生在：   XreDa=acutBuildList(RTENAME,WKEname,0);这句， ARX2015和以往的ARX版本有不同之处。
在新建链表时如果acutBuildList涵数时里面使用了RTENAME、RTREAL、RTSTR、RTPOINT.....等方式来做，只能用在ARX2010版本以下。
到了ARX2015版本上面需要写词典的话，acutBuildList涵数里面要使用正规的DXF组码方式的链表，才可以成功写入。之前写ARX比较大意，到今天闲下来尝试才发现有这么一点点差别。特发上来得瑟一下！

在ARX2015正确的示例代码如下：
ads_point p1;
  ads_name Ename,WKEname;
  AcDbObjectId ObjID,BMBKObjID;
  if (acedEntSel(_T("\n选对象1:"),WKEname,p1)!=RTNORM)return;
  acdbGetObjectId(BMBKObjID,WKEname);
  if (acedEntSel(_T("\n选对象2:"),Ename,p1)==RTNORM)
  {
   acdbGetObjectId(ObjID,Ename);
   acutRelRb(XreDa);
   //XreDa=acutBuildList(RTENAME,WKEname,0);//合适ARX2010或以下版本用
   XreDa=acutBuildList(AcDb::kDxfSoftPointerId,WKEname,RTNONE);//合适ARX2015版本用
   ACHAR Tempchar[MAX_PATH];
   _tcscpy(Tempchar,_T("TestXre"));
   SetEntityDictFromRbChain(ObjID,Tempchar,XreDa);

highflybir

你把解决的那部分代码发上来，给我们看看。

cxjzxh

BDYCAD 发表于 2014-11-14 11:47
自解决了：
问题发生在：   XreDa=acutBuildList(RTENAME,WKEname,0);这句， ARX2015和以往的ARX版本有不同 ...

非常有用，感谢BDY