中国矿业大学矿业工程学院。
实验报告。课程名称矿业信息技术基础。
姓名班级 学号日期
成绩教师 一、 实验名称。
用autocad vba编写程序绘制半圆拱巷道断面。
二、 实验目的。
上机实验是巩固课堂教学内容的重要手段。
1. 了解autocad、vba软件的基本知识、基本操作。
2. 熟悉vba编程在cad中绘图的过程，并熟练掌握操作方法。
三、 实验内容。
用autocad 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 = endpoint1) ‘绘制直线。
set lineobj = endpoint2)
set lineobj = endpoint3)
centerpoint(0) =1500: centerpoint(1) =1200: centerpoint(2) =0‘圆弧中心点。
radius = 1500‘圆弧半径。
startangleindegree = 0‘圆弧起始角。
endangleindegree = 180‘圆弧结束角。
' convert the angles in degrees to angles in radians
dim startangleinradian as double‘定义圆弧起始角（弧度）
dim endangleinradian as double‘定义圆弧结束角（弧度）
startangleinradian = startangleindegree * 3.141592 / 180‘圆弧起始角（弧度）
endangleinradian = endangleindegree * 3.141592 / 180‘圆弧结束角（弧度）
' create the arc object in model space
set arcobj = radius, startangleinradian, endangleinradian) ‘绘制圆弧。
zoomextents‘autocad全界面显示。
end sub
运行此**，即可绘制出如图1所示的图形。
六、实验小结。
1、本次实验通过对半圆拱形图形的绘制，利用vba程序进行程序编写，了解了cad、vba的基本知识、基本操作。
2、 熟悉了vba编程的步骤和方法，理解了利用vba在cad中绘图的过程，并基本掌握了操作方法。
3、本次上机实验用的软件是autocad、vba，实验过程中，利用程序进行图形的绘制，只需要输入命令，不用像以前那样用手工绘制，确实给我们减少了很大的工程量。不仅过程简单明了，而且步骤也容易掌握。
4、当然由于初次利用vba程序进行cad的图形绘制，难免生疏和不熟练，以后会多加练习，熟练掌握利用程序进行图形绘制的过程和步骤。
信息技术基础
第一章信息技术基础。教学内容 4 计算机系统。教学目的 1,知道计算机系统构成，建立软件 硬件的概念。2,掌握计算机硬件构成，了解计算机基本配置。3,理解计算机工作原理。教学重点计算机硬件构成及相关概念。教学难点存储器的相关概念。教学方法注意根据高中学生自身特点，倡导 自学的学习方法。教学手段电子板...
信息技术基础
班级学号姓名 例1 下列各数中最大的是 a 10110b b 26d c 11000b d 1dh 例2 小明家里装了速率为8mb s的宽带，理论上 大小800mb的电影文件至少需要 a 100秒 b 200秒 c 400秒 d 800秒。例3 用ultraedit软件观察 这几个字符的内码，如图所...
信息技术基础
一 信息的基本特征。1 传递性。2 共享性。3 依附性和可处理性。4 价值相对性。5 时效性。6 真伪性。二 信息技术。1 信息技术的含义 一切信息的获取 加工 表达 交流 管理与评价的技术都称之为信息技术。目前，信息技术主要包括 计算机技术 是信息技术的核心 通信技术 现代通信技术主要包括数字通信...