Object: SpiderAxis
- Updated2024-09-12
- 2 minute(s) read
(Category | CategorySettings) > Object: SpiderAxis
Object: SpiderAxis
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:
| VBScript | Python |
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()