11
メッシュの面積を求める (2)
nフィールドの演算式を入力する
⇒「高度な設定」にチェックをして，以下のコードを入力する
Dim pGeo As IGeometry
Set pGeo = [Shape]
Dim pPolygon As IPolygon
Set pPolygon = pGeo
Dim pArea As IArea
Set pArea = pPolygon
Set pGeo = [Shape]
Dim pPolygon As IPolygon
Set pPolygon = pGeo
Dim pArea As IArea
Set pArea = pPolygon
pArea.Area
