植被抽稀lisp程序_地形图缩编中植被符号抽稀方法.doc

地形图缩编中植被符号抽稀方法

地形图缩编中植被符号抽稀方法

摘要：本文简述了在南方CASS9.0软件下，软件自带功能及AUTOLISP编程实现地形图缩编中植被符号的抽稀方法。

关键词：地形图；缩编；植被符号；抽稀；骨架线；比例尺；AUTOLISP；编程

Abstract: This paper describes in the South CASS9.0 software, software function and AUTOLISP programming topographic map generalization of vegetation sparse symbolic approach.

Keywords: topographic map; generalization; vegetation symbols; thinning; skeleton; scale; AUTOLISP; programming

中图分类号： P284 文献标识码：A 文章编号：2095-2104(2013)

1 引言

在城市建设过程中，各个部门对地形图的比例尺要求也不相同。为了避免重复测绘，不同比例尺地形图通常采用缩编的方法获得，这样既经济又缩短了工期。本文基于南方CASS9.0平台，阐述了1：500地形图缩编为1：2000过程中植被符号的抽稀方法。

2CASS软件下植被符号的抽稀方法

2.1植被符号的自动缩放和抽稀

缩编的第一步是更改比例尺，其步骤为：点击菜单文件 “绘图处理”中 “改变当前图形比例尺”， 出现“输入新比例尺1:”后输入“2000”， 出现“是否自动改变符号大小？(1)是 (2)否 ”时直接回车，文字、图块的大小、线形的宽度都由1：500直接改为1：2000的样式了。

骨架线(ASSIST层)是数字地图导入GIS的一种概念性数据结构和支撑技术。同时，也是CASS的一种底层数据结构。这种数据结构使得CASS的地图编辑可以直接针对骨架线进行。任何线状地物或面状地物，只要骨架线的数据(位置等)发生改变，与骨架线相关的所有符号也会发生相应的改变。

植被符号以块的形式存在于图形中，在改变比例尺的过程中，如果植被符号的骨架线是闭合的，其内部的植被符号图块的X、Y、Z比例由原来的0.5改变为2.0，符号被整体放大4倍，并按新的间距(1：500符号间距的4倍)重新布设符号，实现符号的自动抽稀；如果植被符号的骨架线不闭合或者没有骨架线，符号自动放大4倍，但符号的间距还是原来的间距，这种情况下就需要人工处理了。

2.2植被符号的人工抽稀

在植被符号的骨架线不闭合或者没有骨架线的情况下，改变比例尺后需要人工处理。其方法是：1，骨架线不闭合情况下修改骨架线对象特性，使其闭合，输入命令recass及选项S，选中骨架线后点击鼠标右键，完成植被符号的重构。2，没有骨架线的情况下，使用多段线沿植被符号的最外围画线并使其闭合，用相同符号已有的骨架线刷刚画的线，使其变为骨架线，删除骨架线内的符号，同样使用命令recass即可。

AUTOLISP编程实现植被符号的抽稀方法

3.1AUTOLISP语言简介

LISP (LISTProcossing Language)是一种计算机的表处理语言，是迄今为止人工智能学科领域广泛应用的一种程序语言。而AUTOLISP语言是一种嵌在AUTOCAD内部的LISP编程语言，它是LISP语言和AUTOCAD的有机集合的产物，它采用了与LISP语言中的Common LISP 最相近的语法和习惯约定，它可以直接调用几乎全部AUTOCAD 命令。

3.2程序的实现

在CAD命令行中输入vlide进入到LISP的编辑界面中，新建一个LSP文件，写入下列代码，并保存为fhcx.lsp。

(defun c:fhcx ()

(vl-load-com)

(setvar "cmdecho" 0)

(setvar "osmode" 0)

(setq blc (getvar "userr1"))

(setq blxs (* 0.001 blc))

(setq xzl (- (* 0.02 blc) 1.5))

(setq yzl (- (* 0.01 blc) 1.5))

(setq s1 (entsel "\n请选择一个植被符号:"))

(command "zoom" "e" "")

(setq tyb (entget(car s1)))

(setq gjz0 (assoc 0 tyb))

(setq tkm (assoc 2 tyb))

(setq