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

  1. 1、本文档共27页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
《计算机地图制图》实验指导书

《计算机地图制图》实验指导书 《计算机地图制图》实验指导书 实验一 栅格图像的地理配准 2 实验二 AutoLisp语言应用 6 实验三 符号制作 11 实验四 格网DEM的建立 26 实验一 栅格图像的地理配准 一、实验目的 熟悉CAD软件,掌握CAD软件的命令使用,理解栅格图像地理配准的 基本原理,掌握CAD软件中栅格图像地理配准的方法。 二、实验时间及安排 1.实验学时数6学时。 2.实验地点在机房,每人一机,实验软件AutoCAD 2005,栅格图像。 三、实验要求 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.实验地点在机房,每人一机,实验软件AutoCAD 2005。 三、实验要求 1.掌握文件打开与关闭函数,文件的读行和写行函数使用方法; 2.掌握常用的字符串处理函数使用方法; 3.掌握command函数使用方法; 4.掌握常用的表处理函数使用方法。 5.掌握常用的实体访问类函数使用方法。 四、实验内容 1.读取文本文件展绘碎部点 (defun C:zhsbd( / ) (setq pf (getfiled path File txt 2)) (if pf (progn (setq fp (open pf r)) (setq reco (read-line fp)) (while reco (setq dh (substr reco 1 2)) (setq x (substr reco 6 7)) (setq y (substr reco 14 7)) (setq z (substr reco 22 6)) (setq pt (list (atof

文档评论(0)

shuwkb + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档