CAD中炸开符号的自动识别和生成.docVIP

CAD中炸开符号的自动识别和生成 赵振东 （辽宁省地理信息院，辽宁 沈阳 110034） 摘 要：在测绘生产中，有时由于历史原因，我们要处理的cad数据是碎线，即符号等全被炸开成一段一段的了，这时，我们除了用它做底图重新采集外，似乎是没有什么办法了，眼瞅着现有数据却不能直接用，还得重画，真的很郁闷。其实，通过分析各个符号的几何特征，利用autolisp二次开发还是有办法的。本文就是以一幅cad图中植被符号为例来解决这种碎线提取的问题。 关键词：CAD autolisp 符号识别 特征 植被符号 1 以直线为特征的符号提取 （1）CAD数据现状 我们所看到的是一幅全要素CAD图，包括居民地、道路、植被等。所有植被符号都在L层，以碎线形式存在。L层各种符号样子如下： L层对象情况： 1）所有对象共有13种。 2）所有对象同一图层和颜色。 3）碎线符号之间间距大于150。 4）各个符号线划集中在40x40的小矩形范围内。 （2）针对以上特征，以针阔混交林为例，因其最下面水平线超长为29，具有唯一性，设计其提取流程： （3）实现 前期工作：1、新建tmp层，在此层存放提取的线划。 2、新建newL层，在此层插入标准符号。 Lisp代码实现部分： (setq ssold (ssget X ((0 . LINE)(8 . L)))) (setq ssnew nil) (setq n1 (sslength ssold)) (setq i 0 num1 0 num2 0 flag 0) (command .zoom e ) (while ( i n1) (setq en (ssname ssold i)) (setq ed (entget en)) (setq pt1 (cdr (assoc 10 ed))) (setq pt2 (cdr (assoc 11 ed))) (setq ang (angle pt1 pt2))(setq dis (distance pt1 pt2)) (if (and (equal dis 26 0.001) ( equal ang 0 0.001) ) (progn (setq pt3 (polar pt2 (/ pi 2) 25)) (setq ss1 (ssget c pt1 pt3 ((8 . L)))) (if (= ( sslength ss1) 6) (progn (command change ss1 p la tmp ) (setq pt1 (polar pt1 0 13)) (command .insert f118 pt1 10 10 ) ) ) ) ) (setq i (+ i 1)) ) （4）各种以线为特征线的符号比较： 特征线 长度 角度 符号插入点 找到对象个数 针阔混交林 最底线 29 0 中点 5 针叶林 中间线 25 90 下端点 3 稻田 中间线 20 90 中点 1 草地 左边线 10 90 中点 1，直线 旱地 最底线 20 0 中点 2，直线 疏林 最底线 10 0 左端点 1，圆 经济林 最上线 8 90 下端点 1，圆 阔叶林 最底线 5.8 0 左端点 2 表中其它符号的提取同针阔混交林。 2 以圆为特征的符号提取 （1）以圆为特征的同线的稍有不同，以成林符号为例，设计提取流程如下： （2）Lisp代码实现部分： (setq ssour (ssget X ((0 . ARC)(8 . L)(-4 . =)(40 . 6.01)(-4 . =)))) (setq n1 (sslength ssour)) (setq i 0 num2 0 ) (command .zoom e ) (while ( i n1) (setq en (ssname ssour i)) (setq ed (entget en)) (setq pt (cdr (assoc 10 ed))) (setq pt1 (polar pt (* pi 0.25) 9)) (setq pt2 (polar pt (* pi 1.25) 9)) (setq len1 0) (setq ss1 (ssget _C pt1 pt2 ( (8 . L))) ) (if ss1 (setq len1 (sslength ss1))) (setq pt3 (polar pt (* pi 0.25) 15)) (setq pt4