给你一段花坐标的代码,其他的数据代码也和这个差不多的。
LPARAMETERS x0, y0, xl, yl, nx, ny, getnum, gntype
LOCAL aa,cc
THISFORM.DRAWWIDTH = 1
THISFORM.LINE( x0, y0, x0 + xl + 20 , y0)
THISFORM.LINE( x0 + xl + 15, y0 + 4, x0 + xl + 20, y0)
THISFORM.LINE( x0 + xl + 15 ,y0 - 4, x0 + xl + 20, y0)
THISFORM.LINE( x0, y0, x0, y0 - yl - 20)
THISFORM.LINE( x0 - 4,y0 - yl - 15, x0, y0 - yl - 20)
THISFORM.LINE( x0 + 4,y0 - yl - 15, x0, y0 - yl - 20)
FOR i = 1 TO nx
THISFORM.LINE( x0 + xl / nx * i , y0 - 4, x0 + xl / nx * i, y0)
ENDFOR
aa = WROWS()
cc = WCOLS()
FOR i = 1 TO ny
THISFORM.LINE( x0, y0 - yl / ny * i, x0 + 4 ,y0 - yl / ny * i)
IF i = ny
@ (y0 - yl / ny * i) / THISFORM.HEIGHT * aa - 0.5 , THIS.getx0 / THISFORM.WIDTH * cc -5 SAY ALLTRIM( STR( getnum)) FONT '宋体',12
ENDIF
ENDFOR
DO CASE
CASE gntype = 1
THISFORM.DRAWWIDTH = 2
THISFORM.FILLCOLOR = RGB(255,0,0)
THISFORM.FORECOLOR = RGB(255,0,0)
thisform.line( THISFORM.getx0 + 20 ,THISFORM.gety0 - THISFORM.getylen,THISFORM.getx0 + 100 , THISFORM.gety0 - THISFORM.getylen)
thisform.box( THISFORM.getx0 + 56 ,THISFORM.gety0 - THISFORM.getylen - 4,THISFORM.getx0 + 64 , THISFORM.gety0 - THISFORM.getylen + 4)
THISFORM.FILLCOLOR = RGB(0,255,0)
THISFORM.FORECOLOR = RGB(0,255,0)
thisform.line( THISFORM.getx0 + 20 ,THISFORM.gety0 - THISFORM.getylen + 20,THISFORM.getx0 + 100 , THISFORM.gety0 - THISFORM.getylen + 20)
thisform.box( THISFORM.getx0 + 56 ,THISFORM.gety0 - THISFORM.getylen + 16,THISFORM.getx0 + 64 , THISFORM.gety0 - THISFORM.getylen + 24)
THISFORM.FILLCOLOR = RGB(0,0,255)
THISFORM.FORECOLOR = RGB(0,0,255)
thisform.line( THISFORM.getx0 + 20 ,THISFORM.gety0 - THISFORM.getylen + 40,THISFORM.getx0 + 100 , THISFORM.gety0 - THISFORM.getylen + 40)
thisform.box( THISFORM.getx0 + 56 ,THISFORM.gety0 - THISFORM.getylen + 36,THISFORM.getx0 + 64 , THISFORM.gety0 - THISFORM.getylen + 44)
THISFORM.FORECOLOR = RGB(0,0,0)
@ (THISFORM.gety0 - THISFORM.getylen) / THISFORM.HEIGHT * aa -0.4
, (THIS.getx0 + 110) / THISFORM.WIDTH * cc SAY "总离层"
FONT '宋体',12
@ (THISFORM.gety0 - THISFORM.getylen + 20) / THISFORM.HEIGHT * aa
-0.4 , (THIS.getx0 + 110) / THISFORM.WIDTH * cc
SAY "浅基点"
FONT '宋体',12
@ (THISFORM.gety0 - THISFORM.getylen + 40) / THISFORM.HEIGHT * aa
-0.4, (THIS.getx0 + 110) / THISFORM.WIDTH * cc
SAY "深基点" FONT '宋体',12
CASE gntype = 2
THISFORM.FILLCOLOR = RGB(0,255,0)
THISFORM.FORECOLOR = RGB(0,255,0)
thisform.box( THISFORM.getx0 + 54 ,THISFORM.gety0 - THISFORM.getylen - 6,THISFORM.getx0 + 66 , THISFORM.gety0 - THISFORM.getylen + 6)
THISFORM.FILLCOLOR = RGB(0,0,255)
THISFORM.FORECOLOR = RGB(0,0,255)
thisform.box( THISFORM.getx0 + 54 ,THISFORM.gety0 - THISFORM.getylen + 14,THISFORM.getx0 + 66 , THISFORM.gety0 - THISFORM.getylen + 26)
THISFORM.FORECOLOR = RGB(0,0,0)
@ (THISFORM.gety0 - THISFORM.getylen) / THISFORM.HEIGHT * aa -0.4
, (THIS.getx0 + 80) / THISFORM.WIDTH * cc SAY "浅基点"
FONT '宋体',12
@ (THISFORM.gety0 - THISFORM.getylen + 20) / THISFORM.HEIGHT * aa
-0.4 , (THIS.getx0 + 80) / THISFORM.WIDTH * cc
SAY "深基点"
FONT '宋体',12
OTHERWISE
ENDCASE