Object: SpiderShapeObject

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 SpiderShapeObject object provides the curve properties of a spider axis system in DIAdem REPORT. The SpiderShapeObject object corresponds to one of the following objects:

SpiderLine Line
SpiderLineAndPoints Line and Points

The following example generates a spider axis system with a Line type curve:

Dim oMyAxisSystem, oMyPos, oMyCurve, oMySpiderLineSettings, oMySpiderSettings
Call Report.NewLayout()
Call Data.Root.Clear()
Call DataFileLoad("Example.tdm","TDM","")

Set oMyAxisSystem = Report.ActiveSheet.Objects.Add(eReportObjectSpider, "MySpiderAxisSystem")
Set oMyPos = oMyAxisSystem.Position.ByCoordinate
oMyPos.X1 = 20
oMyPos.X2 = 80
oMyPos.Y1 = 20
oMyPos.Y2 = 80

Set oMySpiderSettings = oMyAxisSystem.Settings
oMySpiderSettings.DisplayMode = eSpiderDisplayModeSpider
oMySpiderSettings.ShowBorder = True
oMySpiderSettings.BorderLine.Color.ColorIndex = eColorIndexDarkRed
oMySpiderSettings.BackgroundColor.ColorIndex = eColorIndexYellow
oMySpiderSettings.AngleDirection = eAngleDirectionClockwise

Set oMyCurve = oMyAxisSystem.CurvesSpider.Add(eSpiderShapeLine, "MySpiderCurve")
oMyCurve.Shape.Channel.Reference = "[5]/[3]"

Call Report.Refresh()

Returned From



Not Helpful