IMcGraphOverlayItem Property

Parameters

PositionOrID

Type: SystemObject
Either a single integral object ID, or a variant containing the position of an object (a SINGLEPOINT UDT or an array of 2 Single's). The position is given in image coordinates. If a single integer after a non-default SetEnumFilter, then this is an index into the list of filtered graph objects. If the index is less than zero or if it is exactly equal to Count, then the SetEnumFilter is reset to the default and Nothing is returned.

Property Value

Type: Object

Unless SetEnumFilter has been called to set some non-default collection Count, then only normal, non-template, non-label objects (ones with Category mcgewMaster) are found by this method. Use the GetItemFromDrawingOrder method to find an object based on its DrawingOrder property. To find other objects in other Categories or based on other properties, use the SetEnumFilter method and then search for the object in a "ForEach" loop or use this method if you need to avoid a ForEach (see example) The Item is exposed as Nothing if the specified object could not be found. Lookup by position may be ambiguous, because multiple objects may overly the same position. Furthermore, since McGraphObjPoint objects are so small, an initial pass is made through the objects in the reverse of their DrawingOrder and any McGraphObjPoint found that is very close to the position is returned. If no McGraphObjPoint is found then a second reverse pass is made to see if any other object intersects the given position. If multiple objects intersect the given position, then the one with the highest DrawingOrder (i.e., the front-most) will be exposed as the Item. If the specified item is not found, then Nothing is returned.

'  Set all annotation polygon templates to have blue borders
Dim mcgraphoverlayAnnotation As McGraphOverlays
Set mcgraphoverlayAnnotation = ThisApplication.ActiveImage.AnnotationOverlay
mcgraphoverlayAnnotation.SetEnumFilter mcgewSelected + mcgewTemplate, "McGraphObjPoly", mcgtAnyTemplate
Dim nTemplates As Integer = mcgraphoverlayAnnotation.Count
For iT As Integer = 0 to nTemplates-1
Dim goTemplate As McGraphObj = mcgraphoverlayAnnotation.Item(iT)
goTemplate.BorderColor = &HFF0000 ' make polygon borders blue
Next
mcgraphoverlayAnnotation.SetEnumFilter 'reset enum filters to default