湘源生成SU地形的多余数据处理

**xuhuiwen329** · 拓城校尉|**xuhuiwen329** 发表于 2013-11-4 18:56:08

本帖最后由 xuhuiwen329 于 2013-11-5 13:07 编辑

https://www.eeeetop.com/thread-11550-1-1.html版搜到一个教程，但是实际操作的时候会有一些无关数据不能通过操作中的过滤去除，请教了下同学，上操作图。
1、字转高程，根据提示，输入上下限标高，选择生成地形范围

2、发现有两种数据类型：建筑标高（一位小数）、地形标高（两位小数），前者需要剔除

3、导出数据点的EXCEL表

4、在excel表里把不符合的数据删掉。（这里借助代码比较方便，等我问程序员要到代码就分享给大家）

代码来了：Sub deleteError()
Dim i As Long
For i = 2 To Range("A65536").End(xlUp).Row
      s = Str(Abs(Cells(i, 4).Value))
      a = Len(s) - InStr(s, ".")
      If a = 1 Then
         Rows(i).Delete
      End If
Next
End Sub
注：alt+f11运行代码，把range改成表格行数

我自己开发了一个比较简单的处理过滤多位小数通用的办法在EXCEL表里生成一列放大10倍的数据列E，具体操作是另ei=di*10，然后把该列选择性黏贴，数值复制回D列，导入CAD，利用CAD生成高程程序里面过滤数字和小数去过滤（可能要来回导几遍，未亲测），最后生成网格的时候沿z轴放0.1倍。

5、重新打开地形CAD或者新开一个CAD（这一步是为了取消第一步的字转高程操作，避免新导入高程信息的干扰），然后导入修改好的excel表（已经带有高程信息，不需要再转高程）

6、生成方格模型，设置间距越小，细节越丰富

输入view3d命令可以看到预览效果

7、回到普通模式，将其余图层全关闭，只剩下刚才画好的方格网，复制到一个新建文档中，命名为地形.dwg保存

8、在sketchup里导入地形.dwg

9、最后柔化处理一下，效果如图
（没有去除建筑物高程的结果）

（比对一下去除建筑高程结果，有几个数据还没去干净）

大家如果有兴趣分离建筑物的高程可以下载我导出的excel数据生成地形试试。

原高程点.rar (73.38 KB, 下载积分: e币 -2 e币充值 VIP免e币)