Object: 3DCharacteristicDiagramExtensions
- Updated2024-09-12
- 2 minute(s) read
(3DAxisSystem | Collections) > 3DCurves > 3DCurve > 3DCharacteristicDiagram > Object: 3DCharacteristicDiagramExtensions
Object: 3DCharacteristicDiagramExtensions
The 3DCharacteristicDiagramExtensions object provides the extended properties of the curve parameters of a 3D axis system in the Characteristic diagram display mode in DIAdem REPORT.
The following example generates a 3D axis system with a characteristic diagram display. The example defines the properties of the contour table from which the example takes the values and the colors of the isolines:
| VBScript | Python |
Dim oMy3DAxisSystem, oMy3DCurve, oMyPos, oMyShape, oMyIsoValTable, i, iChannelMax, iChannelMin Call Data.Root.Clear() Call DataFileLoad(DataReadPath & "Report_Data.tdm","TDM","") Call Report.NewLayout() Set oMy3DAxisSystem = Report.ActiveSheet.Objects.Add(eReportObject3DAxisSystem,"My3DAxisSystem") Set oMyPos = oMy3DAxisSystem.Position.ByCoordinate oMyPos.X1 = 20 oMyPos.X2 = 80 oMyPos.Y1 = 20 oMyPos.Y2 = 80 Set oMy3DCurve = oMy3DAxisSystem.Curves3D.Add(e3DShapeCharacteristicDiagram, "MyNew3DCurve") Set oMyShape = oMy3DCurve.Shape oMyShape.XChannel.Reference = "[2]/[1]" oMyShape.YChannel.Reference = "[2]/[2]" oMyShape.ZChannel.Reference = "[2]/[3]" oMyShape.DataStructure = e3DDataStructureMatrix iChannelMax = Data.Root.ChannelGroups(2).Channels(3).Properties("maximum").Value iChannelMin = Data.Root.ChannelGroups(2).Channels(3).Properties("minimum").Value Set oMyIsoValTable = oMyShape.Settings.IsoValueTable oMyIsoValTable.Count = 5 oMy3DCurve.Shape.Extensions.Isoline.Type = e3DCharacteristicIsoValueFromIsoValueTable oMy3DCurve.Shape.Extensions.Isoline.Color.ColorIndex = eColorIndexPalette For i = 1 to oMyIsoValTable.Count Call oMyIsoValTable.Item(i).Color.SetPredefinedColor(i) oMyIsoValTable.Item(i).Interval = 20 oMyIsoValTable.Item(i).LineType = eLineTypeDotted oMyIsoValTable.Item(i).UpperLimit = iChannelMin + (iChannelMax - iChannelMin) / oMyIsoValTable.Count * i oMyIsoValTable.Item(i).Width = eLineWidth0050 Next Call Report.Refresh()
Properties
AdditionalIsolines | BoundaryCurve | BoundaryPoints | Hyperbola | InvalidValues | Isoline | MaximumPoint | MeanMarkers | MeasurementPoints | MinimumPoint