Object: MarkerFilling

DIAdem 2018 Help


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

DOWNLOAD (Windows Only)


DIAdem 2015 Help
DIAdem 2017 Help
DIAdem 2018 Help
DIAdem 2019 Help
DIAdem 2020 Help

The MarkerFilling object provides the properties of the curve marker filling of a 2D or a 3D axis system in DIAdem REPORT.

The following example generates an axis system with a curve and curve markers:

Dim oMy2DAxisSystem, oMyCurve, oMyPos, oMyShape, oMySetting, oMyMarker, oMyMarkerFilling
Call Report.NewLayout()
Set oMy2DAxisSystem = Report.ActiveSheet.Objects.Add(eReportObject2DAxisSystem, "My2DAxisSystem")
Set oMyPos = oMy2DAxisSystem.Position.ByCoordinate
oMyPos.X1 = 20
oMyPos.X2 = 80
oMyPos.Y1 = 20
oMyPos.Y2 = 80
Set oMyCurve = oMy2DAxisSystem.Curves2D.Add(e2DShapeLineAndPoints, "MyCurve")
Set oMyShape = oMyCurve.Shape
oMyShape.XChannel.Reference = "[1]/[1]" 
oMyShape.YChannel.Reference = "[1]/[2]" 
Set oMySetting = oMyShape.Settings
Call oMySetting.Line.Color.SetPredefinedColor(eColorIndexBlue)
oMySetting.Line.Width = eLineWidth0100
Set oMyMarker = oMyShape.Extensions.Marker
oMyMarker.Type = eMarkerCircle
oMyMarker.Size = 3
oMyMarker.Repetition.Mode = eMarkerRepetitionMaximalNPoints 
oMyMarker.Repetition.NValue = 20
Set oMyMarkerFilling = oMyMarker.Filling
oMyMarkerFilling.UseCurveColor = False
Call oMyMarkerFilling.SetPredefinedColor(eColorIndexRed)

WAS THIS ARTICLE HELPFUL?

Not Helpful