zoukankan      html  css  js  c++  java
  • 自动生成9*9个格子,然后Clip16万个points(Arcmap+vba+手动)

    发现个人的功力还是不够,学到的很多,但是忘记的也不少,需要把学习到的管理起来,方便以后的查询,而且把常用的做成工具直接调用。
    总结与反思是非常重要的,管理也是毋庸置疑的重要,now,make my resources perfect.

    Dim i As Integer
    Dim k As Integer


    Dim j As Integer
    j = 2000
    Dim x As Long
    Dim y As Long
    x = 108000
    y = 2454000



    Dim pMxDoc As IMxDocument
    Set pMxDoc = Application.Document

    Dim pMap As IMap
    Set pMap = pMxDoc.FocusMap

    Dim pActiveView As IActiveView
    Set pActiveView = pMxDoc.FocusMap

    Dim pFeatureClass As IFeatureClass
    Dim pFeatureLayer As IFeatureLayer

    For k = 0 To 8

    x = 108000
    For i = 0 To 8

    Set pFeatureLayer = pMap.Layer(i + k * 9)
    Set pFeatureClass = pFeatureLayer.FeatureClass

        Dim pFeature As IFeature
        Set pFeature = pFeatureClass.CreateFeature
        
        Dim pPointCollection4 As IPointCollection4
        Set pPointCollection4 = New Polygon
        
        Dim pPolygon As IPolygon
        Set pPolygon = pPointCollection4
        
        
        Dim pPoint As IPoint

        Set pPoint = New Point
        pPoint.PutCoords x, y
        pPointCollection4.AddPoint pPoint

        
        Set pPoint = New Point
        pPoint.PutCoords x + j, y
        pPointCollection4.AddPoint pPoint
        
        Set pPoint = New Point
        pPoint.PutCoords x + j, y - j
        pPointCollection4.AddPoint pPoint
        
        Set pPoint = New Point
        pPoint.PutCoords x, y - j
        pPointCollection4.AddPoint pPoint
        
        pPolygon.Close
        Set pFeature.Shape = pPolygon
        pFeature.Store
        x = x + 2000
           
    Next i

    y = y + 2000
    Next k

        pActiveView.Refresh
  • 相关阅读:
    jvm gc 日志详细信息的输出(一)
    带宽与数据传输速率
    功率半导体器件
    超链接标签a样式生效,取消下划线,文字垂直(上下)居中
    防范诈骗
    去掉table中的空隙
    html中使用js实现内容过长时部分
    背景色透明度设置
    jQuery给标签写入内容
    多个div居中显示
  • 原文地址:https://www.cnblogs.com/zhangjun1130/p/1562267.html
Copyright © 2011-2022 走看看