Object: MarkerFilling
- Updated2024-09-12
- 2 minute(s) read
(2DAdditionalMarker | 3DAdditionalMarker | 3DAdditionalMarkerChannelSize | 3DCoordinateSettings | CurveExpansionMarker | PolarAdditionalMarker | SpiderAdditionalMarker) > Object: MarkerFilling
Object: MarkerFilling
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:
| VBScript | Python |
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)
Properties
ColorIndex | GradientDirection | GradientMode | RGB | RGBFilling | Transparency | UseCurveColor
Methods
Returned From
2DAdditionalMarker.Filling | 3DAdditionalMarker.Filling | 3DAdditionalMarkerChannelSize.Filling | 3DCoordinateSettings.Filling | CurveExpansionMarker.Filling | PolarAdditionalMarker.Filling | SpiderAdditionalMarker.Filling