Property: Curves3D for 3DAxisSystem

Download PDF

Updated2024-09-12
1 minute(s) read

Returns a collection of all curves in a 3D axis system in DIAdem REPORT.

Set o3DCurves = Object.Curves3D

Object	3DAxisSystem Object with this property
o3DCurves	3DCurves Returned object

The following example generates a 3D axis system with a surface:

VBScript

Python

Copy script

Dim oMy3DAxisSystem, oMypos, oMy3DCurve
Call Report.NewLayout()
Call Data.Root.Clear()
Call DataFileLoad(DataReadPath & "Report_Data.tdm","TDM","")
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")
oMy3DCurve.Shape.XChannel.Reference = "[2]/[1]"
oMy3DCurve.Shape.YChannel.Reference = "[2]/[2]"
oMy3DCurve.Shape.ZChannel.Reference = "[2]/[3]"
oMy3DCurve.Shape.DataStructure = e3DDataStructureMatrix
Call Report.Refresh()

dd.Report.NewLayout() 
dd.Data.Root.Clear() 
dd.DataFileLoad(dd.DataReadPath + "Report_Data.tdm","TDM","") 
oMy3DAxisSystem = dd.Report.ActiveSheet.Objects.Add(dd.eReportObject3DAxisSystem,"My3DAxisSystem") 
oMyPos = oMy3DAxisSystem.Position.ByCoordinate 
oMyPos.X1 = 20 
oMyPos.X2 = 80 
oMyPos.Y1 = 20 
oMyPos.Y2 = 80 
oMy3DCurve = oMy3DAxisSystem.Curves3D.Add(dd.e3DShapeSurface, "MyNew3DCurve") 
oMy3DCurve.Shape.XChannel.Reference = "[2]/[1]" 
oMy3DCurve.Shape.YChannel.Reference = "[2]/[2]" 
oMy3DCurve.Shape.ZChannel.Reference = "[2]/[3]" 
oMy3DCurve.Shape.DataStructure = dd.e3DDataStructureMatrix 
dd.Report.Refresh()

DIAdem Help

Table of Contents

Property: Curves3D for 3DAxisSystem

See Also

Log in to get a better experience