CAD关于实体扩展记录操作（com接口网页版）

// 让用户在图上选择一个对象。           
var ent = mxOcx.GetEntity("选择实体");
if (ent == null)
    return;
// 得到实体扩展字典
var dict = ent.GetExtensionDictionary();
if (dict == null)
    return;
// 得到字典下自己写数据的字典
var myDict = dict.GetAt("MyDict");
if (myDict == null)
{
    return;
}
// 得到字典内扩展记录.
var rec = myDict.GetAt("MyGlobalData");
if (rec == null)
{
    return;
}
// 输出扩展记录中的数据.
var data = rec.GetXRecordData();
data.PrintData();

// 让用户在图上选择一个对象。       
var ent = mxOcx.GetEntity("选择实体");
if (ent == null)
    return;
// 写扩展字典
var param = mxOcx.NewResbuf();
//创建扩展字典，如果对象已经有扩展字典，该函数什么都不做。
ent.SetProp("createExtensionDictionary", param);
// 得到扩展字典
var dict = ent.GetExtensionDictionary();
if (dict == null)
    return;
// 向扩展字典中增加一个自己的字典，用于写自己的数据.
var myDict = dict.AddObject("MyDict", "McDbDictionary");
// 向字典中增加一个扩展记录。
var xRecord = myDict.AddXRecord("MyGlobalData");
if (xRecord == null)
    return;
// 做准备写入的扩展记录数据.
var xData2 = mxOcx.NewResbuf();
xData2.AddLong(99999);
xData2.AddDouble(666);
var ptTest = mxOcx.NewPoint();
ptTest.x = 77;
ptTest.y = -100;
xData2.AddPoint(ptTest);
xData2.AddString("TestApp2");
// 写入数据.
xRecord.SetXRecordData(xData2);