Office52中设置地图比例尺及单位VBA代码示例.pdfVIP

DIMechelleasSTRING

设置距离单位cm

设置纸张单位cm

__

echelle=(MAPPERINFO(窗口ID(IdMap),MAPPERINFO比例))/100

在窗口WindowID(IdLayout)中创建文本Echelle:1cm=

echellem(28.5,28)(33.5,28)字体(Arial,0,12,黑色)

设置距离单位为“公里”

设置纸张单位为“厘米”

获取地图窗口的缩放级别并转换为厘米

__

zoom=(MAPPERINFO(FrontWindow(),MAPPERINFOZOOM)*100000)

获取地图窗口的缩放级别与布局窗口宽度（37.45厘米）之间的比例关系，以公里为单位

布局窗口的宽度（37.45厘米）

比例=((zoom/37.45)/100000)

计算以公里为单位的标尺线条宽度，对应布局中的1厘米

布局

标尺线条宽