Object: 2DAdditionalStyles
- Updated2024-09-12
- 1 minute(s) read
(2DAxisSystem | Collections) > 2DCurves > 2DCurve > 2DSpecialCombination > 2DSpecialCombinationExtensions > Object: 2DAdditionalStyles
Object: 2DAdditionalStyles
The 2DAdditionalStyles object provides the additional display type properties of a 2D axis system in the Special combination display mode in DIAdem REPORT.
The following example generates an axis system with a curve and specifies the curve parameters:
| VBScript | Python |
Dim oMy2DAxisSystem, oMyCurve, oMyPos, oMyShape, oMySetting, oMyAdditionalStyles Call Data.Root.Clear() Call DataFileLoad(DataReadPath & "Report_Data.tdm","TDM","") 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(e2DShapeSpecialCombination, "MyCurve") Set oMyShape = oMyCurve.Shape oMyShape.XChannel.Reference = "[6]/[1]" oMyShape.YChannel.Reference = "[6]/[2]" Set oMySetting = oMyShape.Settings Call oMySetting.Line.Color.SetPredefinedColor(eColorIndexBlue) oMySetting.Line.Width = eLineWidth0100 Set oMyAdditionalStyles = oMyShape.Extensions.AdditionalStyles oMyAdditionalStyles.Type = e2DAdditionalStyleSpikes Call oMyAdditionalStyles.Line.Color.SetPredefinedColor(eColorIndexRed) oMyAdditionalStyles.Line.Width = eLineWidth0025 Call Report.Refresh()