IDC资讯中心
第 4 章 数据库基础2: 添加自定义数据
在这一章中，我们将创建一个新的字典对象，它用来表示我们雇员就职的 ‘acme 公司‘（呵呵，当然是虚构的一家公司）的部门。这个“部门”字典对象将包含一个表示部门经理的记录。我们还会加入代码到雇员创建过程，这个过程会加入一个索引到雇员工作的部门。
我们要说明的是如何在dwg文件中创建自定义数据，包括“每个图形”的自定义数据和“每个实体”的自定义数据。“每个图形”的自定义数据是指只在整个图形中加入一次的数据，它表示对象可以引用的单一类型或特性。“每个实体”的自定义数据是指是为特定的对象或数据库中的实体加入的数据。
在下面的示例中，我们将加入“每个图形”的自定义数据到命名对象字典(简称nod)。nod存在于每一个dwg文件中。“每个实体”的自定义数据加入到一个名为“扩展字典”的字典（可选）中，它表示每一个雇员。每一个由dbobject派生的对象都拥有存储自定义数据的扩展字典。而在我们的示例中将包含这种自定义数据如名字、薪水和部门。
因此这一章的重点是字典对象和扩展记录（xrecord），它们是我们用来表示自定义数据的容器。
首先让我们来创建表示公司的条目。在本章的前几个步骤中，我们将创建如下所示的部门层次结构：
nod－命名对象字典
acme_division－自定义公司字典
销售(sales) －部门字典
部门经理－部门条目
请打开lab4文件夹下的lab4工程，或接着lab3的代码。
<!–[if !supportlists]–>1) <!–[endif]–>我们首先要做的是定义一个新的函数，它用来在命名对象字典(nod)中创建公司字典对象。为这个函数取名为
createdivision(),，并使用命令属性来定义createdivision命令。
下面是这个函数的代码，它的形式非常简单，只是用来在nod中创建一个acme_division（用来表示公司）
<commandmethod(“createdivision”)> _
public function createdivision()
dim db = hostapplicationservices.workingdatabase
dim trans as transaction = db.transactionmanager.starttransaction()
try
首先，获取nod……
dim nod as dbdictionary = trans.getobject(db.namedobjectsdictionaryid, openmode.forwrite, false)
定义一个公司级别的字典
dim acmedict as dbdictionary
try
如果acme_division不存在，则转到catch块，这里什么也不做
acmedict = trans.getobject(nod.getat(“acme_division”), openmode.forread)
catch
如果acme_division不存在，则创建它并把它加入到nod中……
acmedict = new dbdictionary()
nod.setat(“acme_division”, acmedict)
trans.addnewlycreateddbobject(acmedict, true)
end try
trans.commit()
finally
trans.dispose()
end try
end function
请仔细阅读一下上面的代码块的结构，可以通过注释来了解相关的细节。特别要注意的是我们是如何用一个try-catch块来处理acme_division是否存在？如果acme_division字典不存在，getobject()将会抛出异常，catch块被执行，它会创建一个新的字典。
运行这个函数来看它是否可行。可以使用数据库查看工具来检查字典是否已被加入（建议使用arx sdk的arxdbg工具）
<!–[if !supportlists]–>2) <!–[endif]–>接下来，我们要在acme_division字典中加入销售(sales)条目。销售(sales)条目同样也是一个字典。由于销售(sales)与acme_division字典的关系如同acme_division字典与nod，所以代码是类似的。定义下面的代码部分在acme_division字典中创建一个名为’sales’的字典。
代码提示：
code hint:
dim divdict as dbdictionary
try
divdict = trans.getobject(acmedict.getat(“sales”), openmode.forwrite)
catch
…
运行函数来看‘sales’条目是否已加入到acme_division字典。
<!–[if !supportlists]–>3) <!–[endif]–> 现在我们要在这个字典中加入一个特殊的记录，它可以包含任意的自定义数据。我们要加入的数据类型为扩展记录（xrecord），它可以包含任何东西，因此我们可以让它包含resultbuffer类的对象（就是有些人可能非常熟悉的‘resbuf’）。resultbuffer可以存储不同类型的预定义数据。扩展记录存储任意数目的resultbuffer关系列表，因此可能会很大。下表是可以包含在resultbuffer中一些数据类型（位于database类的dxfcode枚举中）：
|
start
|
0
|
|
|
text
|
1
|
|
|
xrefpath
|
1
|
|
|
shapename
|
2
|
|
|
blockname
|
2
|
|
|
attributetag
|
2
|
|
|
symboltablename
|
2
|
|
|
mstylename
|
2
|
|
|
symtablerecname
|
2
|
|
|
attributeprompt
|
3
|
|
|
dimstylename
|
3
|
|
|
linetypeprose
|
3
|
|
|
textfontfile
|
3
|
|
在下面的代码部分，我们将创建只包含一个resultbuffer的扩展记录。这个resultbuffer包含一个单一的的字符串值，它表示’sales’部门的部门经理的名字。我们使用和加入字典一样的方法加入扩展记录。唯一的区别是扩展记录与字典的不同：
mgrxrec = new xrecord()
mgrxrec.data = new resultbuffer(new typedvalue(dxfcode.text, “randolph p. brokwell”))
请看一下我们是怎样使用new来创建一个新的扩展记录。但我们也使用了new来创建一个resultbuffer，传入的参数是一个名为‘typedvalue’的对象。‘typedvalue’对象和c++中resbuf的成员‘restype’是类似的。这个对象一般表示一个特定类型的dxf值，我们使用它来组装诸如扩展数据或扩展记录之类的通用数据容器。在这里，我们简单地使用dxfcode.text键值和“randolph p. brokwell”数据值来定义一个typedvalue，然后把它作为单一的参数传入resultbuffer构造函数(由new来调用)中。
xrecord的’data’属性实际上正是扩展记录链的第一个resultbuffer，我们使用它来表示扩展记录链是从什么地方开始的。
所以接下来的代码块看起来和前面两个非常相似：
dim mgrxrec as xrecord
try
mgrxrec = trans.getobject(divdict.getat(“department manager”), openmode.forwrite)
catch
mgrxrec = new xrecord()
mgrxrec.data = new resultbuffer(new typedvalue(dxfcode.text, “randolph p. brokwell”))
divdict.setat(“department manager”, mgrxrec)
trans.addnewlycreateddbobject(mgrxrec, true)
end try
运行函数并使用数据库查看工具来确定部门经理已被加入到’sales’字典。
4) 我们已经定义了公司字典，现在我们要把每个雇员的数据加入到前一章定义的块索引中。我们要加入的数据是：名字、薪水和雇员所属的部门。要加入这些数据，我们要同前几个步骤一样使用扩展记录。因为我们要加入三个条目，所以我们要使扩展记录可以把这些数据联系在一起。
一般来说，扩展记录只能存在于字典中。而我们要为每个雇员加入这些数据（就是本章开头所讲的“每个图形”的自定义数据和“每个实体”的自定义数据），那应该怎么做呢？答案就是：每一个对象或autocad中的实体实际上都有一个名为’扩展字典（extension dictionary）’的可选字典。我们可以把扩展记录直接加入到这个字典中。
请回到我们在上一章创建的createemployee()函数。这个函数是我们创建块索引的地方。
让我们像前面的步骤一样来创建一个新的扩展记录。因为我们要加入3个条目，因此我们既可以使用resultbuffer的add方法（它会在扩展记录链中加入一个链接），也可以利用resultbuffer的构造函数（它的一种构造函数可以输入可变数量的参数）。
无论用哪一种方法，请在createemployee()函数中使用resultbuffer来创建一个新的xrecord，resultbuffer包括以下的类型和值：
text – “earnest shackleton” (或是你选择的其它雇员的名字)
real – 72000 或者更多的薪水j
text – “sales” 雇员所在的部门
5) 要把上面的扩展记录加入到块索引，我们必须把它加入到扩展字典。通常这个字典是不存在的，除非它被明确地创建，块索引就是这种情况。要给一个对象创建扩展字典，你要调用它的成员‘createextensiondictionary()’。这个函数不返回任何值，所以要访问它创建的扩展字典，你还得使用对象的‘extensiondictionary’属性。你可以使用类似于以下的代码来创建并访问扩展字典：
br.createextensiondictionary()
dim brextdict as dbdictionary = trans.getobject(br.extensiondictionary(), openmode.forwrite, false)
由于扩展字典也是字典，我们可以和第3步一样在扩展字典中加入扩展记录。请完成有关的代码来创建和访问块索引的扩展字典，加入你在第4步中创建的扩展记录，然后把扩展记录加入到事务处理。
6) 返回到nod……因为在nod中创建公司字典只需要一次（就像创建employee块一样），因此我们应该把createdivision函数的命令属性去掉，而在createemployeedefinition()中调用这个函数。请自己完成这些改变。当所有这些都做完后，当create命令第一次运行的时候，所有的函数都会被调用。
7) 下面的步骤和上面的无关。我们将创建一个函数来遍历模型空间，以用来查找加入的employee对象（这里其实是块索引）的数目。在vb.net 或c#中，我们可以把模型空间块表记录（modelspace blocktablerecord）当作一个集合，这样就可以使用for each(c#是foreach)来遍历它。请仔细研究一下下面的代码片断：
dim id as objectid ‘首先，定义一个for循环要使用的objectid变量。
for each id in btr
dim ent as entity = trans.getobject(id, openmode.forread, false) 打开当前的对象!
一旦我们获得模型空间对象，你们就可以定义一个objectid变量，然后把它用于for each循环(c#是foreach)。
现在，我们需要使用一些方法来筛选雇员。我们知道模型空间中的对象都是实体，但不全是雇员。我们需要使用一些方法来加以区分。在这里，我们可以使用vb.net的typeof关键字并用ctype进行类型转换（c#是gettype函数和typeof）：
if typeof ent is blockreference then
dim br as blockreference = ctype(ent, blockreference)
…
上面讲的概念对于autocad编程是很重要的，因为容器对象经常包含不同类型的对象。你会在autocad程序的开发中经常碰到这种类型转化。
请定义一个名为employeecount()的函数，函数的结构如上所示，它用来统计模型空间中的块索引的数目。这个函数不会输出任何东西，但你可以使用逐步调试程序来查看整数变量的增加（每发现一个块索引对象）。
8) 接下来，为了把结果输出到命令行，我们需要使用application.documentmanager.mdiactivedocument.editor对象的服务。要使用它，请加入下面的代码：
imports autodesk.autocad.editorinput
imports autodesk.autocad.applicationservices
在函数的内部：
dim ed as editor = application.documentmanager.mdiactivedocument.editor
最后，在循环的后面确定找到了多少个块索引：
ed.writemessage(“employees found: {0}” + controlchars.lf, nemployeecount.tostring())
end of lab 4:
第四章结束
下面的代码片断演示了怎样获取employee对象的所有内容，包括acme_division字典中的部门经理的名字。这部分要在后面的章节中使用，但因为它和本章有关，因此我们把它放在本章作介绍。如果有时间的话，请阅读一下其中的代码来看看它是怎么使用的。它可以被直接放到你的类中并可以运行。命令的名字是printoutemployee。listemployee()函数接收一个objectid参数，它通过一个ref类型的字符串数组返回值（包含相应的雇员数据）。调用它的printoutemployee()函数只是用来在命令行中输出这些数据。
我们需要一个遍历并显示所有雇员数据的命令。
public shared sub listemployee(byval employeeid as objectid, byref saemployeelist() as string)
dim nemployeedatacount as integer
dim db = hostapplicationservices.workingdatabase
dim trans as transaction = db.transactionmanager.starttransaction() 开始事务处理。
try
dim ent as entity = trans.getobject(employeeid, openmode.forread, false) 打开当前对象!
if typeof ent is blockreference then
不是所有的块索引都有雇员数据，所以我们要处理错误
dim bhasourdict as boolean = true
dim employeexrec as xrecord
try
dim br as blockreference = ctype(ent, blockreference)
dim extdict as dbdictionary = trans.getobject(br.extensiondictionary(), openmode.forread, false)
employeexrec = trans.getobject(extdict.getat(“employeedata”), openmode.forread, false)
catch
bhasourdict = false 出现了错误……字典或扩展记录不能访问
end try
if bhasourdict then 如果获得扩展字典，而又有扩展记录……
调整雇员列表的大小来使得它能放三个条目…
redim preserve saemployeelist(saemployeelist.getupperbound(0) + 4)
加入雇员的名字
dim resbuf as typedvalue = employeexrec.data.asarray(0)
saemployeelist.setvalue(string.format(“{0}” + controlchars.lf, resbuf.value), nemployeedatacount)
nemployeedatacount += 1
加入雇员的薪水
resbuf = employeexrec.data.asarray(1)
saemployeelist.setvalue(string.format(“{0}” + controlchars.lf, resbuf.value), nemployeedatacount)
nemployeedatacount += 1
加入雇员所在的部门
resbuf = employeexrec.data.asarray(2)
dim str as string = resbuf.value()
saemployeelist.setvalue(string.format(“{0}” + controlchars.lf, resbuf.value), nemployeedatacount)
nemployeedatacount += 1
现在，让我们从公司字典中获取老板的名字
在nod中找到.
dim nod as dbdictionary = trans.getobject(db.namedobjectsdictionaryid, openmode.forread, false)
dim acmedict as dbdictionary = trans.getobject(nod.getat(“acme_division”), openmode.forread)
注意我们直接使用扩展数据…
dim salesdict as dbdictionary = trans.getobject(acmedict.getat(employeexrec.data.asarray(2).value), openmode.forread)
dim salesxrec as xrecord = trans.getobject(salesdict.getat(“department manager”), openmode.forread)
最后，把雇员的数据输出到命令行
resbuf = salesxrec.data.asarray(0)
saemployeelist.setvalue(string.format(“{0}” + controlchars.lf, resbuf.value), nemployeedatacount)
nemployeedatacount += 1
end if
end if
trans.commit()
finally
trans.dispose()
end try
end sub
<commandmethod(“printoutemployee”)> _
public shared function printoutemployee()
dim ed as editor = application.documentmanager.mdiactivedocument.editor
dim nemployeecount as integer = 0
dim nemployeedatacount as integer
声明我们将在下面使用的工具…
dim db = hostapplicationservices.workingdatabase
dim trans as transaction = db.transactionmanager.starttransaction() start the transaction.
try
首先，获取块表和模型空间块表记录
dim bt as blocktable = trans.getobject(hostapplicationservices.workingdatabase.blocktableid, openmode.forread)
dim btr as blocktablerecord = trans.getobject(bt(btr.modelspace), openmode.forread)
现在，我们需要把内容输出到命令行。这里可以有一个对象帮助我们：
下面的部分，我们将遍历模型空间:
dim id as objectid – 首先，定义一个objectid对象，用于for循环。
for each id in btr
dim ent as entity = trans.getobject(id, openmode.forread, false) 打开当前对象!
if typeof ent is blockreference then
dim saemployeelist(-1) as string 这是正确的…它被重新定义。
listemployee(id, saemployeelist)
dim semployeedata as string
if (saemployeelist.length = 4) then
ed.writemessage(“employee name: {0}”, saemployeelist(0))
ed.writemessage(“employee salary: {0}”, saemployeelist(1))
ed.writemessage(“employee division: {0}”, saemployeelist(2))
ed.writemessage(“division manager: {0}”, saemployeelist(3))
end if
end if
next
finally
end try
end function
