![]() | DIAdem 2017 Help |
![]() | DIAdem 2018 Help |
![]() | DIAdem 2019 Help |
![]() | DIAdem 2020 Help |
![]() | DIAdem 2020 SP1 Help |
Specifies the position of a 3D axis system in a worksheet in DIAdem REPORT.
Set oObjectPosition = Object.Position
Object | 3DAxisSystem Object with this property |
oObjectPosition | ObjectPosition Returned object |
The following example generates a 3D axis system and specifies the position of this 3D axis system:
Dim oMy3DAxisSystem, oMy3DCurve, oMyPos 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") 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()
Helpful
Not Helpful