Code related to scene 3D flashing

The following are several functions related to flicker.

''' <Summary>
''' Selected feature in the blinking scene
''' </Summary>
''' <Param name = "powner"> layers </param>
''' <Param name = "pobject"> feature </param>
''' <Param name = "pscenegraph"> scenario in scene </param>
''' <Remarks> </remarks>
Public shared sub flashgeometry (byval powner as object, byval pobject as ifeature, byval pscenegraph as iscenegraph)
If not pobject is nothing then
''Flashing Code , Effective
Dim pdisplay3d as idisplay3d = pscenegraph
Dim PSR as ispatialreference = pscenegraph. Scene. spatialreference
Pobject. Shape. spatialreference = PSR
Pdisplay3d. flashgeometry (powner, pobject. Shape)
End if
End sub
''' <Summary>
''' The selected element in the blinking scene
''' </Summary>
''' <Param name = "powner"> layers </param>
''' <Param name = "pobject"> element </param>
''' <Param name = "pscenegraph"> scenario in scene </param>
''' <Remarks> </remarks>
Public shared sub flashgeometry (byval powner as object, byval pobject as ielement, byval pscenegraph as iscenegraph)
If not pobject is nothing then
''Code flashing, effective
Dim pdisplay3d as idisplay3d = pscenegraph
Dim PSR as ispatialreference = pscenegraph. Scene. spatialreference
Pobject. Geometry. spatialreference = PSR
Pdisplay3d. flashgeometry (powner, pobject. Geometry)
End if
End sub
''' <Summary>
''' The feature set selected in the blinking scene
''' </Summary>
''' <Param name = "pgeometrys"> flashing ry </param>
''' <Param name = "pscenegraph"> scenario in scene </param>
''' <Remarks> </remarks>
Public shared sub flashgeometry (byval pgeometrys as List (of igeometry), byval pscenegraph as iscenegraph)
If not pgeometrys. Count = 0 then
''Code flashing, effective
Dim pdisplay3d as idisplay3d = pscenegraph
Dim PSR as ispatialreference = pscenegraph. Scene. spatialreference
For I as integer = 0 to pgeometrys. Count-1
Pgeometrys (I). spatialreference = PSR
Pdisplay3d. addflashfeature (pgeometrys (I ))
Next
Pdisplay3d. flashfeatures ()
End if
End sub
''' <Summary>
''' Selected feature in the blinking scene
''' </Summary>
''' <Param name = "pgeometry"> flashing ry </param>
''' <Param name = "pscenegraph"> scenario in scene </param>
''' <Remarks> </remarks>
Public shared sub flashgeometry (byval pgeometry as igeometry, byval pscenegraph as iscenegraph)
If not pgeometry is nothing then
Dim pdisplay3d as idisplay3d = pscenegraph
Dim PSR as ispatialreference = pscenegraph. Scene. spatialreference
Pgeometry. spatialreference = PSR
Pdisplay3d. addflashfeature (pgeometry)
Pdisplay3d. flashfeatures ()
End if
End sub
''' <Summary>
''' The location in the flashing scene, that is, the point
''' </Summary>
''' <Param name = "Ppoint"> blinking point </param>
''' <Param name = "pscenegraph"> scene scenario </param>
''' <Remarks> </remarks>
Public shared sub flashlocation (byval Ppoint as ipoint, byval pscenegraph as iscenegraph)
If not Ppoint is nothing then
Dim pdisplay3d as idisplay3d = pscenegraph
Dim PSR as ispatialreference = pscenegraph. Scene. spatialreference
Ppoint. spatialreference = PSR
Pdisplay3d. flashlocation (Ppoint)
End if
End sub