see if this helps you
[CommandMethod("execa")]
public static void execa()
{
AcadApplication application = Application.AcadApplication as AcadApplication;
AcadDocument document = application.ActiveDocument;
AcadDatabase database = document.database;
try
{
AcadDictionaries dictionaries = database.Dictionaries;
AcadDictionary dictionary = dictionaries.Add("SWAMP");
AcadXRecord xRecord = dictionary.AddXRecord("SWAMPEXR");
List<Int16> types = new List<Int16>();
List<object> values = new List<object>();
types.Add(1);
values.Add("Hola");
types.Add(1);
values.Add("Swampers");
xRecord.SetXRecordData(types.ToArray(), values.ToArray());
}
catch (System.Exception ex)
{
document.Utility.Prompt(String.Format("\n{0}", ex.Message));
}
}
[CommandMethod("execb")]
public static void execb()
{
AcadApplication application = Application.AcadApplication as AcadApplication;
AcadDocument document = application.ActiveDocument;
AcadDatabase database = document.database;
try
{
AcadDictionaries dictionaries = database.Dictionaries;
AcadDictionary dictionary = dictionaries.Item("SWAMP") as AcadDictionary;
AcadXRecord xRecord = dictionary.Item("SWAMPEXR") as AcadXRecord;
object otypes;
object ovalues;
xRecord.GetXRecordData(out otypes, out ovalues);
Int16[] types = (Int16[])otypes;
object[] values = (object[])ovalues;
for (int i = 0; i < types.Length; i++)
{
document.Utility.Prompt(String.Format("({0} . {1})", types[i], values[i]));
}
}
catch (System.Exception ex)
{
document.Utility.Prompt(String.Format("\n{0}", ex.Message));
}
}