张文鹏
（合肥市测绘设计研究院，安徽 合肥 230001）
摘要：本文介绍了在AutoCAD2010中利用VBA编程技术实现对CAD车位测量图形的分析从而达到自动统计车位数量和车位面积的方法，这样不但提高了车位数量和车位面积统计的功效，而且为规划车位的核实指标控制提供了比较准确的数字依据。
关键词：VBA ；车位数量；车位面积；
1 概述
随着城市居民用车量的快速增长，停车位需求的比例越来越高，规划部门要求对新建、改建、扩建的住宅小区按照国家规定标准配建、增建一定数量的停车位。车位数量和车位面积核实作为建筑工程竣工规划核实测量内容之一，准确测量停车泊位数量及面积，为城市规划管理者提供科学的测绘数据，进而更好为城市规划建设服务。
2 程序流程设计
.png)
图2.1 程序流程设计图
3 图形预处理
3.1 图形检核
测绘车位数量和建筑面积统计的图形由于多人进行测量并进行了转换、接边、插入、剪切等处理，从而使图形产生了多余的注记和重叠的多段线，有的肉眼能看见，有的看不见，多余的线条对车位的数量及面积都会带来测量误差；所以在计算之前对图形进行以下处理：
1、对未封闭的车位线进行封闭处理；
2、删除车位线内多余的注记，单层车位不留注记，双层或则多层车位只需一个层数注记；
3.2 重叠车位线的剔除
地形图测绘时由于图形接边引起的眼睛无法识别的重叠构面线，计算车位数量时要求能自动识别剔除。
4 主要功能实现
本程序界面设计简单，如下图所示。启动程序后，直接选择预处理后的车位线，程序自动统计车位数量及车位面积，在程序上直接显示；并在C盘下生成相应的文本文件，方便后期检查。
.png)
图4.1 车位测量程序界面
4.1车位数量统计思路
1、 双层或则多层注记从CAD中导出保存成文本；
2、 将车位注记删除，仅保留车位多段线；
3、计算每个车位线的坐标点数，一般车位为矩形或则多边形，当坐标点数小于4个时，认为该车位线为问题车位线；
4、对每一个车位线进行车位编码，用来标识问题车位的位置；
5、求出每个车位线的中心点坐标保存到文本中，依次比较文本中每个中心点坐标，停车位宽一般约为2米，如果相邻车位中心点坐标差值小于1米，则认为这个车位重复或则有问题；
6、双层或则多层注记求和加上单层车位数减去问题及重复车位既得到真实的车位数量；
7、程序部分代码：
Dim xy(0 To 2) As Double
xy(0) = (miny + maxy) / 2: xy(1) = (minx + maxx) / 2: xy(2) = 0
Open "C:\车位测量线.txt" For Append As #3
Print #3, "CW" & sm & "," & (miny + maxy) / 2 & "," & (minx + maxx) / 2
Close #3
activeDoc.ModelSpace.AddText "CW" & sm, xy, 0.5
ddx.Color = 3
List1.AddItem "CW" & sm
sm = sm + 1
5 应用实例
笔者在合肥市多项工程竣工规划核实测量中用此程序对该小区的车位的数量和建筑面积进行了自动化统计，并且取得了良好的效果，节约了人力、物力、财力，为工程的顺利开展验收提供了很好的帮助，提高了竣工规划核实测量工作的效率，满足了测绘生产部门实际生产的需求，使其自动化程度进一步提高。
6 结语
在国家“多测合一”测绘服务的推广背景下，规划部门及城市管理部门对车位的数量及面积提出了越来越高的管理要求，笔者相信此程序一定能在今后的车位管理、城乡规划、工程建设等方面将发挥巨大的作用。
参考文献：
[1] 罗胜飞.数字地形图中利用VBA自动统计建筑面积的探索.建筑设计,2015.03
[2]欧阳明慧.excel VBA技巧实例手册.北京希望电子出版社,2009.
[3]张玉方.AutoCAD扩展属性在地形图更新中的应用[J].城市勘测，2015（1）.
[4]郭振华，薛兰格.基于AutoCAD扩展属性的多边形面积统计汇总应用[J].北京测绘，2014（3）.
[5]何亚芳.利用Visual LISP自动计算建筑面积和占地面积的方法研究[J]. 浙江测绘，2006；