surfer 免费下载 Surfer13 自动绘图之绘制张贴图(2)

?? ?? ?? ?? PostMap.LabelFont.Size = 3 ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ??'字体大小

?? ?? ?? ?? PostMap.LabelPos = 1 ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? '标记位置

?? ?? ?? ?? PostMap.SymFrequency = 1 ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? '标记频率

??‘设置绘图范围

MapFrame.SetLimits(xMin:=XCoordinateMin, xMax:=XCoordinateMax , _

?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? yMin:=YCoordinateMin ??yMax:=YCoordinateMax )

?? ?? ?? ?? ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

?? ?? ?? ?? '设置地图比例，其中MapFDXS为图件的比例，需另外设置变量，给出

?? ?? ?? ?? Dim PostMapWidth As Single, PostMapHeight As Single

?? ?? ?? ????Dim????MapFDXS as single=1

?? ?? ?? ?? PostMapWidth = (XCoordinateMax ??- XCoordinateMin ) * MapFDXS

?? ?? ?? ?? PostMapHeight = (YCoordinateMax ??- YCoordinateMin ) * MapFDXS

?? ?? ?? ?? MapFrame.xLength = PostMapWidth

?? ?? ?? ?? MapFrame.yLength = PostMapHeight

?? ?? ?? ?? '修改图框

?? ?? ?? ?? Dim Axes As Object

?? ?? ?? ?? Axes = MapFrame.Axes

?? ?? ?? ?? '设置图框范围

?? ?? ?? ?? Dim AxisX1, AxisX2, AxisY1, AxisY2 As Object

?? ?? ?? ?? '（1）设置下边框：

?? ?? ?? ?? AxisX1 = Axes(1)

?? ?? ?? ?? '设置边框标记

?? ?? ?? ?? AxisX1.ShowLabels = True

?? ?? ?? ?? AxisX1.LabelFont.Face = "Times New Roman"

?? ?? ?? ?? AxisX1.LabelFont.Size = 10

?? ?? ?? ?? '这里需搞清楚字体的size和width、Height的关系

?? ?? ?? ?? '设置边框线

?? ?? ?? ?? AxisX1.AxisLine.Width = 0.1

?? ?? ?? ?? AxisX1.MajorTickLength = 0.2

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/ruanjian/article-59979-2.html