Autodesk官方最新的.NET教程（三）（vb.net版）

<CommandMethod("CREATE")> _

Public Function CreateEmployee()

Dim db As Database = HostApplicationServices.WorkingDatabase()

Dim trans As Transaction = db.TransactionManager.StartTransaction()

Try

Dim Circle As Circle = New Circle(New Point3d(10, 10, 0), Vector3d.ZAxis, 2.0)

Dim bt as BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForRead)

Dim btr as BlockTableRecord = trans.GetObject(bt(btr.ModelSpace), OpenMode.ForWrite)

btr.AppendEntity(circle)

trans.AddNewlyCreatedDBObject(circle, True)