AutoLisp数字化成图程序设计应用.pdf

AutoLisp数字化成图程序设计应用 阳云安+ 长江重庆航运工程勘察设计院 摘要：采用图形模板和数字文本模板技术，设计开发了基于AutoCAD环境的测量制图模板，利用测量制图模板可以很方 便绘制水下、陆上地形测量中各种地形图。使得AutoLisp在测量图绘制中得到广泛运用。扩大了AutoCAD的应用范围。 关键词：计算机辅助设计测量制图模板AutoLisp制图设计 一、剐菁 测绘业是一个技术较密集，服务范围极广的先行性、基础性地理信息产业。它致力于获取、处理和提 供有关自然和人工地貌、地物的形态特征及其分布：地面点的平面位置和高程；地理名称以及人文地理要 素等基础信息，应用于定向定位、调查分析、预测评价、规划设计、决策监控、运营指挥和传播知识等各 个方面。AutoCAD制图已广泛应用于测绘、规划、设计与土地管理等部门，这些部门经常会与地籍、地形 图接触，这就要求各测绘部门提供精度较高、美观的数字地籍、地形图。随着各测绘单位计算机的普及和 测绘仪器设备自动化程度的提高，这使得对使用和开发适合测绘行业的软件，在运行和操作上进一步加强 尤为重要。而引进和利用好AutoCAD软件在测绘行业来说有着举足轻重的作用。其中编制和开发适合自身 行业特点的各种程序又是衡量测绘单位数字化、自动化程度的一个标准。因此，在利用好AutocAD软件的 基础上用AutoLisp进行二次开发，完善测绘图纸资料具有重要意义。 我们根据《工程测量规范》、《水运工程测量规范》，经过长期编制和修改，编写出了适合我们自身的一 些应用程序，极大地减轻了劳动强度，提高了工作效率和成图速度。 二、AutoLi sp程序的应用 1、在图框校准上的应用 由于我们在未使用计算机前和使用计算机初期，存在大量的手工描图，现在又有必要将其进行数字化 作业，一般的方法是将原图进行扫描形成影像图，再在影像图上进行数字化作业。这样就出现了个问题， 就是因为原图经过扫描仪扫描后存在误差，而AutoCAD的图像校准又不是很理想，这就要求我们开发出能够 很好校准原图的程序。提高作图精度，保证测图质量，为此我们分析了数字化图中影像部分的数据结构， 编写出了校准程序，很好的解决了问题。 其实现过程的程序如下： d2 defun bl dl datax imgytbl) c：imgtz(／p0p1p2 anganglan92 datayimgx 423XnXn) (command”units”2 ’作者简介：阳云安，男，1972年11月lO日出生，工程测量专业。工作单位：长江重庆航运工程勘察设计院。 电话邮编：400011。 237 (prompt”请您选择图象的外边框以选取它：”) (setqusent(car(entsel))) 1 (setqimgx(car(cdr(assoc 3(entgetusent))))) 1 (setqimgy(car(cdr(cdr(assocusent)))))) 3(entget (prompt”、Il请确定图象的西南角点：”) (setqpl(getpoint)) (prompt”、Il请确定图框西南角点：”) (setqpO(getpoint p1)) rcommand”_move”usent…’plpO) (prompt”＼n请找准图象东南角交点：”) (setqp2(getpoint)) d2(distance (