测绘控制点自动绘制程序的实现

陈冠臣

摘要:本文利用VB.NET对AutoCad进行二次开发,实现了对不同数据格式的控制点绘制,不仅提高了工作效率,而且避免了数据转换而出现的错误。

关键词:控制点VB.NET

中图分类号:TP393 文献标识码:A 文章编号:1672-3791(2012)04(c)-0031-01

随着测绘技术的不断发展,GPS-RTK在测绘工作中的运用越来越广泛。它的出现使我们的工作变的非常便捷,在测量领域越来越受到广大测量人员的重视和青睐。尤其是在大面积的测图中,使用GPS-RTK施测图根控制相比传统的导线测量效率要提高很多。在施测好图根控制点后,需要在南方CASS中展点时,问题就出现了。因为RTK手簿导出的数据格式与南方CASS中的格式不一致,需要在EXCEL中进行一系列的转换才能展点成功。而且在转换过程中,稍不注意就会出现错误,给外业工作带来不必要的麻烦。本文就是利用AutoCad二次开发程序来实现了展点的功能,避免了转换数据的麻烦。

现在AutoCad二次开发的语言很多,如AutoLISP、ObjectARX、VBA、.NET等,各种语言有各自的优点。其中使用VB.NET来开发AutoCad不仅实用,而且非常的方便。从AutoCad 2006开始的时候,AutoDesk就开发了针对.NET的类库,使开发者很方便的操纵CAD中的各种图元。虽然AutoCad 2006版本支持.NET并不是很好,但随着时间的推移,.NET的功能将越来越强大。

1程序思路和编程实现

(1)RTK数据的提取。

不同厂家生产的仪器,其数据格式可能不尽相同,所以要对不同的数据格式进行处理。结合生产中的应用,编写了一种实现程序,以下是提取数据的主要代码:

Dim data1 As String

data1 = TextBox1.Text

Dim strLines() As String

strLines = data1.Split(New String() {ControlChars.CrLf}, _

StringSplitOptions.RemoveEmptyEntries)

For Each strLine As String In strLines

Dim surData() As String

surData = strLine.Split(New String() {","}, StringSplitOptions.None)

If RadioButton1.Checked = True Then

ElseIf RadioButton2.Checked = True Then

(2)实现展点。

根据不同的控制点类型来展绘控制点,其实不同的控制点对应不同的块定义和不同的实体代码,所以在处理不同的控制点类型的时候,只要插入不同的块定义,再附于不同的实体代码就可以达到目的了。……