1、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:
2、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 植被符号的
3、自动缩放和抽稀 缩编的第一步是更改比例尺，其步骤为：点击菜单文件 “绘图处理”2中 “改变当前图形比例尺” ， 出现“输入新比例尺 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，选中骨架线后点击鼠标右键，完成植被符号的重
5、构。2，没有骨架线的情况下，使用多段线沿植被符号的最外围画线并使其闭合，用相同符号已有的骨架线刷刚画的线，使其变为骨架线，删除骨架线内的符号，同样使用命令 recass即可。 3AUTOLISP 编程实现植被符号的抽稀方法 3.1AUTOLISP 语言简介 LISP (LISTProcossing Language)是一种计算机的表处理语言，是迄今为止人工智能学科领域广泛应用的一种程序语言。而 AUTOLISP语言是一种嵌在 AUTOCAD内部的 LISP编程语言，它是 LISP语言和 AUTOCAD的有机集合的产物，它采用了与 LISP语言中的 Common LISP 最相近的语法和习惯约定
6、，它可以直接调用几乎全部 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 (ents
7、el “n 请选择一个植被符号:“) (command “zoom“ “e“ “) (setq tyb (entget(car s1) (setq gjz0 (assoc 0 tyb) 4(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“) (setq i 0) (repeat tygs (setq dgtym (ssname s
8、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“ s “ ) (setq tcm1 (cdr tcm) (command “layer“ “s“ tcm1 “) (setq ff (open “d:
9、/坐标表.txt“ “r“) 5(setq tkmc (strcat (cdr tkm) “.dwg“) (setq i 0) (while ( i tygs) (setq zbzfq (read-line ff) (setq zfqcd (strlen zbzfq) (setq dhwz (vl-string-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
10、 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 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
11、(1+ i) (close ff) (command “layer“ “s“ 0 “) 6) 3.3 程序的的使用方法及编程思路 3.3.1 程序的的使用方法 在 CAD命令行中输入 appload命令，找到 fhcx.lsp文件加载，同时在启动组中添加此文件即可。在 CAD命令行中输入 fhcx回车，选中一个植被符号，本图内此类符号就自动进行抽稀处理。 3.3.2 程序的编程思路 自动获取本文档的比例尺，确定插入符号图块的比例及间距；选中一个植被符号后将本类别符号的插入点坐标写入文本文件，然后删除此类别的植被符号；依次读出坐标文件，并以此坐标点为中心设置搜索范围，查找此类别的植被符号，如果找不到，就以此坐标为插入点插入此类别的植被符号，否则以下一坐标点为中心进行搜索，直到所有坐标点搜索完为止。 4 结束语 骨架线（ASSIST 层）在闭合的情况下，通过改变当前图形的比例尺可以自动完成植被符号的缩放和抽稀；在骨架线（ASSIST 层）不闭合或没有骨架线的情况下，AUTOLISP 编程可以快速完成符号的抽稀，减少人工操作的过程，提高工作效率。 参考文献 1 陈道洁，付守默。AutoLISP 及应用开发技术 M.成都科技大学出版社，1995。 2 倪晓东。数字化地形地籍成图系统 CASS 9.0 参考手册 Z.广7东南方数码科技有限公司，2010。
