Object: 3DShapeObject

DIAdem 2018 Help


Edition Date: June 2018
Part Number: 370858P-01
View Product Info

DOWNLOAD (Windows Only)


DIAdem 2012 Help
DIAdem 2014 Help
DIAdem 2015 Help
DIAdem 2017 Help
DIAdem 2018 Help
DIAdem 2019 Help

The 3DShapeObject object provides the properties of the curve in a 3D axis system in DIAdem REPORT. The 3DShapeObject object corresponds to one of the following objects:

3DBars Bars
3DCharacteristicDiagram Characteristic diagram
3DCoordinate Coordinate
3DIsolines Isolines
3DLine 3D curve
3DMatrix2D 2D matrix
3DPoints Points
3DSpikes Spikes
3DSurface Surface
3DVector Vector
3DWaterfall Waterfall

The following example generates a 3D axis system with a surface display and assigns channels to this display:

Dim oMy3DAxisSystem, oMy3DCurve, oMyPos, oMyShape
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(e3DShapeSurface, "MyNew3DCurve")
Set oMyShape = oMy3DCurve.Shape
oMyShape.DataStructure = e3DDataStructureTriplet
oMyShape.XChannel.Reference = "[2]/[1]"
oMyShape.YChannel.Reference = "[2]/[2]"
oMyShape.ZChannel.Reference = "[2]/[3]"
Call Report.Refresh()

Returned From

3DCurve.Shape

WAS THIS ARTICLE HELPFUL?

Not Helpful