AutoCAD平台下高程点智能展点的改进方法_麦瑜潇

（ 3 ） 如图 1 所示， 首先通过高程点 M 的坐标 推算得出点 P 的坐标 （ x i ，y i ） ，然后得到虚线矩形 框 4 个角点的坐标分别为： 左上角点坐标： （ x i ， y i + h ） ； 右上角点坐标： （ x i + L y i + h） 左下 角 点 坐 标： （ x i ， y i ） ； 右 下 角 点 坐 标： （ x i + L，y i ） （ 4 ） 对将要展的高程点， 先取得其附近 K1 位 置 （ 如图 2 所示） 的虚线矩形外框，判断该矩形框 内是否存在实体。如果为空， 则高程注记展到该位 置； 如果矩形框内不为空，则按图 2 所示顺序进行 下一个位置的判断， 直 到 搜 寻 到 空 位 置。 搜 索 完 毕，如果还未找到矩形框为空的位置， 则对每个位 置矩形框中实体数量进行统计分析， 找到实体相对 最少的位置，将高程注记展到该位置。 （ 5 ） 高程注记作为高 程 点 块 的 属 性， 以 属 性 ［7 ］ 块 的形式展到图中，使高程点和高程注记结合为 ［8 ］ 一体。然后对属性块加入南方 CASS 成图系统 实 体编码， 这样可以在南方 CASS 成图系统中查到编 码属性，为日后处理这些高程点带来便利。 2 算法实现步骤
［1 ］ ［3 ～ 5 ］ ， 但是 以往作者提出了一些解决该问题的算法 3］ 和 ［ 4］ 这些方法局部欠缺考虑。 其中， 文献 ［ 中对于搜索不到空旷的位置，高程注记仍然在原来 的位置或删除该高程点，而没有考虑寻找相对压盖
高程是由高程点和高程注记组成 。 在地形图 绘制的工作中，需要将实测的高程点展到图上， 国 内普遍使用的数字化成图软件只能将高程注记展到 高程点附近的某个固定位置，这样部分注记不可避 免会压盖到图上已有实体， 影响到图面的美观， 同 ［2 ］ 时增加了图形的复杂程度 。对于这种情况， 需要 手动调整压盖已有实体的高程注记， 这样增加了内 业绘图人员的工作量， 又不能确保全图检查完全。
（ 1． 广西矿冶与环境科学实验中心，广西 桂林 541004 ； 2． 桂林理工大学测绘地理信息学院，广西 桂林 541004 ； 3． 广西空间信息与测绘重点实验室，广西 桂林 541004 ； 4． 湛江市国土测绘大队，广东 湛江 524002 ； 5． 桂林好测信息科技有限公司，广西 桂林 541004 ） 摘要： 目前使用的数字化成图软 件 在展 绘 高 程点 时， 高 程 注记 点 存 在 较 多 压 盖图 上 已 有 实 体的 情
本文利用 AutoCAD 自带的 VBA 编辑器编写程 序，并在 AutoCAD2006 下运行通过。实现步骤如下： （ 1 ） 检测图上是否设置比例尺，如果没有设置 ， 对于已经设置比例 弹出对话框 “比例尺未设置 ” 尺的图， 获 取 图 上 的 比 例 尺， 确 定 S、 L 和 h 的 数值。 （ 2 ） 如图 3 所示，设计一个窗体用来选择和打 开数据文件，使用 CommonDialog 控件来打开数据文 件； 再用 “Open” 语句打开文件进行读操作，格式： Open 文件名 For Input As #文件号［9］； 接着用 While
Improved method of plotting elevation point intelligently under AutoCAD platform
2， 3， 4 3 Mai Yuxiao1， ，Tang Shihua1，2 ， ，Huang Ying5 ，Qin Zeying5
（ 1 ． Guangxi Scientific Experiment Center of Mining，Metallurgy and Environment，Guilin 541004 ，China； 2 ． College of Geomatic Engineering and Geoinformatics，Guilin University of Technology，Guilin 541004 ，China； 3 ． Guangxi Key Laboratory of Spatial Information and Geomatics，Guilin 541004 ，China； 4 ． Zhanjiang Land Brigade of Surveying and Mapping，Zhanjiang 524002 ，China； 5 ． Guilin Good Survey Mdt InfoTech Ltd，Guilin 541004 ，China）
62
工程勘察
Geotechnical Investigation ＆ Surveying
2014 年第 2 期
……Wend 语句读取数据文件中的记录，获取高程点 的坐标值 （ point （ 0） ，point （ 1） ，point （ 2） ） 。
图3
选择数据文件和设置注记高程点距离的窗体
（ 3 ） 如图 3 所示， 当注记高程点距离为 0 时， 高程点不进行过滤，展全部的高程点； 当注记高程 ［10 ］ 点距离大于 0 时， 使用选择集 对将展高程点的 位置进行判断，再考虑是否展高程点。 创建三个选 择集， 使用 “SelectByPolygon ” 方法选择对象。 第 一个选择集，以高程点的坐标值 （ point （ 0 ） ，point （ 1 ） ） 为中心，建立一个图上边长为 0. 4mm 的正方 形。用 “SelectByPolygon ” 方法判断该点是否存在 实体，不存在则该位置展高程点。 第二个选择集， 以高程点的坐标值 （ point （ 0 ） ，point （ 1 ） ） 为中 心，建立一个图上边长为 2mm 的正方形。 设置选 择 集 过 滤 器 限 定 独 立 地 物 对 象， 然 后 利 用 “SelectByPolygon ” 方法选择符合条件的实体，最后 获得选择集中包含实体的个数。 如果个数大于 0 表 示该点是独立地物， 需 要 展 高 程 点。 第 三 个 选 择 集，以 高 程 点 的 坐 标 值 （ point （ 0 ） ，point （ 1 ） ） 为中心，建立一个中心点到边角点距离为注记高程 点距离的正八边形。设置选择集过滤器限定高程点 对象，然后利用 “SelectByPolygon ” 方法选择符合 条件的实体， 最后获得选择集中包含实体的个数。 如果个数等于 0 ，该位置展高程点。 Dim gpCode （ 0 ） As Integer' 创建高程点图层过 滤器 gpCode （ 0 ） = " 8" ＲeDimdataValue （ 0 ） As Variant dataValue （ 0 ） = " GCD" Dim groupCode As Variant，dataCode As Variant groupCode = gpCode dataCode = dataValue sset. Select By Polygon mode ，BZ，group Code， dataCode （ 4 ） 创建一个选择集查询每个虚线矩形框范围 内的实体数量， 使用 “SelectByPolygon ” 方法设置 选择集的矩形边界范围， 也就是高程注记 的 范 围
0421 ； 修订日期： 20130519 收稿日期： 2013基金项目： 国 家 自 然 科 学 基 金 资 助 项 目 （ 41071294 ， 41064001 ） ； 广西区科学基金资助项目 （ 桂科基 0991023 ） ． 作者简介： 麦瑜潇 （ 1987 － ） ，女 （ 汉 族） ，广 西 藤 县 人， 硕士．
Abstract： At present，when the digital mapping software is used to plot elevation points，it has the problem that elevation notations frequently cover the entity existed ，which will lead to many manual editing processing and waste a lot of time． In view of this situation ， this paper improves the unreasonable algorithms used by others before ，makes the insert of elevation notations as an attribute block ，and adds the function of elevation point filter． In this paper，parts of the programs to realize this algorithm by VBA are given． It is concluded that this improved method can improve work efficiency and make the location of the elevation point become more reasonable and the map become more clear and beauty． Key words： elevation points plotting ； elevation notation ； AutoCAD； VBA 0 引言
偏移 h 步长， K11 和 K12 分别是 K2 向正上方和正 下方偏移 h 步长。高程注记不宜离高程点太近或者 太远，以免影响整个图面的美观， 上述搜索顺序更 符合规范和注记习惯。
高程点和高程注记分析 如图 1 所 示， 点 M 为 展 到 图 上 的 高 程 点， 154. 19 为高程注记。虚线矩形框表示高程注记文本 的范围框，虚线矩形框的长度 L 和宽度 h 随比例尺 的不同而变化。 S 为高程点到高程注记的距离， S 也是随着比例尺的变化而变化。点 P 是虚线矩形框 的左下角点，同时也是高程注记echnical Investigation ＆ Surveying
2014 年第 2 期

AutoCAD 平台下高程点智能展点的改进方法
麦瑜潇
1， 2， 3， 4 2， 3 ，唐诗华1 ， ，黄 鹰5 ，覃泽颖5
况，使得自动展绘后仍需要通过手工编辑进行合 理 处 理， 导 致 工作 效 率 不 高， 耗 时 较 多。 本文 在 总结了一些以往作者解决该问题的方法的基础 上，对其 欠 考 虑 的地方 做 了 算 法 上 的 改 进， 并 使 高 程注记以属性块的形式插入到图中，增加过滤高程点功能，同时给出 VBA 语言实现该 算 法 的 部 分 程序。实验证明，利用本改进方法展高程点，工作 效 率 得到 极 大 的 提 高， 高 程 注记 的 位置 和 顺 序 更加合理，图面显得清晰美观。 关键词： 高程展点; 高程注记; AutoCAD; VBA 中图分类号： TB237 文献标识码： A
图2
搜索顺序分析图
图1
高程注记分析图
1. 2
基本思路 （ 1 ） 对于高程点来说，地形图的特征点应分为 两类： 一类是地物特征点， 如街道、 陡坎、 独立地 物等； 另一类是地形特征点， 如山顶、 山谷、 山脊 ［6 ］ 等 。过滤高程点时，独立地物和空位置的高程点 比较容易被过滤删除。空位置的高程点是指该点不 压盖任何实体，但是表示特征点， 如空地上、 稻田 里、山谷和山顶等的高程点。 本程序按距离展高程 点时，首先判断展高程点的位置是否独立地物和空 位置，如果是，则进行展高程点， 反之进行距离判 断。距离判断是以待展高程点为中心， 判断设定距 离范围内是否存在高 程 点， 如 果 存 在， 则 不 展 该 点，反之进行展高程点。 （ 2 ） 搜索顺序： 如图 2 所示，按照注记的习惯 先右边后左边， 先上方后下方， 依次进行 12 个位 置的搜索。优先考虑 K1 ～ K4 ， 高程点 M 到这 4 个 位置矩形框边的距离都为 S； 其次考虑 K5 ～ K8 ，高 程点 M 到 K7 和 K8 矩形框边的距离为 S + 0. 5 h，到 K5 和 K6 矩 形 框 边 的 距 离 为 S + 0. 2 L； 最 后 考 虑 K9 ～ K12 ，K9 和 K10 分别是 K1 向正上方和正下方
2014 年第 2 期
工程勘察
Geotechnical Investigation ＆ Surveying
61
5］ 中搜索位置的顺序不符合 最少的位置； 文献 ［ 规范优先考虑的注记顺序，而且高程点和高程注记 是分开的两个实体，不易区分高程注记属于哪个高 程点。此外，外业测量时一般需要采集较多的高程 点便于绘图，但高程注记不适合过于密集， 以免影 响图面美观和压盖重要实体。目前一些商业数字化 成图软件展点时，可以实现按距离过滤高程点， 但 是容易删除特征点位置的高程点。 因此， 本文出于 对展高程点更合理性的考虑， 改进智能展点方法， 并且用 VBA 编程实现该方法。 1 1. 1 算法原理