剖面上大量点垂直投影点到平面上

发烧冰河纪 · 发表于 2015-6-3 23:53

本帖最后由发烧冰河纪于 2015-6-5 10:00 编辑

第一次制作这个，有点慢，出错率有点高哦。也许大家不会用到，不会给大家很么帮助。不过这是个人的一点心得体会。还是分享大家，望大家多多指正交流。
制作过程曲折颇多，
首先是没考虑到许多点是重名的，在表格筛选上就出错了。
其次在投影线后部分投影线无法批量/单独靠近线，不知道是何原因。
自己折腾几个小时，反反复复。即使最后录制过程也是如此，加上视频操作过程较长，希望大家观看过程中多几分耐性。
本次实际投影点数量420多个，前后花了约40余分钟。我相信以后用时会更短，倒是效率会大大提高。
说点个人心得：在处理大量数据过程中有时候避免不了重复属性或点名的问题，这时我们不妨新建临时文件重新构建他们的属性，以便没个图元都具有唯一性。
表格处理用宏：
Sub 隔行插入1行()
Dim i, n, x
   Application.ScreenUpdating = False
   i = ActiveSheet.UsedRange.Rows.Count
      For n = i To 1 Step -1
         For x = 1 To 1
            ActiveSheet.Rows(n).Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove 'xldown表示在下边插入插入的行格式随上面行的格式
         Next x
      Next n
Application.ScreenUpdating = True
End Sub