|
阅读：1586回复：2
怎样在mapobjects中计算地图比例尺?
<P>大侠回答</P>
|
|
|
1楼#
发布于：2007-05-11 14:12
<P>大侠回答</P>
|
|
|
2楼#
发布于：2007-05-12 08:38
<P>Const INCH2FEET = 12<br>Const INCH2METERS = 39.37<br>Const INCH2DEGREES = 4322893.46</P>
<P><br> iMapScrWidth = frmMain.Map1.Width / 1440<br> Select Case MapUnit<br> Case "度(十进制)": iMapExtWidth = frmMain.Map1.Extent.Width * INCH2DEGREES<br> Case "米": iMapExtWidth = frmMain.Map1.Extent.Width * INCH2METERS<br> Case "英尺": iMapExtWidth = frmMain.Map1.Extent.Width * INCH2FEET<br> Case Else<br> iMapExtWidth = frmMain.Map1.Extent.Width * INCH2METERS '缺省情况下按米为单位<br> End Select<br> If iMapScrWidth > 0 Then<br> Douscale = iMapExtWidth / iMapScrWidth<br> End If<br> text1.text = "比例尺: 1：" ; Format(Douscale, "##0.00")<br> End If</P> [此贴子已经被作者于2007-5-12 8:40:23编辑过]
|
|
|
