CUMT-矿业信息技术基础-矿业信息技术基础实验报告.docVIP

中国矿业大学矿业工程学院 实验报告 课程名称 矿业信息技术基础 姓名 班级 学号 日期 成绩 教师 实验名称 用utocad VBA编写程序绘制半圆拱巷道断面 上机实验是巩固课堂教学内容的重要手段。 了解AutoCAD、VBA软件的基本知识、基本操作。 2. 熟悉VBA编程在CAD中绘图的过程，并熟练掌握操作方法。 三、 实验内容 用utoCAD VBA编写程序绘制半圆拱巷道断面 实验方法 VBA编程、CAD绘图 、上机实验 实验步骤及结果分析 设一半圆拱巷道断面轮廓尺寸为：巷道净宽B=3000，墙高h=1200，标志性的五个点坐标分别为：a（0，1200），b（0，0），c（3000，0），d（3000，1200），e（1500，1200），见图1。 该巷道断面轮廓线由三条直线和一段圆弧组成。只要能写出用VB6编程绘制直线和圆弧的代码，并输入正确的参数，就能绘制出巷道断面轮廓图形。 具体地步骤： 第一步，找到绘制直线的VBA源代码，先绘制一条直线，再绘制三条直线。 第二步，找到绘制圆弧的VBA源代码，并绘制一段圆弧。 第三步，合并绘制直线和圆弧的VBA源代码，输入a、b、c、d、e各点组成的直线和圆弧，绘制出半圆拱巷道断面轮廓图形。 代码