05-22-2008 01:23 AM
05-22-2008 01:58 AM
Option Explicit
Dim nAxis
Call GraphObjOpen("2DAxis1")
' Create new axis
nAxis = GraphObjYAxisNew("left")
' Create new curve
Call GraphObjNew( "2D-Curve","2DCurve2")
Call GraphObjOpen("2DCurve2")
' Assing axis to curve
D2CAxisPairNo = nAxis
' do some other settings
D2CCHNEXPAND = 1
D2CCHNXNAME = "[1]/Zeit"
D2CCHNYNAME = "[1]/Drehzahl"
D2CCURVETYPE = "Line"
D2CURVECOLOR = "blue"
Call GraphObjClose("2DCurve2")
Call GraphObjClose("2DAxis1")
' update report
Call PicUpdate()
| Matthias Alleweldt Project Engineer / Projektingenieur | Twigeater? |
05-22-2008 04:33 AM