void CTestCommands::Writexrecorddata()
    {
        ads_name entName;
        ads_point pt;
        if(acedEntSel(_T("选择写扩展记录数据的实体:"),entName,pt) != RTNORM)
        {
            return;
        }
        AcDbObjectId objId;
        if(acdbGetObjectId(objId,entName) != Acad::eOk)
            return;


        struct resbuf* pData = acutBuildList(RTSTR,_T("Test"),RTLONG,4555,0);

        WriteXRecord(pData,objId,_T("TestRecordName"));

        acutRelRb(pData);
    }