[スイッチ]
ARCGISプロパティ・シートでは、一般に、固体形状情報が含まれていないであろう、それはVBAを取る計算することができます。 ここで（大学をブレーンストーミングから転載）いくつかの簡単なコードです 特徴： 1は友人がAO使用することはありません知らせる 次のCALの利便性のためのファイルとして保存することができます2を 使用するには 1 [プロパティシートを、コンピューティング、右のフィールドを選択値は、選択を計算指す; 2を計算フィールドを入力し、「はい」を選択,;。 選択された2アドバンスオプション; 3事前の中に入力VBAコードロジックVBAスクリプトコード編集ボックス; 4エディットボックス割当部未満。 1。 - ポイントX-座標を VBA部分： としてIGeometryの暗いpGeoを セットpGeo = [形状] IPointとしての暗いpPoint セットpPoint = pGeo 割当部： pPoint.X 2 - 座標Y VBA部： 同上 割当部： pPoint.Y 固有の座標値ファイルストレージの値、及びフライ座標に依存しない表現に使用するかどうか。戻り値は、現在のディスプレイは、参考8と座標値9。 3 - 境界多角 VBA部分： としてIGeometryの暗いpGeo セットpGeo = [形状] IPolygonとしての暗いpPolygon セットpPolygon = pGeo 割り当て部： pPolygon.Length 。4 - ポリゴン領域 VBA部： としてIGeometryの暗いpGeo セットpGeo = [形状] の暗いpPolygon IPolygonとして 設定pPolygon = pGeo としてIAreaの暗いParea セットParea = pPolygon 割り当て部： pArea.Area 。5 - ポリゴンフォーカスX- VBA部： IGeometry薄暗いのPGeo セットpGeo = [形状] IPolygonとしての暗いpPolygon セットpPolygon = pGeo としてIAreaの暗いParea セットParea = pPolygon IPointとしての暗いpPoint セットpPoint = pArea.Centroid 割り当て部： pPoint.X 。6 - ポリゴンフォーカスY VBA部： 同上 割当部： pPoint.Y 。7 - ポリライン長 VBA部分： としてIGeometryの暗いpGeo セットpGeo = [形状] としてIPolylineの暗いpPolyline セットpPolyline = pGeo としてIPolycurveの薄暗いpCurve PCurve SET = pPolyline 割当部： pCurve.Length 8 - 座標を表す点がX- VBAの一部を： としてIMxDocumentの薄暗いPDOC SET PDOC = ThisDocumentの ようISpatialReferenceの暗いpSpRef pSpRef SET = pDoc.FocusMap.SpatialReference 暗いpCloneとしてのiCloneの SET pClone = [形状] としてIGeometryの暗いpGeoを pGeo SET = pClone.Clone 薄暗いpPoint AS IPoint SET pPoint = pGeo pGeo.Project pSpRefの 割当部： pPoint.X 9。 - Yの座標を表す点 VBA部： 同上 割当部： pPoint.Y