Object: PolarAdditionalMarker
- Updated2024-09-12
- 1 minute(s) read
(Collections | PolarSystem) > PolarCurves > PolarCurve > PolarLineAndPoints > PolarLineAndPointsExtensions > Object: PolarAdditionalMarker
Object: PolarAdditionalMarker
The PolarAdditionalMarker object provides the properties of the curve markers for a polar curve in DIAdem REPORT.
The following example generates an axis system with a polar curve and curve markers:
| VBScript | Python |
Dim oMyPolarAxisSystem, oMyCurve, oMyPos, oMyLabel, oMyShape, oMySetting, oMyAddMarker Call Report.NewLayout() Call Data.Root.Clear() Call DataFileLoad(DataReadPath & "Report_Data.tdm","TDM","") Set oMyPolarAxisSystem = Report.ActiveSheet.Objects.Add(eReportObjectPolarSystem, "MyPolarAxisSystem") Set oMyPos = oMyPolarAxisSystem.Position.ByCoordinate oMyPos.X1 = 20 oMyPos.X2 = 80 oMyPos.Y1 = 20 oMyPos.Y2 = 80 Set oMyCurve = oMyPolarAxisSystem.CurvesPolar.Add(e2DShapeLineAndPoints, "MyCurve") Set oMyShape = oMyCurve.Shape oMyShape.XChannel.Reference = "[5]/[1]" oMyShape.YChannel.Reference = "[5]/[2]" Set oMySetting = oMyShape.Settings Call oMySetting.Line.Color.SetPredefinedColor(eColorIndexBlue) oMySetting.Line.Width = eLineWidth0100 Set oMyAddMarker = oMyShape.Extensions.Marker oMyAddMarker.Type = eMarkerCircle oMyAddMarker.Size = 3 Set oMyExtension = oMyShape.Extensions oMyExtension.Marker.Repetition.Mode = eMarkerRepetitionEveryNthPoint oMyExtension.Marker.Repetition.NValue = 50 oMyAddMarker.Line.UseCurveColor = False Call oMyAddMarker.Line.Color.SetPredefinedColor(eColorIndexYellow) oMyAddMarker.Line.Width = eLineWidth0280 Call Report.Refresh()
Properties
Channel | Filling | Line | MinimumDisplaySize | Repetition | Size | Type