第 3 章 数据库基础:  创建我们自己的Employee 对象 打开Lab3文件夹下的Lab3工程文件，或或接着Lab2的代码。在这一章中，我们将创建一个‘Employee 对象’（包括一个圆，一个椭圆和一个多行文本对象），这个对象属于一个自定义的EmployeeBlock’块（这个块驻留在‘EmployeeLayer’层，当在模型空间插入这个块的时候，‘EmployeeLayer’层就会拥有这个块的一个块索引）。本章的每一个步骤中的代码都可以运行，这样做的目的可以使你更清楚地知道每一部分代码完成的功能。第一步将简要说明一下如何在模型空间创建一个圆。 <!--[if !vml]--><!--[endif]--> 这一章的重点是在AutoCAD中访问数据库的基础。主要内容包括事务处理（Transaction）、对象Id（ObjectId）、符号表（symbol tables，如块表BlockTable和层表LayerTable）以及对象引用。使用的其它一些对象如颜色Color、三维点Point3d和三维向量Vector3d，都和各自的步骤有关，但重点应该放在数据库基础上。1)    创建一个名为‘CREATE’的命令，它调用函数CreateEmployee()。这个函数用来在模型空间(MODELSPACE)的（10，10，0）点处创建一个半径为2.0的圆： <CommandMethod("CREATE")> _Public Function CreateEmployee()‘首先声明我们要使用的对象Dim circle As Circle ‘这个是我们要加入到模型空间的圆Dim btr As BlockTableRecord ‘要加入圆，我们必须打开模型空间Dim bt As BlockTable ‘要打开模型空间，我们必须通过块表(BlockTable)来访问它  ‘我们使用一个名为‘Transaction’的对象，把函数中有关数据库的操作封装起来Dim trans As Transaction ‘使用TransactionManager的StartTransaction()成员来开始事务处理trans = HostApplicationServices.WorkingDatabase().TransactionManager.StartTransaction()‘现在创建圆……请仔细看这些参数——注意创建Point3d对象的‘New’和Vector3d的静态成员ZAxiscircle = New Circle(New Point3d(10, 10, 0), Vector3d.ZAxis, 2.0) ‘我们需要获得块表和模型空间对象‘注意我们是用事务处理的成员GetObject来获取它们的bt = trans.GetObject(HostApplicationServices.WorkingDatabase.BlockTableId, OpenMode.ForRead)‘现在，我们声明了一个ObjectId对象用来表示模型空间块表记录…Dim btrId As ObjectId = bt.Item(btr.ModelSpace)‘使用这个ObjectId对象来获取块表记录对象–注意我们是打开它用来写入btr = trans.GetObject(btrId, OpenMode.ForWrite) ‘现在使用btr对象来加入圆btr.AppendEntity(circle)trans.AddNewlyCreatedDBObject(circle, True) ’ 并确定事务处理知道要加入圆！ trans.Commit() ’ 一旦完成以上操作，我们就提交事务处理，这样以上所做的改变就被保存了……trans.Dispose() ’ …然后销毁事务处理，因为我们已经完成了相关的操作（事务处理不是数据库驻留对象，可以销毁）End Function 请仔细阅读一下上面的代码块的结构，可以通过注释来了解相关的细节。注意：要编译代码，你必须导入Autodesk.AutoCAD.DatabaseServices 和Autodesk.AutoCAD.Geometry命名空间 运行这个函数来看看它是否可行。应该会在图形中创建一个在(10,10,0)处的半径为2.0的白色的圆。 2)    我们可以减少代码的输入量，这可以通过声明一个Database变量代替HostApplicationServices.WorkingDatabase来实现：       Dim db as Database = HostApplicationServices.WorkingDatabase() 使用这个变量来代替在代码中出现的HostApplicationServices.WorkingDatabase()。  3)    注意：bt.Item(btr.ModelSpace)用来获取模型空间块表记录的ObjectId。我们也可以使用BlockTable的可数化属性来做同样的事： bt(btr.ModelSpace) 上面的方法使代码变得容易和精简（像下面一样改变有关的代码):             bt = trans.GetObject(db.BlockTableId, OpenMode.ForRead)            btr = trans.GetObject(bt(btr.ModelSpace), OpenMode.ForWrite) 4)    在上面的代码中，我们没有使用任何异常处理，而异常处理对一个正确的.NET应用程序来说是非常重要的。我们要养成使用异常处理的好习惯，所以让我们在这个函数中加入Try-Catch-Finally。 5)    为了使代码紧凑，我们可以把许多变量的声明和初始化放在同一个语句中。现在，你的代码看起来应该是这样的： <CommandMethod("CREATE")> _Public Function CreateEmployee()Dim db As Database = HostApplicationServices.WorkingDatabase()Dim trans As Transaction = db.TransactionManager.StartTransaction()TryDim 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) trans.Commit()CatchMsgBox("Error Adding Entities")Finallytrans.Dispose()End TryEnd Function 运行你的代码来进行测试……上面的catch块只显示一个错误信息。实际的清理工作是在finally块中进行的。这样做的理由是如果在事务处理被提交（Commit()）之前，Dispose()被调用的话，事务处理会被 销毁。我们认为如果在trans.Commit()之前出现任何错误的话，你应该销毁事务处理（因为Commit将永远不会被调用）。如果在Dispose()之前调用了Commit()，也就是说没有任何错误发生，那么事务处理将会被提交给数据库。所以基于上面的分析，Catch块其实并不是必须的，因为它只用来通知用户程序出现了一个错误。它将在下面的代码中被去掉。6)    现在让我们在Employee加入剩下的部分：椭圆和多行文本的实例。现在让我们在Employee加入剩下的部分：椭圆和多行文本的实例。    &