第 3 章 数据库基础: 创建我们自己的Employee 对象
打开Lab3文件夹下的Lab3工程文件,或或接着Lab2的代码。
在这一章中,我们将创建一个‘Employee 对象’(包括一个圆,一个椭圆和一个多行文本对象),这个对象属于一个自定义的EmployeeBlock’块(这个块驻留在‘EmployeeLayer’层,当在模型空间插入这个块的时候,‘EmployeeLayer’层就会拥有这个块的一个块索引)。本章的每一个步骤中的代码都可以运行,这样做的目的可以使你更清楚地知道每一部分代码完成的功能。第一步将简要说明一下如何在模型空间创建一个圆。
这一章的重点是在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的静态成员ZAxis
circle
= 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()
Try
Dim
Circle As Circle = New Circle(New Point3d(10, 10, 0), Vector3d.ZAxis, 2.0)
[1] [2] [3] 下一页 [C语言系列]NET 中C#的switch语句的语法 [系统软件]托拽Explore中的文件到VB.net的窗口 [系统软件]Boost库在XP+Visual C++.net中的安装 [常用软件]新配色面板:Paint.Net3.0RC1官方下载 [常用软件]用内建的“Net Meeting”聊天 [VB.NET程序]Henry的VB.NET之旅(三)—共享成员 [VB.NET程序]Henry的VB.NET之旅(二)—构造与析构 [VB.NET程序]Henry的VB.NET之旅(一)—失踪的窗体 [VB.NET程序]在托盘上显示Balloon Tooltip(VB.NET) [VB.NET程序]Henry手记-VB.NET中动态加载Treeview节点(二)
|