Method: Add for FieldsOfView

Télécharger (PDF)

Mise à jour2024-09-12
Temps de lecture : 2 minute(s)

Adds an object to the FieldsOfView collection and returns a FieldOfView object, in the script interface of DIAdem VIEW. A FieldOfView object corresponds to a sensor fin field of view in a bird's eye view display.

Set oFieldOfView = Object.Add(LateralDistance, LongitudinalDistance, OrientationAngle, ApertureAngle, Radius, FillTransparency)

Object	FieldsOfView Object with this method
LateralDistance	Double Specifies the lateral distance.
LongitudinalDistance	Double Specifies the longitudinal distance.
OrientationAngle	Double Specifies the direction angle.
ApertureAngle	Double Specifies the aperture angle.
Radius	Double Specifies the radius.
FillTransparency	Double Specifies the transparency as a percentage. The value 100 specifies a completely transparent display and the value 0 specifies a completely opaque display.
oFieldOfView	FieldOfView Returned object

The following example adds a sensor field of view to a bird's eye view display and outputs the channel properties:

VBScript

Python

Copy script

Dim oMySheet, oMyObject, oMyObjects
Set oMySheet = View.Sheets.Add("NewBirdsEyeView")
oMySheet.ActiveArea.DisplayObjType = "BirdsEyeView"
Set oMyObjects = View.ActiveSheet.ActiveArea.DisplayObj.FieldsOfView
Set oMyObject = oMyObjects.Add(0, 0, 0, 50, 50, 50)
Call LogfileWrite("Lateral Distance: " & Str(oMyObject.LateralDistance) & VBCrLf & "Longitudinal Distance: " & Str(oMyObject.LongitudinalDistance) & VBCrLf & _
                  "Orientation Angle: " & Str(oMyObject.OrientationAngle) & VBCrLf & "Aperture Angle: " & Str(oMyObject.ApertureAngle) & VBCrLf & _
                  "Radius: " & Str(oMyObject.Radius) & VBCrLf & "Fill Transparency: " & Str(oMyObject.FillTransparency)

oMySheet = dd.View.Sheets.Add("NewBirdsEyeView") 
oMySheet.ActiveArea.DisplayObjType = "BirdsEyeView" 
oMyObjects = dd.View.ActiveSheet.ActiveArea.DisplayObj.FieldsOfView 
oMyObject = oMyObjects.Add(0, 0, 0, 50, 50, 50) 
dd.LogfileWrite("Lateral Distance: " + dd.Str(oMyObject.LateralDistance) + "\r\n" + "Longitudinal Distance: " + dd.Str(oMyObject.LongitudinalDistance) + "\r\n" + "Orientation Angle: " + dd.Str(oMyObject.OrientationAngle) + "\r\n" + "Aperture Angle: " + dd.Str(oMyObject.ApertureAngle) + "\r\n" + "Radius: " + dd.Str(oMyObject.Radius) + "\r\n" + "Fill Transparency: " + dd.Str(oMyObject.FillTransparency)

Examples

DIAdem Help

Sommaire

Method: Add for FieldsOfView

See Also

Examples