Object: SpiderAxis

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 SpiderAxis object provides a curve in a spider axis system in DIAdem REPORT. If the CategorySettings.Axis property returns the SpiderAxis object, the object is the standard axis. DIAdem uses the standard axis for all categories if you assigned the value False to the UseCategories for CategorySettings property. If you assigned the value True to the property UseCategories for CategorySettings, DIAdem also uses the standard axis for the categories whose property Enable for Category has the value False. DIAdem also uses the standard axis for the categories whose property Name for Category is empty when the property Mode for CategorySettings has the value eCategoryModeFreeText.

The following example generates a spider axis system with a Line type curve and configures the first category axis:

Dim oMyAxisSystem, oMyPosition, oMyCurve, oMyCategorySettings, oMyCategories, oMyCategorieAxis
Call Data.Root.Clear()
Call DataFileLoad("Example.tdm","TDM","")
Call Report.NewLayout()

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

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

Set oMyCategorySettings = oMyAxisSystem.CategorySettings
oMyCategorySettings.UseCategories = True

Set oMyCategories = oMyCategorySettings.Categories
oMyCategories.Count = 1
oMyCategories(1).Enable = True
oMyCategories(1).Name = "My First Category"
oMyCategories(1).UnitString = "s"

Set oMyCategorieAxis = oMyCategories(1).Axis
oMyCategorieAxis.Numbers.Font.Color.ColorIndex = eColorIndexDarkRed
oMyCategorieAxis.Line.Width = eLineWidth0035
oMyCategorieAxis.Line.Color.ColorIndex = eColorIndexDarkGreen
oMyCategorieAxis.TickType = eSpiderAxisTickBothSides

Call Report.Refresh()


Not Helpful