Collection: 3DIsoValueTable

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

Collection of all 3DIsoValueTableItem objects in DIAdem REPORT. Use the 3DIsoValueTable collection to access an isoline in the contour table for the 3D display mode Characteristic diagram 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()

Properties

Count

Methods

Item

WAS THIS ARTICLE HELPFUL?

Not Helpful