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

1、地形图缩编中植被符号的抽稀方法 摘要：本文简述了在南方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: t

2、opographic map; generalization; vegetation symbols; thinning; skeleton; scale; AUTOLISP; programming 中图分类号： P284 文献标识码：A 文章编号：2095-2104（2013） 1 引言 在城市建设过程中，各个部门对地形图的比例尺要求也不相同。为了避免重复测绘，不同比例尺地形图通常采用缩编的方法获得，这样既经济又缩短了工期。本文基于南方CASS9.0平台，阐述了1：500地形图缩编为1：2000过程中植被符号的抽稀方法。 2CASS软件下植被符号的抽稀方法 2.1植被符号的自动缩放和抽稀

3、缩编的第一步是更改比例尺，其步骤为：点击菜单文件 “绘图处理”中 “改变当前图形比例尺”， 出现“输入新比例尺1:”后输入“2000”， 出现“是否自动改变符号大小？(1)是 (2)否 ”时直接回车，文字、图块的大小、线形的宽度都由1：500直接改为1：2000的样式了。 骨架线（ASSIST层）是数字地图导入GIS的一种概念性数据结构和支撑技术。同时，也是CASS的一种底层数据结构。这种数据结构使得CASS的地图编辑可以直接针对骨架线进行。任何线状地物或面状地物，只要骨架线的数据（位置等）发生改变，与骨架线相关的所有符号也会发生相应的改变。 植被符号以块的形式存在于图形中，在改变比例尺的过程

4、中，如果植被符号的骨架线是闭合的，其内部的植被符号图块的X、Y、Z比例由原来的0.5改变为2.0，符号被整体放大4倍，并按新的间距（1：500符号间距的4倍）重新布设符号，实现符号的自动抽稀；如果植被符号的骨架线不闭合或者没有骨架线，符号自动放大4倍，但符号的间距还是原来的间距，这种情况下就需要人工处理了。 2.2植被符号的人工抽稀 在植被符号的骨架线不闭合或者没有骨架线的情况下，改变比例尺后需要人工处理。其方法是：1，骨架线不闭合情况下修改骨架线对象特性，使其闭合，输入命令recass及选项S，选中骨架线后点击鼠标右键，完成植被符号的重构。2，没有骨架线的情况下，使用多段线沿植被符号的最外围

5、画线并使其闭合，用相同符号已有的骨架线刷刚画的线，使其变为骨架线，删除骨架线内的符号，同样使用命令recass即可。 AUTOLISP编程实现植被符号的抽稀方法 3.1AUTOLISP语言简介 LISP (LISTProcossing Language)是一种计算机的表处理语言，是迄今为止人工智能学科领域广泛应用的一种程序语言。而AUTOLISP语言是一种嵌在AUTOCAD内部的LISP编程语言，它是LISP语言和AUTOCAD的有机集合的产物，它采用了与LISP语言中的Common LISP 最相近的语法和习惯约定，它可以直接调用几乎全部AUTOCAD 命令。 3.2程序的实现 在CAD命令

6、行中输入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请选择一个

7、植被符号:") (command "zoom" "e" "") (setq tyb (entget(car s1) (setq gjz0 (assoc 0 tyb) (setq tkm (assoc 2 tyb) (setq tcm (assoc 8 tyb) (setq glb (list gjz0 tcm tkm) (setq s (ssget "x" glb ) (setq tygs (sslength s) (setq ff (open "d:/坐标表.txt" "w

8、") (setq i 0) (repeat tygs (setq dgtym (ssname s i) (setq dgtyb (entget dgtym) (setq zbb (cdr (assoc 10 dgtyb) (setq zbx (rtos (car zbb) 2 2) (setq zby (rtos (cadr zbb) 2 2) (setq zbzfq (strcat zbx "," zby) (write-line zbzfq ff) (setq i (1+ i) ) (close ff) (command"._erase"

9、s "" ) (setq tcm1 (cdr tcm) (command "layer" "s" tcm1 "") (setq ff (open "d:/坐标表.txt" "r") (setq tkmc (strcat (cdr tkm) ".dwg") (setq i 0) (while (< i tygs) (setq zbzfq (read-line ff) (setq zfqcd (strlen zbzfq) (setq dhwz (vl-s

10、tring-search "," zbzfq) (setq xzb (atof (substr zbzfq 1 dhwz) (setq yzb (atof (substr zbzfq (+ dhwz 2) (setq zbb (list xzb yzb) (setq p1 (list (- xzb xzl) (- yzb yzl) (setq p2 (list (+ xzb xzl) (+ yzb yzl) (setq s (ssget "w" p1 p2 glb ) (if (= s nil) (progn (setq p1 (list (- xzb

11、3) (- yzb 3 (* 0.01 blc) (setq p2 (list (+ xzb 3) (+ yzb 3 (* 0.01 blc) (setq s (ssget "w" p1 p2 glb ) (if (= s nil) (command "-insert" tkmc zbb blxs blxs blxs) (setq i (1+ i) (close ff) (command "layer" "s" 0 "") ) 3.3 程序的的使用方法及编程思路 3.3.1 程序的的使用方法 在

12、CAD命令行中输入appload命令，找到fhcx.lsp文件加载，同时在启动组中添加此文件即可。在CAD命令行中输入fhcx回车，选中一个植被符号，本图内此类符号就自动进行抽稀处理。 3.3.2 程序的编程思路 自动获取本文档的比例尺，确定插入符号图块的比例及间距；选中一个植被符号后将本类别符号的插入点坐标写入文本文件，然后删除此类别的植被符号；依次读出坐标文件，并以此坐标点为中心设置搜索范围，查找此类别的植被符号，如果找不到，就以此坐标为插入点插入此类别的植被符号，否则以下一坐标点为中心进行搜索，直到所有坐标点搜索完为止。 4结束语 骨架线（ASSIST层）在闭合的情况下，通过改变当前图形的