cad中炸开符号的自动识别和生成

《cad中炸开符号的自动识别和生成》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、CAD中炸开符号的自动识别和生成赵振东（辽宁省地理信息院，辽宁沈阳110034）摘要：在测绘生产中，有时由于历史原因，我们要处理的cad数据是碎线，即符号等全被炸开成一段一段的了，这时，我们除了用它做底图重新采集外，似乎是没有什么办法了，眼瞅着现有数据却不能直接用，还得重画，真的很郁闷。其实，通过分析各个符号的几何特征，利用autolisp二次开发还是有办法的。本文就是以一幅cad图中植被符号为例来解决这种碎线提取的问题。关键词：CADautolisp符号识别特征植被符号1以直线为特征的符号提取（1）CAD数据现状我们所看到的是一幅全要素CAD图，包括居民地、道路、植被等。所有植被符号都在L

2、层，以碎线形式存在。L层各种符号样子如下：L层对象情况：1）所有对象共有13种。2）所有对象同一图层和颜色。3）碎线符号之间间距大于150。4）各个符号线划集中在40x40的小矩形范围内。（2）针对以上特征，以针阔混交林为例，因其最下面水平线超长为29，具有唯一性，设计其提取流程：N选择所有在L层的直线放到选择集SSOLD中顺序获取SSOLD中一条直线直线角度=180长度>28依此直线生成40x40选区区直线中点为符号插入点选中的碎线移到tmp层插入针阔混交林符号到newL层Y（3）实现前期工作：1、新建tmp层，在此层存放提取的线划。2、新建newL层，在此层插入标准符号。Lisp代码实现

3、部分：(setqssold(ssget"X"'((0."LINE")(8."L"))))(setqssnewnil)(setqn1(sslengthssold))(setqi0num10num20flag0)(command".zoom""e""")(while(

4、)(equalang00.001))(progn(setqpt3(polarpt2(/pi2)25))(setqss1(ssget"c"pt1pt3'((8."L"))))(if(=(sslengthss1)6)(progn(command"change"ss1"""p""la""tmp""")(setqpt1(polarpt1013))(command".insert""f118"pt11010"""")))))(setqi(+i1)))（4）各种以线为特征线的符号比较：特征线长度角度符号插入点找到对象个数针阔混交林最底线290中点5针叶林中间线2590下端点3稻田中间线2090中点1草地

5、左边线1090中点1，直线旱地最底线200中点2，直线疏林最底线100左端点1，圆经济林最上线890下端点1，圆阔叶林最底线5.80左端点2表中其它符号的提取同针阔混交林。2以圆为特征的符号提取（1）以圆为特征的同线的稍有不同，以成林符号为例，设计提取流程如下：YN选择所有在L层的圆放到选择集SSOLD中顺序获取SSOLD中一个圆圆半径=6圆心为符号插入点插入成林符号到newL层Y选区圆=1选中圆移到tmp层依此圆心生成40x40选区（2）Lisp代码实现部分：(setqssour(ssget"X"'((0."ARC")(8."L")(-4."<=")(40.6.01)(-4.">=")))

6、)(setqn1(sslengthssour))(setqi0num20)(command".zoom""e""")(while(

7、etqpt4(polarpt(*pi1.25)15))(setqss2nil)(setqss2(ssget"_C"pt3pt4'((0."ARC")(8."L")(-4."<=")(40.4.01)(-4.">=")(40.3.99))))(if(and(=len11)(notss2))(progn(setqess(ssadden))(command".change"ess"""p""la""tmp""")(