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

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

?? ?? ?? ?? AxisY2.ShowLabels = True

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

?? ?? ?? ?? AxisY2.LabelFont.Size = 10

?? ?? ?? ?? AxisY2.SetScale(MajorInterval:=2)

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

?? ?? ?? ?? AxisY2.AxisLine.Width = 0.1

?? ?? ?? ?? AxisY2.MajorTickLength = 0.2

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

?? ?? ?? ?? '将图件上角的交点校放在（2，25）的位置上，确定基点位置：

?? ?? ?? ?? Dim XBasePos, YBasePos As Double

?? ?? ?? ?? XBasePos = 2

?? ?? ?? ?? YBasePos = 25

?? ?? ?? ?? MapFrame.Left = XBasePos - (MapFrame.Width - PostMapWidth) / 2

?? ?? ?? ?? MapFrame.Top = YBasePos + (MapFrame.Height - PostMapHeight) / 2

某工区绘图，因坐标不方便透露，故隐藏，结果如下：

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