[求助]VB+AE下，如何得到地图距离和面积单位

<P>VB+AE下，如何得到地图距离和面积单位</P>
<P>  如何连接arcsde</P>

<P>单位:Imap.MapUnits</P>
<P>连接ArcSDE：</P>
<P>' This example opens a Geodatabase featureclass using a property set. <BR><BR>Dim pPropset As IPropertySet <BR>Set pPropset = New PropertySet <BR><BR>Dim pFact As IWorkspaceFactory <BR>Dim pWorkspace As IWorkspace <BR><BR>With pPropset <BR>.SetProperty "Server", "testserver" <BR>.SetProperty "Instance", "sdemss" <BR>.SetProperty "Database", "sde" ' Ignored with ArcSDE for Oracle <BR>.SetProperty "user", "sde" <BR>.SetProperty "password", "go" <BR>.SetProperty "version", "sde.DEFAULT" <BR>End With <BR><BR>Set pFact = New SdeWorkspaceFactory <BR>Set pWorkspace = pFact.Open(pPropset, Me.hWnd) <BR><BR>Dim pFeatureWorkspace As IFeatureWorkspace <BR>Set pFeatureWorkspace = pWorkspace <BR><BR>Dim pFeatureClass As IFeatureClass <BR>Set pFeatureClass = pFeatureWorkspace.OpenFeatureClass("parcels")</P>

<P>是不是面积单位不用设置</P>
<P>即 长度单位为米，面积单位则为平方米</P><br>

<P>距离单位Arcengine</P>
<P>Dim pMapUnits As esriUnits<BR>        pMapUnits = AxMapControl1.MapUnits<BR>        If pMapUnits = esriUnits.esriCentimeters Then<BR>            sMapUnits = "厘米"<BR>        ElseIf pMapUnits = esriUnits.esriDecimalDegrees Then<BR>            sMapUnits = "度"<BR>        ElseIf pMapUnits = esriUnits.esriDecimeters Then<BR>            sMapUnits = "英寸"<BR>        ElseIf pMapUnits = esriUnits.esriFeet Then<BR>            sMapUnits = "度"<BR>        ElseIf pMapUnits = esriUnits.esriInches Then<BR>            sMapUnits = "寸"<BR>        ElseIf pMapUnits = esriUnits.esriKilometers Then<BR>            sMapUnits = "公里"<BR>        ElseIf pMapUnits = esriUnits.esriMeters Then<BR>            sMapUnits = "米"<BR>        ElseIf pMapUnits = esriUnits.esriMiles Then<BR>            sMapUnits = "里"<BR>        ElseIf pMapUnits = esriUnits.esriMillimeters Then<BR>            sMapUnits = "毫米"<BR>        ElseIf pMapUnits = esriUnits.esriNauticalMiles Then<BR>            sMapUnits = "海里"<BR>        ElseIf pMapUnits = esriUnits.esriPoints Then<BR>            sMapUnits = "点"<BR>        ElseIf pMapUnits = esriUnits.esriUnknownUnits Then<BR>            sMapUnits = "未知单位"<BR>        ElseIf pMapUnits = esriUnits.esriYards Then<BR>            sMapUnits = "码"<BR>        End If<BR>    End Sub</P>

<P>你这里的度要怎么样才能转换为米呢？</P>

iunitconvert