资源描述：
《130507autolisp在cass图形要素规范化中的应用》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、AutoLisp在CASS图形要素规范化中的应用黄太山3（1•安徽理工大学安徽淮南232001；2：福建省国土测绘院福建厦门361012）摘要：C/SS软件默认生成的图形要素特征是根据其系统内部定义表示的，本文介绍了如何利用/utoLisp与CASS自带功能轻松实现CASS图件要素的快速规范化。关键词：CASS;AutoLisp;图形要素；规范化中图分类号：P217文献标识码：ATheApplicationofAutoLispinStandardizedCASSGraphicElements（I.AnhuiUniversit
2、yofScienceandTechnology,Huainan232001,China;2.FujianProvinceLandInstituteofSurveyingandMapping,Xiamen361012,China）Abstract:ThecharacteristicofgraphicelementsgeneratedbyCASSisgeneratedaccordingtothedefinitionofitsinternalsystem,thispaperintroduceshowtouseAutoLispandCA
3、SSownfunctiontoachieveCASSmapelementsstandard!zedeasi1y.1刖B为了满足福建省新农村建设急需的村居规划建设和城镇村庄地籍调杳工作用图的需求,福建省测绘地理信息局组织了全省村庄规划编制地形测绘工作。为保证各施测单位捉供成果的统一，该局制定了统一的村庄规划编制地形测绘技术规定，对图件成果也做了具体耍求。其中，图层设定、颜色配置等要求都与CASS软件默认生成的图形要素特征不尽一致，为了快速规范这些图形要素特征，可以通过简单的AutoLisp快速的实现CASS图件要素规范化制作。Au
4、toLisp是嵌入CAD的用户程序设计语言，运行于CAD环境，是CAD提供的用户功能应用开发手段中最常用，最有实效的一种。是我们在CAD应用开发中最主要的工具2开发原理CASS软件的图形要素都是通过英内部编码來识别相应实体性质，如141101表示混房，它归属“JMD”图层，实体颜色为品红色。然而，此次测量要求房屛的图层名称为：居民地（由拼音首字母变为屮文全称），而房屋颜色则要求表示为口色。部分图层与颜色变化如衣1所示：表1部分图层与颜色变化表CASS默认生成村庄规划测量要求图层名称颜色农示图层名称颜色农示JMD品红居民地白DGX
5、黄色计曲线红首曲线绿DLSS青色道路层暗绿色从表1屮可以看出，不仅图层名称和颜色存在变化，等高线还区分计曲线和首曲线，分别独立创建图层，并II用不同颜色表示。为了将CASS直接绘制的各实体要索转换为木次测量要求的相应特征，按照传统的方法是手工杳找每个实体，然麻一一修改其图层位置和颜色性质。CASS采用了实体编码，通过CASS的图形属性转换（“地物编辑”菜单F）功能对以成批的将各图形要索通过实体编码转换图层或颜色，实现各类实体的快速转换，但存在三个缺陷。首先，由于图件中的各类实体较多，通过图形属性转换功能虽然可以快速的实现各类实体
6、转换，但转换工作都是人为操作，转换工作量较大，容易造成图层名称和颜色值输入错误,且工作效率极低。其次,虽然图形属性转换屮的多属性批量转换町以实现一键转换，转换格式如表2所示,但是由于较多的实体颜色、线型、宽度等特征要求为“ByLayer”（随层），而采用多属性批量转换的文本文件屮的转换后实体特征值不能填写为“ByLaycr”，如表2所示，最后一•行转换代码不能写为：“201101,ByLayer”。此外，使用这种方法进行批量转换之后，原图层实体因为图层位置、颜色等特征被改变,造成无用块、无实体图层，无用线型、字体等垃圾需要人工清
7、理。表2CASS多属性批量转换格式文件格式为记事本,如属性批量转换・txt*编码，图层141200,屈民地*编码，颜色201101,4为了解决以上作业方法的缺陷,可以通过编写一定的AutoLisp程序实现一键轻松转换。因为AutoLisp具有多命令组合运行的优势，组织利用图形属性转换的内部命令，配合一些常用的图形处理命令就町以实现CASS图形要素的一键快速规范化。3代码编写为了对LISP语句进行直接说明，下面采用代码结合解释办法，对每一行代码进行功能介绍。(defunc:TCGF();;;说明：定义函数名称为TCGF,即指图层规
8、范(CommandchangealIpcByLayer);;;说明：由于CASS属性批量转换文件屮的颜色文本不能填写为“ByLayer",可以利用CAD总部命令“change”将所有实体颜色设置为“ByLaycr”(随层)(Command-LayeFC〃"T〃控
