Object: 3DCharacteristicDiagramExtensions

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

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:

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()

WAS THIS ARTICLE HELPFUL?

Not Helpful