《计算机地图制图》实验指导书DOC.docx

《计算机地图制图》实验指导书DOC.docx

《《计算机地图制图》实验指导书DOC.docx》由会员分享，可在线阅读，更多相关《《计算机地图制图》实验指导书DOC.docx（25页珍藏版）》请在冰豆网上搜索。

《计算机地图制图》实验指导书DOC

《计算机地图制图》实验指导书

《计算机地图制图》实验指导书

实验一栅格图像的地理配准

一、实验目的

熟悉CAD软件，掌握CAD软件的命令使用，理解栅格图像地理配准的

基本原理，掌握CAD软件中栅格图像地理配准的方法。

二、实验时间及安排

1．实验学时数6学时。

2．实验地点在机房，每人一机，实验软件AutoCAD2005，栅格图像。

三、实验要求

1．掌握CAD中PLINE、MOVE、LIST、ROTATE、SCALE等命令的使用方法；

2．掌握CAD中角度、长度等单位的精度设置方法，掌握CAD中图像管理

的image命令的使用；

3．掌握CAD中图像地理配置的方法；

4．掌握栅格图像地理配准的基本原理。

四、实验内容

1．基本原理

栅格图像可以通过扫描仪获取，它的误差来源两个方面：

（1）扫描图件的变形误差

地形图的材质主要是薄膜，但仍有一少部分是纸图，由于制图时间较长，有不少图件不同程度发生变形，这是误差的主要来源。

（2）扫描仪的误差

在扫描过程中，由于使用CCD扫描仪，会引入误差，主要有扫描仪的分辨率误差、光学误差、机械运动和速度不均所造成的直线、线阵方向与扫描方向不垂直引起的误差等。

所有以上这些误差引起的几何变形，可看成平移、旋转、缩放、放射，以及各种更高变形的综合结果。

栅格图像要使用，就必须对误差进行纠正，在实际操作中，很难对所有的误差一一进行变形改正，只能综合考虑它们的影响，综合校正。

若栅格图像的变形比较均匀，可以简单的对图像进行平移、旋转、缩放纠正。

2．CAD中栅格图像地理配准的主要步骤

（1）使用Image命令将要地理配准的影像插入到CAD中；

图1插入栅格图像

（2）运行units命令，设置角度和长度精度，小数点后4位；

图2图形单位设置

（3）在图像已知坐标两点画line线；

（4）用list命令查看绘制line线的角度和长度,根据已知坐标两点的真实坐标计算角度和长度,求出旋转角度和放缩比例；

图3获取实体信息

（4）对图像用move命令选定某已知点作为基点，移动图像到真实坐标处；

（5）用rotate命令以已知点为基点根据（3）计算的旋转角度进行旋转；

（6）用scale命令以已知点为基点根据（3）计算的放缩比例进行缩放。

五、实验报告的要求

1.要写明自己实验的过程，以及实验过程中计算的具体数据

2.填写误差统计表

图像纠正误差统计表

图幅名称

图幅编号

控制点理论坐标

纠正后实际坐标

误差

X坐标

Y坐标

X坐标

Y坐标

△X

△Y

中误差

误差原因分析说明：

附：

实验二AutoLisp语言应用

一、实验目的

AutoLISP综合了人工智能语言LISP的特性和AutoCAD强大的图形编辑功能的特点。

通过本次实验，掌握AutoLISP语言的语法规则和AutoLISP语言的简单编程规则，能够编写简单的实用程序，实现对文本文件的读写操作，提取实体要素坐标信息，对实体进行缩放等功能。

二、实验时间及安排

1．实验学时数6学时。

2．实验地点在机房，每人一机，实验软件AutoCAD2005。

三、实验要求

1．掌握文件打开与关闭函数，文件的读行和写行函数使用方法；

2．掌握常用的字符串处理函数使用方法；

3．掌握command函数使用方法；

4．掌握常用的表处理函数使用方法。

5．掌握常用的实体访问类函数使用方法。

四、实验内容

1．读取文本文件展绘碎部点

（defunC:

zhsbd（/）

（setqpf（getfiled"pathFile""""txt"2））

（ifpf

（progn

（setqfp（openpf"r"））

（setqreco（read-linefp））

（whilereco

（setqdh（substrreco12））

（setqx（substrreco67））

（setqy（substrreco147））

（setqz（substrreco226））

（setqpt（list（atofx）（atofy）））

'（command"layer""m""yuan""c"67""""）

（command"circle"pt0.5）

'（command"layer""m""dh""c"90""""）

（command"text""r"（polarptpi1）20dh）

（setqreco（read-linefp））

）

）

）

（princ）

（closefp）

（command"zoom""e"）

）

图1展点数据文件

图2展绘碎部点图

2．提取高程点写入文本文件

（defunC:

tqgcd（/）

（setqpf（getfiled"保存数据文件""""txt"4））

（ifpf

（progn

（setqfp（openpf"w"））

（setqss（ssget"X"'（（0."TEXT"）（8."p831"））））

（ifss

（progn

（setqn（sslengthss）i0）

（while（

（setqdata（entget（ssnamessi）））

;;获取插入点坐标（10500656.04.01739e+0068.18）

（setqdata1（assoc10data））

;;CAD的X坐标，字符串形式

（setqx（rtos（cadrdata1）24））

;;CAD的Y坐标，字符串形式

（setqy（rtos（caddrdata1）24））

;;（setqz（rtos（cadddrdata1）24））

;;获取高程值的文字注记

（setqstr（cdr（assoc1data）））

（setqi（+i1））

（setqstr（strcat（itoai）""y""x""str））

（write-linestrfp）

）

）

）

）

）

（closefp）

（prompt（strcat"\n共提取"（itoai）"高程点"））

）

图3离散高程点图

图4提取出的离散高程点数据文件

3．提取二维多义线节点坐标

（defunC:

tqjd（/）

（setqename（car（entsel"\n选择实体:

"）））

（setqdnillb（entgetename）bh（cdr（assoc70lb）））

;;（setqlb（entgetename）

（setqb（cdr（assoc0lb）））

（if（=b"LWPOLYLINE"）

（progn

（setqnn（lengthlb）kk1）

（while（

;;（102228.04446.852）

（if（=10（car（nthkklb）））

（progn

（setqx（nth1（nthkklb））

y（nth2（nthkklb））

）

（setqd（cons（listxy）d））

）

）

（setqkk（1+kk））

）

（if（=bh1）（setqd（cons（lastd）d）））

）

）

（setqd（reversed））

（printd）

）

4．缩放文字注记

（defunc:

sfzj（/sskenamept）

（setqk（getreal"\n请输入放大倍数:

"））

（ifk

（progn

（setqss（ssget（list（cons0"TEXT"））））

（ifss

（progn

（setqename（ssnamess0））

（whileename

（setqpt（cdr（assoc10（entgetename））））

（command"scale"ename""ptk）

（setqss（ssdelenamess））

（setqename（ssnamess0））

）

）

）

）

）

）

实验三符号制作

一、实验目的

在学习计算机地图制图的同时，综合运用所学知识，利用CAD软件提供的功能制作地形图点状、线状和面状符号，掌握CAD菜单的开发，加深对地形图符号的认识。

二、实验时间及安排

1．实验学时数6学时。

2．实验地点在机房，每人一机，实验软件AutoCAD2005。

三、实验要求

1．掌握CAD下形的制作方法、掌握CAD下形的使用方法和能够熟练运

用CAD下形制作点状符号。

2．掌握线状符号制作的基本理论、CAD下线状符号的制作方法，能够分

析出常用符号的构造方法，运用工具实现。

3．掌握面状符号制作的理论方法、能够熟练运用CAD下面状符号制作工具，在掌握面状制作原理的基础上具体实现其中的几种。

四、实验内容

1．独立符号的制作

（1）利用图块建立符号库

图1下水井（定位点：

圆心）

图2路灯（定位点：

下方圆形的圆心）

图3纪念碑（定位点：

下方直线的中点）

（2）利用形建立符号

图4汉字“中”的形描述

*130,17,ZHONG

3,5,2,020,1,054,2,029,1,02C,040,024,048,2,04E,010,0

图5汉字“电”的形描述

*131,23,DIAN1

3,1,2,034,1,060,064,068,06C,2,061,1,068,2,053,1,0AC,01E,030,012,2,01E,0

或者

*132,34,DIAN2

3,1,2,034,1,060,064,068,06C,2,061,1,068,2,8,（3,5）,1,9,（0,-10）,（1,-1）,（3,0）,（1,1）,（0,0）,2,8,（1,-1）,0

2．线状符号的制作

（1）定制线型法

1）每个线型文件可定义多个线型，每个线型有一个标题行和一个定义行。

a）标题行的格式如下：

*ltype-name[,description]

其中，“*”是标记行的标记，它后面紧跟线型名，逗号之后是对这个线型的注释。

b）定义行的格式如下：

A,dash-1,dash-2,…,dash-n

其中，“A”表示为两端对齐方式，dash-1,dash-2、…为短划线序列的每段长度。

当dash-i>0，表示是实线段；dash-i<0，表示是空白线段；当dash-i=0，表示是一个点。

2）小路符号的建立如下：

*XIAOLU————

A,4,-1

图6小路符号

图7点划线符号

*DASHDOT,_____._____.____