Object: D3CurveDrawingContext

Download PDF

Updated2024-09-12
2 minute(s) read

The D3CurveDrawingContext object provides information about the 3D axis system and the worksheet into which DIAdem REPORT is plotting the current curve.

Note To test the example script, you must first save the script and register it as a user command in the dialog box that opens when you select Settings»Extensions»User Commands.

The following example executes the user command MyOn3DCurveDrawEvent when a curve is plotted in a 3D axis system. The user command changes the display of the curve which DIAdem is plotting and displays the associated worksheet, the axis system, and the curve. The user command receives two parameters. The first parameter corresponds to a D3CurveDrawingContext object and provides information about the 3D axis system and the worksheet into which DIAdem is plotting the curve. The second parameter corresponds to a 3DCurve object and provides information about the curve DIAdem is plotting:

Copy script

Report.Events.Drawing.OnAxisSystem3DCurve = "MyOn3DCurveDrawEvent"

Sub MyOn3DCurveDrawEvent(Context, CurrCurve)
  Dim oMyAxis, oMyCurve
  Set oMyAxis = Context.AxisSystem
  Set oMyCurve = CurrCurve
  Select Case oMyCurve.ShapeType
    Case e3DShapeSurface
      oMyCurve.Shape.Settings.Line.Color.SetPredefinedColor(ePredefinedColorDarkTurquoise)
    Case e3DShapeIsolines
      oMyCurve.Shape.Settings.Line.Color.SetPredefinedColor(ePredefinedColorDarkTurquoise)
    Case e3DShapeWaterfall
      oMyCurve.Shape.Settings.Line.Color.SetPredefinedColor(ePredefinedColorDarkTurquoise)
    Case e3DShapeBars
      oMyCurve.Shape.Settings.Line.Color.SetPredefinedColor(ePredefinedColorDarkTurquoise)
    Case e3DShapeMatrix2D
      oMyCurve.Shape.Settings.Line.Color.SetPredefinedColor(ePredefinedColorDarkTurquoise)
    Case e3DShapeSpikes
      oMyCurve.Shape.Settings.Line.Color.SetPredefinedColor(ePredefinedColorDarkTurquoise)
    Case e3DShapeLine
      oMyCurve.Shape.Settings.Line.Color.SetPredefinedColor(ePredefinedColorDarkTurquoise)
    Case e3DShapeVector
      oMyCurve.Shape.Settings.Line.Color.SetPredefinedColor(ePredefinedColorDarkTurquoise)
    Case e3DShapePoints
      oMyCurve.Shape.Settings.Marker.Line.Color.SetPredefinedColor(ePredefinedColorDarkTurquoise)
    Case e3DShapeCharacteristicDiagram
      oMyCurve.Shape.Settings.SurfaceColorType =e3DCharacteristicSurfaceColorGlobalColorPalette3
    Case e3DShapeCoordinate
      oMyCurve.Shape.Settings.MarkerLine.Color.SetPredefinedColor(ePredefinedColorDarkTurquoise)
  End Select
End Sub

Properties

AxisSystem | Sheet

DIAdem Help

Table of Contents

Object: D3CurveDrawingContext

Properties

See Also