Object: D3CurveDrawingContext

DIAdem 2018 Help


Edition Date: June 2018
Part Number: 370858P-01
View Product Info

DOWNLOAD (Windows Only)

DIAdem 2017 Help
DIAdem 2018 Help
DIAdem 2019 Help
DIAdem 2020 Help
DIAdem 2020 SP1 Help

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

See Also

Objects Overview

WAS THIS ARTICLE HELPFUL?

Not Helpful