Autodesk官方最新的.NET教程(三)(vb.net版)

** 第 ** ** 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 的圆:

  1<commandmethod("create")> _ 
  2
  3Public Function CreateEmployee() 
  4
  5‘  首先声明我们要使用的对象 
  6
  7Dim circle As Circle  ‘  这个是我们要加入到模型空间的圆 
  8
  9Dim btr As BlockTableRecord  ‘  要加入圆,我们必须打开模型空间 
 10
 11Dim bt As BlockTable  ‘  要打开模型空间,我们必须通过块表  (  BlockTable  )  来访问它 
 12
 13‘  我们使用一个名为  ‘Transaction’  的对象,把函数中有关数据库的操作封装起来 
 14
 15Dim trans As Transaction 
 16
 17‘  使用  TransactionManager  的  StartTransaction()  成员来开始事务处理 
 18
 19trans = HostApplicationServices.WorkingDatabase().TransactionManager.StartTransaction() 
 20
 21‘  现在创建圆……请仔细看这些参数——注意创建  Point3d  对象的  ‘New’  和  Vector3d  的静态成员  ZAxis 
 22
 23circle =  New Circle  (New Point3d(10, 10, 0), Vector3d.ZAxis, 2.0) 
 24
 25‘  我们需要获得块表和模型空间对象 
 26
 27‘  注意我们是用事务处理的成员  GetObject  来获取它们的  bt = trans.GetObject(HostApplicationServices.WorkingDatabase.BlockTableId, OpenMode.ForRead) 
 28
 29‘  现在,我们声明了一个  ObjectId  对象用来表示模型空间块表记录  … 
 30
 31Dim btrId As ObjectId = bt.Item(btr.ModelSpace) 
 32
 33‘  使用这个  ObjectId  对象来获取块表记录对象  –  注意我们是打开它用来写入 
 34
 35btr = trans.GetObject(btrId, OpenMode.ForWrite) 
 36
 37‘  现在使用  btr  对象来加入圆 
 38
 39btr.AppendEntity(circle) 
 40
 41trans.AddNewlyCreatedDBObject(circle, True)  ’  并确定事务处理知道要加入圆! 
 42
 43trans.Commit()  ’  一旦完成以上操作,我们就提交事务处理,这样以上所做的改变就被保存了…… 
 44
 45trans.Dispose()  ’ …  然后销毁事务处理,因为我们已经完成了相关的操作(事务处理不是数据库驻留对象,可以销毁) 
 46
 47End Function 
 48
 49请仔细阅读一下上面的代码块的结构,可以通过注释来了解相关的细节。 
 50
 51注意:要编译代码,你必须导入  Autodesk  .  AutoCAD  .  DatabaseServices  和  Autodesk  .  AutoCAD  .  Geometry  命名空间 
 52
 53_ 运行这个函数来看看它是否可行。应该会在图形中创建一个在  (10,10,0)  处的半径为  2.0  的白色的圆。  _ _ _
 54
 55** 2)  ** 我们可以减少代码的输入量,这可以通过声明一个  Database  变量代替  HostApplicationServices.WorkingDatabase  来实现: 
 56
 57Dim db as Database = HostApplicationServices.WorkingDatabase() 
 58
 59使用这个变量来代替在代码中出现的  HostApplicationServices.WorkingDatabase()  。 
 60
 61** 3)  ** 注意:  bt.Item(btr.ModelSpace)  用来获取模型空间块表记录的  ObjectId  。我们也可以使用  BlockTable  的可数化属性来做同样的事: 
 62
 63bt(btr.ModelSpace) 
 64
 65上面的方法使代码变得容易和精简(像下面一样改变有关的代码  ): 
 66
 67bt = trans.GetObject(db.BlockTableId, OpenMode.ForRead) 
 68
 69btr = trans.GetObject(bt(btr.ModelSpace), OpenMode.ForWrite) 
 70
 71** 4)  ** 在上面的代码中,我们没有使用任何异常处理,而异常处理对一个正确的  .NET  应用程序来说是非常重要的。我们要养成使用异常处理的好习惯,所以让我们在这个函数中加入  T  ry-  C  atch-  F  inally  。 
 72
 73** 5)  ** 为了使代码紧凑,我们可以把许多变量的声明和初始化放在同一个语句中。现在,你的代码看起来应该是这样的: 
 74
 75<commandmethod("create")> _ 
 76
 77Public Function CreateEmployee() 
 78
 79Dim db As Database = HostApplicationServices.WorkingDatabase() 
 80
 81Dim trans As Transaction = db.TransactionManager.StartTransaction() 
 82
 83Try 
 84
 85Dim Circle As Circle = New Circle(New Point3d(10, 10, 0), Vector3d.ZAxis, 2.0) 
 86
 87Dim bt as BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForRead) 
 88
 89Dim btr as BlockTableRecord = trans.GetObject(bt(btr.ModelSpace), OpenMode.ForWrite) 
 90
 91btr.AppendEntity(circle) 
 92
 93trans.AddNewlyCreatedDBObject(circle, True) 
 94
 95trans.Commit() 
 96
 97Catch 
 98
 99MsgBox("Error Adding Entities") 
100
101Finally 
102
103trans.Dispose() 
104
105End Try 
106
107End Function 
108
109运行你的代码来进行测试…… 
110
111上面的  catch  块只显示一个错误信息。实际的清理工作是在  finally  块中进行的。这样做的理由是如果在事务处理被提交(  Commit()  )之前,  Dispose()  被调用的话,事务处理会被  销毁。我们认为如果在  trans.Commit()  之前出现任何错误的话,你应该销毁事务处理(因为  Commit  将永远不会被调用)。如果在  Dispose()  之前调用了  Commit()  ,也就是说没有任何错误发生,那么事务处理将会被提交给数据库。 
112
113所以基于上面的分析,  Catch  块其实并不是必须的,因为它只用来通知用户程序出现了一个错误。它将在下面的代码中被去掉。 
114
115** 6)  ** 现在让我们在  Employee  加入剩下的部分:椭圆和多行文本的实例。 
116
117现在让我们在  Employee  加入剩下的部分:椭圆和多行文本的实例。 
118
119多行文本实体: 
120
121中心点应该与圆心的创建一样: 
122
123(建议:创建一个名为  ‘center’  而值为  10,10,0  的  Point3d  变量来表示中心点) 
124
125多行文本的内容可以是你的名字。 
126
127椭圆(提示:你可以先看一下  Ellipse  的构造函数) 
128
129法向量应该沿着  Z  轴(请查看  Vector3d  类型) 
130
131主轴设为  Vector3d(3,0,0)  (提示:不要忘了用  new  ) 
132
133半径比例设为  0.5 
134
135椭圆还必须闭合(也就是说,开始和结束点必须相同) 
136
137运行你的代码来进行测试……应该可以生成一个圆、一个椭圆和一个中心点在  10,10,0  的多行文本。  _ _
138
139注意:和事务处理对象有关的  .NET API  中的  Try-Catch-Finally  块结构,应该是异常观察者。实际上我们是在  try  块中实例化对象的,但没有显式地销毁它们。当产生异常的时候可能会产生问题,特别是当观察者注意到我们实际上用的是封装的非托管对象!记住,当资源不再使用的时候,垃圾收集机制就会回收内存。垃圾收集机制会不时的调用封装类的  Dispose()  方法,删除非托管对象。 
140
141这里还要注意的是  Dispose()  作用于封装的非托管类对象的方式取决于对象是否是数据库驻留对象。由非数据库驻留对象调用的  Dispose()  会删除非托管对象,而由数据库驻留对象调用的  Dispose()  只是关闭它们。 
142
143** 7)  ** 接下来让我们来创建一个新的函数,它用来新建一个颜色为黄色,名字为  “EmployeeLayer”  的  AutoCAD  层。 
144
145这个函数应该检查是否这个层已经存在,但不管这个层是否存在,函数都应该返回  “EmployeeLayer”  的  ObjectId  。下面是这个函数的代码:  ** **
146
147Public Function CreateLayer() As ObjectId 
148
149Dim layerId As ObjectId  '  它返回函数的值 
150
151Dim db As Database = HostApplicationServices.WorkingDatabase 
152
153Dim trans As Transaction = db.TransactionManager.StartTransaction() 
154
155'  首先取得层表…… 
156
157Dim lt As LayerTable = trans.GetObject(db.LayerTableId, OpenMode.ForWrite) 
158
159'  检查  EmployeeLayer  层是否存在…… 
160
161If lt.Has("EmployeeLayer") Then 
162
163layerId = lt.Item("EmployeeLayer") 
164
165Else 
166
167'  如果  EmployeeLayer  层不存在,就创建它 
168
169Dim ltr As LayerTableRecord = New LayerTableRecord() 
170
171ltr.Name = "EmployeeLayer"  //  设置层的名字 
172
173layerId = lt.Add(ltr) 
174
175trans.AddNewlyCreatedDBObject(ltr, True) 
176
177End If 
178
179trans.Commit() 
180
181trans.Dispose() 
182
183Return layerId 
184
185End Function 
186
187是不是觉得这个函数的基本结构与在模型空间加入实体的代码比较类似?访问数据库的方法都是这样的:使用事务处理来获取数据库对象,在符号表(模型空间所在的块表也是符号表之一)中加入实体,然后让事务处理知道。 
188
189** 8)  ** 在这个函数中加入异常处理,就像在  CreateEmployee  函数中的一样。 
190
191** 9)  ** 接下来,改变新建层的颜色。下面是实现的代码片断,请把它加入到你的代码中: 
192
193ltr.Color = Color.FromColorIndex(ColorMethod.ByAci, 2) 
194
195注意:  ColorMethod.ByAci  可以让我们使用  AutoCAD ACI  颜色索引……这里为  2  (表示黄色)。 
196
197** 10)  ** 回到  CreateEmployee()  ,加入把上面创建的几个实体设置到  EmployeeLayer  层的代码。声明一个类型为  ObjectId  的变量,用  CreateLayer  函数的返回值给它赋值。使用每个实体(文本、圆和椭圆)的  L  ayerId  属性设置它们所在的层。 
198
199例如:  text.LayerId = empId 
200
201运行代码来查看  _ “EmployeeLayer”  _ _ 层  _ _ 是否已被创建,所有已创建的实体是否都在这一层上(应该显示为黄色)  _ _ _
202
203** 11)  ** 现在为各个实体设置不同的颜色,可以使用  ColorIndex  属性(  ColorIndex  属性表示  AutoCAD  的颜色) 
204
205圆为红色-  1 
206
207椭圆为绿色-  3 
208
209文本为黄色-  2 
210
211_ _
212
213运行代码,看看实体的颜色是否为设置的值,即使这些实体是在  _ “EmployeeLayer”  _ _ 层上。  _ _ _
214
215** 12)  ** 接下来,我们要在  AutoCAD  数据库中创建一个独立的块,然后把它插入到块表而不是模型空间中。 
216
217首先把  CreateEmployee  函数的名字改为  CreateEmployeeDefinition()  。 
218
219加入以下代码来创建一个独立的块: 
220
221Dim myBtr As BlockTableRecord = New BlockTableRecord() 
222
223myBtr.Name = "EmployeeBlock" 
224
225Dim myBtrId As ObjectId = bt.Add(myBtr) 
226
227trans.AddNewlyCreatedDBObject(myBtr, True) 
228
229** 13)  ** 现在,请稍微改动一下加入实体到模型空间的代码(改为加入块到块表中,记得加入前要打开块表)。 
230
231_ 现在运行代码,然后使用  _ _ INSERT  _ _ 命令来检查是否可以正确插入这个块。  _
232
233** 14)  ** &lt;span la</commandmethod("create")></commandmethod("create")>
Published At
Categories with Web编程
Tagged with
comments powered by Disqus