Thank you for replay. I've already took a look that site.
This is my code below. What is wrong?
var database = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Database;
Document doc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument;
Editor ed = doc.Editor;
var SolidClassName = RXObject.GetClass(typeof(Solid3d)).Name;
var TINClassName = RXObject.GetClass(typeof(TinSurface)).Name;
var AlignmentClassName = RXObject.GetClass(typeof(Alignment)).Name;
var dictionaryPropertyDataFormat = new DictionaryPropertyDataFormat(database);
using (Transaction transaction1 = database.TransactionManager.StartTransaction())var propertySetDefinition = new PropertySetDefinition();
propertySetDefinition.SetToStandard(database);
propertySetDefinition.SubSetDatabaseDefaults(database);
propertySetDefinition.AlternateName = propertySetName;
propertySetDefinition.IsLocked = false;
propertySetDefinition.IsVisible = true;
propertySetDefinition.IsWriteable = true;
//適用タブ
var filters = new StringCollection();
filters.Add(SolidClassName);
filters.Add(TINClassName);
filters.Add(AlignmentClassName);
propertySetDefinition.SetAppliesToFilter(filters, false);
//定義タブ
var autoPropDef = new PropertyDefinition();
autoPropDef.SetToStandard(database);
autoPropDef.SubSetDatabaseDefaults(database);
autoPropDef.Name = "オブジェクトID";
autoPropDef.Automatic = true;
autoPropDef.IsVisible = true;
autoPropDef.IsReadOnly = false;
autoPropDef.FormatId = dictionaryPropertyDataFormat.GetAt("Standard");
autoPropDef.SetAutomaticData(SolidClassName, "ObjectID");
//autoPropDef.DataType = Autodesk.Aec.PropertyData.DataType.AutoIncrement;
propertySetDefinition.Definitions.Add(autoPropDef);
propertySetDefinition.SetDisplayOrder(autoPropDef, 1);