Property: PolarSystem for PolarSystemDropContext

DIAdem 2018 Help


Edition Date: June 2018
Part Number: 370858P-01
View Product Info

DOWNLOAD (Windows Only)


DIAdem 2017 Help
DIAdem 2018 Help
DIAdem 2019 Help
DIAdem 2020 Help
DIAdem 2020 SP1 Help

Specifies the polar axis system onto which you dragged and dropped an object.

Set oPolarSystem = Object.PolarSystem
ObjectPolarSystemDropContext
Object with this property
oPolarSystemPolarSystem
Returned object
Note  To test the example script, you must first save the script and register it as a user command in the dialog box that opens when you select Settings»Extensions»User Commands.

The following example executes the MyOnDropPolarSystemEvent user command when channels are dragged onto a polar axis system. The user command displays the names of the channels that you dragged onto an object. The user command also displays information about the objects you dragged into the channels. The user command receives two parameters. The first parameter corresponds to a PolarSystemDropContext object and provides information about the worksheet onto which you dragged and dropped an object. The second parameter corresponds to a DropInformation object and provides information about the object which you dragged and dropped onto another object:

Report.Events.OnDropPolarSystem = "MyOnDropPolarSystemEvent"

Sub MyOnDropPolarSystemEvent(Context, DropContext)
  Dim oMyDropElement, sOutput, oMyAxis
  sOutput = "Names of dropped channels:"
  For Each oMyDropElement in DropContext.DiademElements
    sOutput = sOutput & VBCrLf & oMyDropElement.Name
  Next
  Call Msgbox(sOutput)
  Set oMyAxis = Context.PolarSystem
  If Context.CurveIndex>0 Then
    Call MsgBox(Context.Sheet.Name & VBCrLf & oMyAxis.Name & VBCrLf & oMyAxis.CurvesPolar.Item(Context.CurveIndex).Name)
  Else  
    Call MsgBox(Context.Sheet.Name & VBCrLf & oMyAxis.Name)
  End If  
  Context.DoProceed = TRUE
End Sub

WAS THIS ARTICLE HELPFUL?

Not Helpful