主题：画线问题请教

TopHeight         当前窗格上边距高度，以象素表示，该边距通常用来显示公式数据，可读写。

LeftWidth         当前窗格左边距宽度，以象素表示，该边距通常用来显示左Y坐标，可读写。

RightWidth        当前窗格右边距宽度，以象素表示，该边距通常用来显示右Y坐标，可读写。

BottomHeight      当前窗格下边距高度，以象素表示，该边距通常用来显示X坐标，可读写。

 

将上述属性考虑进去即可。

 

Sub Technic_Paint()
     set Grid = technic.ActiveGrid
     start_x = Grid.PelsByPos(3600,false)
     start_y = Grid.PriceToPels(5.20)

     end_x = Grid.PelsByPos(3660,false)
     end_y = Grid.PriceToPels(4.20)

 

     if end_x > Grid.Width - Grid.RightWidth then

        end_x = Grid.Width - Grid.RightWidth

     end if

    '其他限制代码，自己加上去即可
 
     call Grid.DrawLine (start_x, start_y, end_x, end_y)  

End Sub

道理是一样的，你可以先把代码写上去，测试一下，如果还是不对，再来说明原因和问题

将4个坐标数字都进行坐标范围的规范

if start_x < 0 then

   start_x = 0

end if

 

if start_x > Grid.Height - Grid.BottomHeight

   start_x = Grid.Height - Grid.BottomHeight

end if

 

if start_x > Grid.Width - Grid.RightWidth then

   start_x = Grid.Width - Grid.RightWidth

end if

 

start_y 其余参数依次类推

没有什么办法，我们编程序都需要自己处理边界问题的

这几个函数，日后的升级新版已经得到修正