如何在CAD中进行地类面积的注记

牛宝云

摘 要：建立了用CAD的属性块进行土地图地块面积标注的基本思路，并给出编程实现输入、编辑、整理的主要逻辑过程和关键代码。

关键词：地类图斑；面积注记；属性块

在勘测定界图绘制中，要求注记各地块的面积、地类、地块号、权属单位名称，或者其中几项。不同情况和需求下，标注面积的单位可能是亩、平方米或公顷。在勘测定界报告中，需要按权属、按地块分别对各地类进行统计生成各种表格。在土地征用划拨时，更需要根据实测地物情况，结合土地利用现状图对征地范围线进行调整，从而多次反复地进行地类面积统计。为使上述工作中作到准确有效且成果清晰直接，最好的解决途径就是通过编程实现很方便地进行地类面积注记的生成、修改、整饰和统计。

多数作业单位的图件制作均采用AutoCAD及其二次开发的软件，一般软件中面积的注记都是生成文本，各文本之间不存在必需的关联，且修改、整饰等操作很难统一完成，即使编程也存在难以构造选择集的问题。尽管有些软件将这些软件形成一个编组，但仍不能有效地统一地管理它们，而且在有些情况下，编组信息还会丢失。利用属性块进行地类图斑注记就能很好的来解决这一问题，从而大大提高工作效率和准确性。

一、属性块的概念

属性块是指在一个块的定义中，以Attdef命令加入属性（Attrribute），其各种操作均与单行文类似，但在块引用中的文本只能炸开后方可修改，属性则可在块内修改其内容、位置、大小、字型等。笔者在工作中使用的属性块的定义如下：

其中权属、地块号、地类号比较明确，平米是为方便保存该注记所指向地块的实际面积的平方米值，它具有不可见的特性，在插入的块引用中，即不显示也不打印。而面积是指显示值，不同单位和保留位数要求可变化，具体显示值按平米值计算，避免了精度损失。

二、程序结构

以AutoCAD VBA为编程语言，对程序编制的思路和关键代码进行说明。

（一）输入

各地块（包括线状地物和零星地物）的面积一般可能有两种来源，一是根据实测数据绘制的地类边界，该边界应为一闭合多义线pline，可直接在程序中访问其entPline.Area属性获得。二是来源于全国第二次土地调查数据库中整体或裁剪过的部分图斑，通过DXF格式转换而成。转换过程中，将数据库中各图斑或线状地物的标识码等加入到相应对象的高程等属性中，可以间接获取其面积等多项数据。

注记的生成是将事先做好的块定义插入到适当位置，同时获取该对象的访问句柄（entBlock），进而通过objAtts = entBlock.GetAttributes获得该块的属性集合，例如objAtts（1）便指向地块号，通过objAtts（1）.TextString可以读写其字符串值。

（二）编辑和整饰

如果宗地范围较小，且归一个行政权属时，一般可不标注权属名，而在分数线以上只标注地块号。对于大范围情况，则应在分子位置标地块号，把权属名置于其上。而标注的面积可为平米、亩、公顷，具体保留的位数也常有变化。这些标注的字体就为2.4mm高，但如果是国有土地，则应将权属名称的字体扩为4.0mm。所以程序应该提供相应的过程，通过遍历各注记块，完成这些功能，达到一定的图面效果。约定Att3为注记块的权属名称属性，一般可用到下列属性的设置：

Set Att3 = objAtts（3）

Att3.Height = dblScale * 4

Att3.Alignment = acAlignmentBottomLeft

Att3.TextAlignmentPoint = pntIns

Att3.ScaleFactor = 0.8

Att3.Visible = True

Att3.Update

上例中，pntIns为一双精度型三维数组，是根据entBlock的插入点计算的某属性的插入位置。

（三）面积表的统计

将面积注记形成一个整体的最大优势便是可以进行方便的计算和统计，假定图面中的注记没有错误，可以认为图面中各注记块分别代表各地块、线状地物等的权属、面积、地类、地块号等，可以对全部和部分地块进行的面积统计。首先遍历各注记块，获得涉及到的权属单位数。设定一个双精度数组，以权属单位数为行数，以土地分类的所有类别为列数，经过读取各注记的地类及面积，可以将各权属各地类的面积值按位置累积到该数组的相应位置。同时统计各种地类的面积和，若为零的便可剔除掉（不输出）。

三、结语

相对于一般的地形图，各种土地图要包含更多的信息，应用属性所提供的功能，可使各种信息即清楚地表达，又能做到不丢失、不重复，再编写一些短小有效的代码，可以大大提高日常工作的效率和准确度。

参考文献：

[1]佟士懋，邢芳芳，夏介霄，等. AutoCAD ActiveX/VBA二次开发技术基础及应用实例 [M].北京：国防工业出版社，2006.