项目名称： 基于的AotoCAD的煤矿开采信息系统.docVIP

项目名称： 学 院： 集体名称： 类别：科技发明制作 作品分类作品设计、发明的基本思路Public db As New ADODB.Connection Public misLayerName As String Sub Init() 创建AutoCAD菜单 Dim currMenuGroup As AcadMenuGroup Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0) Dim newMenu As AcadPopupMenu Set newMenu = currMenuGroup.Menus.Add(煤矿开采信息系统) Dim newMenuItem1 As AcadPopupMenuItem Dim newMenuItem2 As AcadPopupMenuItem Dim newMenuItem3 As AcadPopupMenuItem Dim openMacro1 As String Dim openMacro2 As String Dim openMacro3 As String openMacro1 = Chr(3) Chr(3) -vbarun vbCr showHTInputForm vbCr openMacro2 = Chr(3) Chr(3) -vbarun vbCr showHT_List vbCr openMacro3 = Chr(3) Chr(3) -vbarun vbCr showHT_InfoList vbCr Set newMenuItem1 = newMenu.AddMenuItem(newMenu.Count + 1, 隐患信息管理, openMacro1) ’类似的菜单及子菜单省略…… newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1) 创建或显示MIS图层 Dim misLayer As AcadLayer misLayerName = 煤矿开采信息系统管理 For Each misLayer In ThisDrawing.Layers If misLayer.Name = misLayerName Then Exit Sub End If Next Set misLayer = ThisDrawing.Layers.Add(misLayerName) misLayer.Lock = True End Sub ‘初始化完成 下面是本次二次开发的结构总的示意图： 二次开发流程如图 1 所示。 然后，调试程序，使之不仅适于AutoCAD2006平台，想更多AutoCAD软件版本扩展，并使程序打包，使之易于安装和使用。 最后、在具体的矿山企业要实现其信息化还需要进行CAD图纸的联网发布，实现信息的网络化。由于获取的数据存放到数据库中，可作为子系统的数据源，可向其他系统提供有关人员的实时和统计信息。在有互联网(或局域网)的情况下，建立FTP站点下载服务可以使有关人员实时了解动态的信息更新，以此全面提高数据处理水平 一、隐患信息管理 录入的信息包括隐患名称、隐患类别、隐患详细信息、发现时间、隐患详细地点、隐患排查人员姓名 在此插入两幅应还信息插入和查看的图 查看和修改（双击即可修改）隐患信息：可以查询已经录入到数据库中隐患信息，并且可以对上述信息进行修改 二、巷道和工作面信息管理 录入的信息包括巷道编号、巷道名称、各子单元巷道名称，设计长度，巷道和工作面负责人等 查看和修改（双击即可修改）巷道信息：可以查询已经录入到数据库中巷道的信息，并且可以对上述信息进行修改 三、生产掘进进度信息管理 生产掘进：选择掘进巷道，并且录入本周的进度，自动计算累计总进度、剩余量，工程项目负责人及负责人变动情况、备注等信息，并保存到数据库中，以备查询。可查询、修改（双击即可修改）本周掘进信息。 四、生产综放进度信息管理 生产综放进度：选择工作面，录入进风巷推进、回风巷推进进尺，自动计算进风巷距停采线尺度、回风巷距停采线尺度，并保存到数据库中，以备查询。可查询、修改（双击即可修改）周报信息。 五、生产调度管理模块功能管理 生产情况小结：在AutoCAD图纸中的相应位置录入操作了班次表、科室队表、生产情况小结等信息。利用小图标的形式选择查看和隐藏、 各队生产情况