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
  • 相关阅读:
    wxpython 简单例子:显示文本框的窗口显示鼠标位置
    wxpython学习:创建最小的空的wxPython程序
    wxPython学习笔记
    5G PDCCH 协议
    FPGA学习
    CCS 5.5下载地址http://www.dianyuan.com/bbs/1492792.html
    朴素贝叶斯
    决策树最后的存储 检测
    决策树 绘图
    决策树 书上的例题
  • 原文地址:https://www.cnblogs.com/zhangjun1130/p/1562267.html
Copyright © 2011-2022 走看看