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各点组成的直线和圆弧，绘制出半圆拱巷道断面轮廓图形。 代码如下: Sub Example_AddHangDao() ‘巷道断面轮廓 Dim lineObj As AcadLine Dim startPoint1(0 To 2) As Double ‘定义直线起点 Dim startPoint2(0 To 2) As Double Dim startPoint3(0 To 2) As Double Dim endPoint1(0 To 2) As Double‘定义直线终点 Dim endPoint2(0 To 2) As Double Dim endPoint3(0 To 2) As Double Dim arcObj As AcadArc Dim centerPoint(0 To 2) As Double‘定义圆弧中心点 Dim radius As Double‘定义圆弧半径 Dim startAngleInDegree As Double‘定义圆弧起始角 Dim endAngleInDegree As Double‘定义圆弧结束角 Define the start and end points for the line A（0，1200），B（0，0），C（3000，0），D（3000，1200）‘直线各点坐标 startPoint1(0) = 0: startPoint1(1) = 0: startPoint1(2) = 0‘直线起点 startPoint2(0) = 0: startPoint2(1) = 0: startPoint2(2) = 0 startPoint3(0) = 3000: startPoint3(1) = 0: startPoint3(2) = 0 endPoint1(0) = 0: endPoint1(1) = 1200: endPoint1(2) = 0‘直线终点 endPoint2(0) =3000: endPoint2(1) = 0: endPoint2(2) = 0 endPoint3(0) = 3000: endPoint3(1) = 1200: endPoint3(2) = 0 Create the line in model space Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint1, endPoint1) ‘绘制直线 Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint2, endPoint2) Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint3, endPoint3) centerPoint(0) = 1500: centerPoint(1) = 1200: centerPoint(2) = 0‘圆弧中心点 radius = 1500‘圆弧半径 s