Координаты углов вида на компоновке

Question

Помогите, пожалуйста, кто знает, есть ли скрипты по определению координат углов вида на компоновке.

Answer 1

Попробуй так:

 

aLayout = av.GetActiveDoc
theSelGraph = aLayout.GetGraphics.GetSelected

 

if (theSelGraph.Count > 0) then
  if ((theSelGraph.Get(0).Is(ViewFrame)).NOT) then return 0 end
else return 0 
end

 

aViewFrame = theSelGraph.Get(0)

 

' Экстент рамки вида в единицах измерения страницы (дюймы)
dOrigin = aViewFrame.GetOrigin
dSize   = aViewFrame.GetExtent

 

' Экстент рамки вида в единицах карты
xyRect   = aViewFrame.GetMapDisplay.ReturnExtent
xyOrigin = xyRect.ReturnOrigin
xySize   = xyRect.ReturnSize

 

' получили левый нижний угол и размеры по X@Y
str = dOrigin.AsString +nl+dSize.AsString +nl+
      xyOrigin.AsString+nl+xySize.AsString
MsgBox.Report (str, "")

 

 

 

Answer 2

Спасибо, попробовала, но видимо, из-за стереографической проекции правая верхняя точка попала не в верхний угол, а в центр окружностей, которые связаны с переходом через 180 меридиан