城市轨道交通线路设计平曲线绘制
一、程序要求
1、新建数据库，名称为“基础数据.mdb”。
2、建立数据表：plane_CureveData(平面曲线信息表)。字段名称和类型如表1所示。 3、同时，新建一个窗体，窗体中放置MsFLexGrid表格控件一个，导入按钮实现将文本文件内容导入到MsFLexGrid表格控件；增加、修改、删除数据的相关编辑；保存实现表格数据保存到数据库（基础数据.mdb）中功能，界面如图1。
4、根据曲线信息，计算五大桩里程，新建立图层“平曲线图”，并在图层“平曲线图”中绘制平曲线图,并标注出曲线五要素，字体任意设定为中文字体，颜色任意。同时设定线宽为1、线颜色任意。
表1 平面曲线信息表字段名称和类型
字段名称 交点编号 交点桩号 曲线类型 曲线转向 曲线半径 曲线转角
起端缓和曲线长度 终端缓和曲线长度
数据类型 dbText dbSingle dbText dbText dbSingle dbSingle dbSingle dbSingle
二、主要过程
1、新建三个窗体，分别为新建项目、打开项目和平面曲线数据。“新建项目”窗体实现新建名为“基础数据.xxd”的项目文件和“基础数据.mdb”的数据库文件（内含数据表plane_CureveData，表内无数据）；“打开项目”窗体实现打开已有项目并在AutoCAD中自动绘制平曲线图；“平面曲线数据”窗体包含一个FlexGrid表格控件，实现导入包含平面曲线数据的文本文件（平面曲线.txt）并且能够对表格内的数据进行增加、修改、删除，最终保存入已打开项目对应的数据库文件中。
2、在程序中，按照上述要求编写相关代码。节选部分重要代码如下所示：
（1）新建数据库代码
图1 平面曲线数据窗体
Public Sub CreateDatabase() '创建数据库
Dim m_WorkSpace As Workspace
Set m_WorkSpace = DBEngine.Workspaces(0)
Dim newdb As Database '定义数据库变量
m_DatabaseName = m_ProjectPath + \基础数据.mdb\设定新建数据库位置
Set newdb = m_WorkSpace.CreateDatabase(m_DatabaseName, dbLangChineseSimplified)
Dim newtbl As TableDef
'创建表 plane_CureveData
Set newtbl = newdb.CreateTableDef(\ '平面曲线信息表
Set m_Field(1) = newtbl.CreateField(\交点编号\dbText)
Set m_Field(2) = newtbl.CreateField(\交点桩号\
dbSingle)
Set m_Field(3) = newtbl.CreateField(\曲线类型\dbText)
Set m_Field(4) = newtbl.CreateField(\曲线转向\dbText)
Set m_Field(5) = newtbl.CreateField(\曲线半径\dbSingle)
Set m_Field(6) = newtbl.CreateField(\曲线转角\dbSingle)
Set m_Field(7) = newtbl.CreateField(\起端缓和曲线长度\
Set m_Field(8) = newtbl.CreateField(\终端缓和曲线长度\
Call CreateTable(newdb, newtbl, 8) '生成表
MsgBox \项目创建成功\新建项目\
newdb.Close '关闭数据库及其中的表 Set newdb = Nothing '删除数据库对象实例 End Sub
（2）创建菜单示例 创建项目管理菜单
Public Function CreateProjectManageMenu() On Error Resume Next
Dim mnuGroup As AcadMenuGroup Dim mnuMain As AcadPopupMenu
Dim menuNames As String
Dim menuCollection As AcadPopupMenus Dim menu As AcadPopupMenu
Set mnuGroup=ThisDrawing.Application.MenuGroups.Item(0) Set mnuMain = mnuGroup.Menus.Add(\项目管理(&P)\
Call BuildSubMenu(mnuMain, \新建设计项目(&N)\\ '分隔符 End Function
（3）绘制平曲线代码 '绘制平面线型 Sub DrawPMLine()
On Error Resume Next
Dim plineObj As AcadLWPolyline Dim points(0 To 11) As Double Dim textString As String
Dim QZ As Double '曲中桩号 Dim ZH As Double '直缓桩号 Dim HY As Double '缓圆桩号 Dim YH As Double '园缓桩号 Dim HZ As Double '缓直桩号
Dim a As Double '转角
Dim Ls0 As Double '起端缓和曲线长 Dim Le0 As Double '终端缓和曲线长 Dim R As Double '曲线半径 Dim L As Double '曲线长 Dim T As Double '切线长 Dim P As Double Dim m As Double
Dim PI As Double
Dim Text_a As String Dim a_Du As Double Dim a_Fen As Double Dim a_Miao As Double
Call SetFontName(\楷体_GB2312\
PI = 3.14159265359
If Len(m_DatabaseName) <= 0 Then '表示还没有打开数据库连接
相关推荐：
loading