DIAdem Help

Object: HarmonicItem

  • Updated2024-09-12
  • 2 minute(s) read

Object: HarmonicItem

The Harmonic object provides a cursor line of a Harmonic cursor in a 2D axis system in DIAdem VIEW.

The following example displays the section points of all cursor lines with the leading curve in a 2D axis system:

VBScriptPython

 

Dim oMySheet, oMyChart, oMyCurve, oMyObj, oMySubCursor, i, sOutput
Call View.NewLayout()
Set oMySheet = View.ActiveSheet
oMySheet.ActiveArea.DisplayObjType = "CurveChart2D"
Set oMyChart = View.ActiveSheet.ActiveArea.DisplayObj
Set oMyCurve = oMyChart.Curves2D.Add("[1]/[1]","[1]/[2]")
Set oMyObj = oMySheet.ActiveArea
oMyObj.DisplayObj.SubCursorType = eVIEWSubCursorTypeHarmonic
Set oMySubCursor = oMySheet.ActiveArea.DisplayObj.SubCursor.Harmonics 
sOutput = "Position of Additional Cursor Lines: " & vbCrLf 
For i = 1 to oMySubCursor.Count 
  sOutput = sOutput & "Line " & i & ":  " & VBTab & " X: " & oMySubCursor(i).X & " Y: " & oMySubCursor(i).Y & VBCrLf
Next
Call MsgBoxDisp(sOutput)

Properties

X | Y