zoukankan      html  css  js  c++  java
  • ArcMap常用VBA

    1--点坐标X
    VBA部分:
    Dim pGeo As IGeometry
    Set pGeo = [Shape]
    Dim pPoint As IPoint
    Set pPoint = pGeo
    赋值部分:
    pPoint.X
    
    2--点坐标Y
    VBA部分:
    同上
    赋值部分:
    pPoint.Y
    
    坐标值为文件存储的固有值,和是否使用On the Fly坐标表示无关。返回当前显示的坐标值参看8,9
    
    3--多边形周长
    VBA部分:
    Dim pGeo As IGeometry
    Set pGeo = [Shape]
    Dim pPolygon As IPolygon
    Set pPolygon = pGeo
    赋值部分:
    pPolygon.Length
    
    4--多边形面积
    VBA部分:
    Dim pGeo As IGeometry
    Set pGeo = [Shape]
    Dim pPolygon As IPolygon
    Set pPolygon = pGeo
    Dim pArea As IArea
    Set pArea = pPolygon
    赋值部分:
    pArea.Area
    
    5--多边形重心X
    VBA部分:
    Dim pGeo As IGeometry
    Set pGeo = [Shape]
    Dim pPolygon As IPolygon
    Set pPolygon = pGeo
    Dim pArea As IArea
    Set pArea = pPolygon
    Dim pPoint As IPoint
    Set pPoint = pArea.Centroid
    赋值部分:
    pPoint.X
    
    6--多边形重心Y
    VBA部分:
    同上
    赋值部分:
    pPoint.Y
    
    7--Polyline长度
    VBA部分:
    Dim pGeo As IGeometry
    Set pGeo = [Shape]
    Dim pPolyline As IPolyline
    Set pPolyline = pGeo
    Dim pCurve As IPolycurve
    Set pCurve = pPolyline
    赋值部分:
    pCurve.Length
    
    8--表示点坐标X
    VBA部分:
    Dim pDoc As IMxDocument
    Set pDoc = ThisDocument
    Dim pSpRef As ISpatialReference
    Set pSpRef = pDoc.FocusMap.SpatialReference
    
    Dim pClone As IClone
    Set pClone = [Shape]
    Dim pGeo As IGeometry
    Set pGeo = pClone.Clone
    Dim pPoint as IPoint
    Set pPoint = pGeo
    
    pGeo.Project pSpRef
    赋值部分:
    pPoint.X
    
    9--表示点坐标Y
    VBA部分:
    同上
    赋值部分:
    pPoint.
  • 相关阅读:
    防止SSH自动断线
    php intval()和floatval()
    开启 intel vt-d
    前用户sudo免密码
    分区工具parted的详解及常用分区使用方法
    Proxmox qm命令应用实例
    Mac上制作Centos7系统U盘安装盘
    FinalShell Mac OS版,Linux版安装及教程
    python爬虫彩票案例,并自动发微信
    Python利用itchat库向好友或者公众号发消息
  • 原文地址:https://www.cnblogs.com/lauer0246/p/4447586.html
Copyright © 2011-2022 走看看