实体的扩展数据xdata怎么删除啊？

实体的扩展数据xdata怎么删除啊？
（除了利用删除RegAppTable记录的方法之外）
当我给实体重新赋予xdata后，扩展数据只是增多了。
这时可以用两个应用程序名分别进行访问。

BlockReference br = (BlockReference)tr.GetObject(id, OpenMode.ForWrite, false);
                            if (br.XData != null)
                            {
                                string regAppName = id.Handle.Value + "_XData";
                                TypedValue[] Values = br.XData.AsArray();
                                Values[0] = new TypedValue((int)DxfCode.ExtendedDataRegAppName, regAppName);

                                //注册新程序名
                                SymbolTable sTable = (SymbolTable)tr.GetObject(CurDataBase.RegAppTableId, OpenMode.ForWrite, false);
                                if (!sTable.Has(regAppName))
                                {
                                    RegAppTableRecord ratr = new RegAppTableRecord();
                                    ratr.Name = regAppName;
                                    sTable.Add(ratr);
                                    tr.AddNewlyCreatedDBObject(ratr, true);
                                }
                                br.UpgradeOpen();
                               // br.XData = null;//没有用的。                               
                                br.XData = new ResultBuffer(Values);
                                br.DowngradeOpen();
                            }

没有用啊，扩展数据增多了，并没有覆盖原来的。

搞不清，为什么给扩展数据重新赋值,xdata总是接着后面增加？
就向在执行ResultBuffer.add()一样。

解决方案
To remove an appName (and its xdata) from an object, just use a resbuf with restype == 1001, resval == and no data resbufs following it (that is, either its rbnext == NULL or the next resbuf is another 1001).

删除实体的扩展数据#region 删除实体的扩展数据 
[CommandMethod("ClearXdata")] 
public void ClearXdata() 
{ 
Document doc = Application.DocumentManager.MdiActiveDocument; 
Editor ed = doc.Editor; 
Database CurDataBase = doc.Database; 
PromptEntityOptions peo = new PromptEntityOptions("选择实体"); 
PromptEntityResult per = ed.GetEntity(peo); 
if (per.Status == PromptStatus.OK) 
{ 
PromptStringOptions pso = new PromptStringOptions("应用程序名为"); 
PromptResult pr = ed.GetString(pso); 
if (pr.Status == PromptStatus.OK) 
{ 
RemoveAppName(per.ObjectId, pr.StringResult.Trim()); 
} 
} 
} 

#endregion 

/**//// <summary> 
/// 移除实体应用程序名（xdata） 
/// </summary> 
/// <param name="Objid"></param> 
/// <param name="sAppName"></param> 
public static void RemoveAppName(ObjectId objId, string sAppName) 
{ 
try 
{ 
using (Transaction tr = Tools.TransactionManager.StartTransaction()) 
{ 
DBObject obj = tr.GetObject(objId, OpenMode.ForWrite); 
ResultBuffer rb = obj.XData; 
if (rb != null) 
{ 
TypedValue[] values = rb.AsArray(); 
for (int i = 0; i < values.Length; i++) 
{ 
if (values[i].TypeCode == (int)DxfCode.ExtendedDataRegAppName && values[i].Value.ToString() == sAppName) 
{ 
//移除之 
TypedValue[] values_New ={ new TypedValue((int)DxfCode.ExtendedDataRegAppName, values[i].Value.ToString()) }; 
ResultBuffer rb_New = new ResultBuffer(values_New); 
obj.UpgradeOpen(); 
obj.XData = rb_New; 
obj.DowngradeOpen(); 
} 
} 
} 
tr.Commit(); 
} 
} 
catch (System.Exception exc) 
{ 
Tools.ShowMessage(exc.Message); 

} 
} 


应用：
比如对一个实体复制粘贴后，两个实体就有相同的RegName1的扩展数据了。为了不删除原先实体的扩展数据，怎么修改新实体的扩展数据。(让新实体只有一个RegName的扩展数据)