Removing xdata attached to an entity regardless of the appname

Oct 25, 2012

—

The following ObjectARX / Lisp code removes XData that is attached to an entity regardless of the APPNAME. Use it with caution and only if you need to do this, since removing XData from an entity without considering the appname may cause plug-ins that rely on them to misbehave.

Here is the ObjectARX code :

static void AdskTestCommand(void)
{
    ads_name eNam;
    ads_point pt;
    int ret;
    ret = acedEntSel(ACRX_T("nPick an entity :"), eNam, pt);
    if (RTNORM != ret)
        return;
 
    AcDbObjectId ObjId;
    acdbGetObjectId(ObjId, eNam);
 
    AcDbEntity *pEnt = NULL;
    Acad::ErrorStatus es 
           = acdbOpenAcDbEntity(pEnt, ObjId, AcDb::kForWrite);
 
    resbuf *xdata = pEnt->xData(NULL);
    if (xdata)
    {
        xdata->rbnext = NULL;
        pEnt->setXData(xdata);
        acutRelRb(xdata);
    }
    pEnt->close();
}

Here is the Lisp code:

(defun c:DelXdata()
(setq l (car (entsel “Pick object:”)))
(if l (progn
     (redraw l 3)
     (setq le (entget l ‘(“*”)) )
     (setq xdata (assoc ‘-3 le))
     (setq le
           (subst (cons (car xdata) (list (list (car (car (cdr xdata))))))
xdata le))
     (entmod le)
     (redraw l 4)
     le
    )
)
)

Comments

5 responses to “Removing xdata attached to an entity regardless of the appname”

petcon

July 16, 2015

how to removing xrecord AND xdict attached to an entity regardless of the appname

Loading…

Reply
Alexander Rivilis

July 24, 2015

Both dictionary and xrecord has not appname. What do you mean?

Loading…

Reply
petcon

July 26, 2015

sorry,long time no playing with objectarx. i mean how to remove xrecord and xdict attacher to an entity. make an entity clean. 删除实体所带的所有信息，xdata xrecord xdict，好久不编程，不太记得一个实体能附加哪些信息了，想把实体所带的信息都删除干净。求杜长宇翻译。daniel DU.

Loading…

Reply
Alexander Rivilis

July 29, 2015

[code]
static void RemExtDict () {
Acad::ErrorStatus es;
ads_name en; ads_point p;
if (acedEntSel(_T("\nSelect Entity with ExtDictionary: "),en,p) != RTNORM)
return;
AcDbObjectId eId; acdbGetObjectId(eId, en);
AcDbEntityPointer pEnt(eId, AcDb::kForRead);
if (pEnt.openStatus() == Acad::eOk) {
AcDbObjectId idExtDict = pEnt->extensionDictionary();
if (idExtDict.isNull() || idExtDict.isErased()) {
acutPrintf(_T("\nEntity has not Extension Dictionary!"));
return;
}
{
AcDbDictionaryPointer pDict(idExtDict, AcDb::kForWrite);
if (pDict.openStatus() == Acad::eOk) {
AcDbObjectIdArray ids; ids.setPhysicalLength(pDict->numEntries()+1);
AcDbDictionaryIterator *pIter = pDict->newIterator();
for (; !pIter->done(); pIter->next()) {
ids.append(pIter->objectId());
}
delete pIter;
for (int i = 0; i < ids.length(); i++) {
pDict->remove(ids[i]);
}
}
}
if (pEnt->upgradeOpen() == Acad::eOk) {
es = pEnt->releaseExtensionDictionary();
if (es != Acad::eOk) {
acutPrintf(_T("\nError releaseExtensionDictionary() = %s"),
acadErrorStatusText(es));
}
}
}
}
[/code]

Loading…

Reply
petcon

January 23, 2016

i test the ObjectARX code up in the post static void AdskTestCommand(void).
i found there maybe a bug.
i use xdata test in arxdbg to add xdata to entity.
after xdatatest there are two xdata mason and connor. (use entity info in arxdbg)
after run ObjectARX code ,ther is one xdata left connor.
run ObjectARX code one more time ,ther is no xdata left.
so the objectarxcode remove xdata only can remove one xdata at one time.
i think that is not a good code .because the code can not do things right at one time

Loading…

Reply

Removing xdata attached to an entity regardless of the appname

Like this:

Comments

5 responses to “Removing xdata attached to an entity regardless of the appname”

Leave a ReplyCancel reply

Removing xdata attached to an entity regardless of the appname

Share this:

Like this:

Comments

5 responses to “Removing xdata attached to an entity regardless of the appname”

Leave a ReplyCancel reply

Discover more from Autodesk Developer Blog