from Map to PageLayoutControl

Question

Подскажите пожалуйста, как выбранный объект (полигон) на слое нарисовать в компоновке PageLayoutControl как графический элемент. Т.е. мне надо выделенный объект на карте, который в центре экрана нарисовать на компоновке как графический элемент, с относительными координатами компоновки.

Answer 1

Спасибо, нашел. Если кому интересно, код такой

' ««««««««« Ul.MK. »»»»»»»»»»     17.11.2004 9:51:00
Private Function Map2PLC(pAV As IActiveView, pPL As IActiveView, pP As IPoint) As IPoint
   Dim pDT As IDisplayTransformation
   Dim xx As Long, yy As Long

   If pAV Is Nothing Then Exit Function
   If pPL Is Nothing Then Exit Function
   If pP Is Nothing Then Exit Function
   Set pDT = pAV.ScreenDisplay.DisplayTransformation
  
   pDT.FromMapPoint pP, xx, yy

   Set pDT = pPL.ScreenDisplay.DisplayTransformation
   Set Map2PLC = pDT.ToMapPoint(xx, yy)

End Function

и вызов функции:

set pPnt=Map2PLC( pMxDoc.ActiveView.FocusMap, pMxDoc.PageLayout, pp)

где pp-координаты точки в карте,
pPnt-координаты точки в компановке