Property: Type for PolarAdditionalMarker

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

Specifies the symbol that DIAdem REPORT displays as the marker of a polar curve.

Object.Type
ObjectPolarAdditionalMarker
Object with this property
Object.TypeSpecifies the marker type.
Enumeration with read and write access and the following selection terms:
0 eMarkerNone None
1 eMarkerSquare Square
2 eMarkerRhombus Rhombus
3 eMarkerTriangle Triangle
4 eMarkerCross Cross
5 eMarkerAsterisk Asterisk
6 eMarkerShortDash Short dash
7 eMarkerLongDash Long dash
8 eMarkerPlus Plus
9 eMarkerCircle Circle
10 eMarkerTriangle_Bottom Triangle bottom
11 eMarkerTriangle_Left Triangle left
12 eMarkerTriangle_Right Triangle right
13 eMarkerSquare_Top Square filled top
14 eMarkerSquare_Bottom Square filled bottom
15 eMarkerSquare_Left Square filled left
16 eMarkerSquare_Right Square filled right
17 eMarkerRhomb_Top Rhomb filled top
18 eMarkerRhomb_Bottom Rhomb filled bottom
19 eMarkerRhomb_Left Rhomb filled left
20 eMarkerRhomb_Right Rhomb filled right
21 eMarkerTriangle1_Left Triangle 1 filled left
22 eMarkerTriangle1_Right Triangle 1 filled right
23 eMarkerTriangle2_Left Triangle 2 filled left
24 eMarkerTriangle2_Right Triangle 2 filled right
25 eMarkerTriangle3_Top Triangle 3 filled top
26 eMarkerTriangle3_Bottom Triangle 3 filled bottom
27 eMarkerTriangle4_Top Triangle 4 filled top
28 eMarkerTriangle4_Bottom Triangle 4 filled bottom

The following example generates a polar axis system with a curve display and round markers:

Dim oMyPolarAxisSystem, oMyCurve, oMyPos, oMyLabel, oMyShape, oMySetting, oMyMarker
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(ePolarShapeLineAndPoints, "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 oMyMarker = oMyShape.Extensions.Marker
oMyMarker.Type = eMarkerCircle
oMyMarker.Size = 3
oMyMarker.Repetition.Mode = eMarkerRepetitionEveryNthPoint
oMyMarker.Repetition.NValue = 50
oMyMarker.Line.UseCurveColor = False
Call oMyMarker.Line.Color.SetPredefinedColor(eColorIndexYellow)
oMyMarker.Line.Width = eLineWidth0280
Call Report.Refresh()

WAS THIS ARTICLE HELPFUL?

Not Helpful