基于VB无缝线路自动配轨设计系统中既有设备绘制方法研究.docVIP

基于VB无缝线路自动配轨设计系统中既有设备绘制方法研究 　　摘#8195;要 主要研究利用VB对AutoCAD二次开发研制无缝线路辅助配轨设计系统中既有设备的绘制方法，完成对无缝线路换铺中线路既有设备的绘制，主要包括既有线路平纵断面、车站、桥隧、道口、岔区以及绝缘接头的绘制等等。 　　关键词 线路；道口；二次开发；绘制 　　中图分类号 TU311.2 文献标识码 A 文章编号 1673-9671-(2010)112-0025-02 　　 　　既有铁路换铺无缝线路是铁路提速改造的一项重要技术手段，换铺无缝线路工作在今后很长一段时间内仍将大量存在，相应的勘察设计任务将十分艰巨。 　　目前，国内无缝线路设计工作，多是在外业勘测获取基础资料（平纵断面、车站、桥隧、道口等）的基础上，由设计人员手工进行设计，模式浪费大量的人力和物力。因此，开发快速高效的计算机辅助系统来完成无缝线路配轨设计图就显得尤为必要。而既有铁路改造过程中存在大量的既有设备，诸如桥梁、涵洞、道口等等，如何在图形绘制过程中有效地表示既有设备的位置、类型等相关因素，对提高绘图及设计质量起着重要作用。 　　1 基于VB的CAD二次开发 　　目前，二次开发AutoCAD的技术已经相当成熟，针对VB语法简单、功能强大、可视化的优点，利用VB对 CAD二次开发研制无缝线路辅助配轨设计系统中既有设备的绘制方法。 　　1）AutoCAD对象模型树。AutoCAD的对象根据它们的不同功能，具有一定的层次和隶属关系。最上面一层是AutoCAD应用程序对象（Application），它是对象模型的基础，称为根对象。通过Application对象的属性和方法可以获取版本信息、改变AutoCAD窗体界面大小和退出AutoCAD应用程序等。根对象Application下面有一个对象和3个集合对象，这些对象为Application对象的下级对象。这些下级对象中各自又有它们的下级对象，可以通过Application对象的属性或方法逐级向下访问。例如，集合对象Documents下面的Documentation对象，又有Blocks（块集合对象）、ModelSpace（模型空间集合对象）等子对象；通过ModelSpace对象，可以在模型空间创建3Dface、Arc等图形实体。 　　2）VB链接CAD。用VB语言编程进行AutoCAD二次开发，首先要将VB与AutoCAD连接起来，其步骤为： 　　在全局模块Module中定义AutoCAD对象变量，这样多个窗体均可使用该变量。具体用下面语句定义： 　　Public Acadapp As AcadApplication 　　Public Sub ljautocad（ ） 　　On Error Resume Next 　　Set Acadapp = GetObject（， AutoCAD._ Application） 　　If Err Then 　　Err.Clear 　　Set Acadapp = CreateObject（AutoCAD._ Application） 　　If Err Then 　　MsgBox （不能运行AutoCAD， 请检查_是否安装了AutoCAD） 　　Exit Sub 　　End If 　　End If 　　Acadapp.Visible = True 　　End Sub 　　（注：“_”为VB中的续行符。） 　　2 基础资料的数据文件编制 　　在无缝线路换铺设计中，前期的拉链数据（车站里程、岔头和岔尾的里程、曲线桩位位置和桥涵位置等）比较繁多，若直接用VB界面进行数据输入，会显得很笨重，浪费大量的时间，不能体现出计算机的速度和处理数据的优势，所以设计中需要应用数据文件来进行拉链数据的存储。建立如daocha.dat、qiangliang.dat、daokou.dat、chezhan.dat等既有数据资料的存储文件。其输入格式如图1所示（以车站数据为例）。其数据意义为： 　　7：表示下面的行数，即整条线路所含有的车站个数。 　　下面的含义依次为：车站名称、车站里程、车站形式和车站位于线路的左右侧（“11”中前一个数字表示车站形式：“1”为中间站，“2”为编组站；后一数字表示位于线路的方向：“1”为车站位于线路左侧，“2”为车站位于线路右侧）。 　　本系统读入数据时，利用的是数据文件的读操作中的Line Input#语句，该语句是从顺序文件中读出一行，并把它赋给一个字符串变量。在此将读出的数据分类的存储到相对应的数组中。具体车站的读数据和数据的赋值代码如下： 　　Dim sjgs As Single 　　打开平面数据文件chezhan.dat 　　Open D: