lisp语言在宅基地调查中的应用研究.docx

?

?

lisp语言在宅基地调查中的应用研究

?

?

吕永杰

摘要：CASS软件是目前地籍调查中主流的测绘软件，运用lisp语言可以方便快捷的实现宅基地调查中涉及到的地形图的绘制、宗地属性批量改正以及面积统计等内容，极大的提高了调查成果的质量和效率。

Abstract：CASSsoftwareisthemainstreamsurveyingandmappingsoftwareincadastralsurveys.Theuseoflisplanguagecanquicklyandeasilyimplementthetopographicmapping，parcelattributebatchcorrectionsandareastatisticsinvolvedinhomesteadsurveys，whichgreatlyimprovesthequalityandefficiencyofsurveyresults.

关键词：宅基地调查;CASS软件;lisp语言

Keywords：homesteadsurvey;CASSsoftware;lisplanguage

：TP391.7???????????????????文獻标识码：A?????????????????：1006-4311（2020）08-0211-02

0?引言

CASS在宅基地调查中应用广泛，无论是地形图的绘制还是宗地图的制作都便捷易操作。Lisp语言在CASS中可以实现其功能的延伸，处理一些固有功能之外无法实现的应用，针对宅基地调查数据量大、结构繁琐、逻辑关系复杂等实际情况，可以利用lisp语言实现对调查数据的批处理，将大大提高调查工作的质量和效率。

1?CASS软件和lisp语言简介

CASS软件是基于CAD平台开发的，一套集地形、地籍、空间数据建库、工程应用、土石方算量等功能为一体的软件系统。软件的方便、快捷、易用充分得到了市场的认可和用户的高度评价。

LISP语言（LISP，ListProcessing的缩写）是一种早期开发的、具有重大意义的表处理语言。它最突出的特点是实现技术简单，使用表结构来表达非数值计算问题。

2?lisp程序在调查中的应用实例

宅基地调查中的基础数据录入、改正和统计是调查中工作量最大和最容易出错的部分，本文根据实例来解决调查中遇到的问题。

①批量改正宗地图中的界址相关的属性问题。在调查中施工方会经常遇到发包方要求变更基础数据，如改变界址类别、类型、界标等情况，下面示例为CASS软件中批量修改界址类别。

（vl-load-com）

（print=======================）

（setvarosmode0）

（setvarcmdecho0）

（setqss（ssgetx（（0.POLYLINE）（8.JZD）））

sn（sslengthss）

i0

）;endsetq

（repeatsn

（setqe1（ssnamessi））

（while

（setqee1（entnexte1））;

（progn

（setqdata（entgetee1（*）））;

（setqdata1（assoc-3（entgetee1（*））））

;（setqdata2（cadr（assoc-3（entgetee2（jzxlb）））））;

（setqdata1（subst（JZXLB（1000.9XX））（JZXLB（1000.8XX））data1））

（setqdata（substdata1（assoc-3data）data））

（entmoddata）

（setqe1ee1）

）;endprogn

）;endwhile

（setqi（+i1））

（print（strcat还有（itoa（-sni1））宗地未处理，请等候！））

）;endrepeat

）;enddefun

（defunc：aa（）

（princ＼选择要仅留图层的实体）

（setqename（car（entsel）））

（if（/=nilename）

（progn

（setqlay（cdr（assoc8（entgetename））））

（setvarclayerlay）

（command-layeroff*）））

（princ））

（defunc：q（）

（command-layeron*）

（pri