Dear Jeremy,
thanks for your quickly response.
So i need to use Transform object to get coordinate?
My stupid method:
Dim bb As BoundingBoxXYZ = MyViewSection.CropBox
If MyViewSection.ViewDirection.Y = -1 Then 'UP
minX = MyViewSection.Origin.X - (bb.Max.X - bb.Min.X) / 2
maxX = MyViewSection.Origin.X + (bb.Max.X - bb.Min.X) / 2
minY = MyViewSection.Origin.Y
maxY = MyViewSection.Origin.Y + (bb.Max.Z - bb.Min.Z)
ElseIf MyViewSection.ViewDirection.Y = 1 Then 'DOWN
minX = MyViewSection.Origin.X - (bb.Max.X - bb.Min.X) / 2
maxX = MyViewSection.Origin.X + (bb.Max.X - bb.Min.X) / 2
minY = MyViewSection.Origin.Y - (bb.Max.Z - bb.Min.Z)
maxY = MyViewSection.Origin.Y
ElseIf MyViewSection.ViewDirection.X = -1 Then 'RIGHT
minX = MyViewSection.Origin.X
maxX = MyViewSection.Origin.X + (bb.Max.Z - bb.Min.Z)
minY = MyViewSection.Origin.Y - (bb.Max.X - bb.Min.X) / 2
maxY = MyViewSection.Origin.Y + (bb.Max.X - bb.Min.X) / 2
ElseIf MyViewSection.ViewDirection.X = 1 Then 'LEFT
minX = MyViewSection.Origin.X - (bb.Max.Z - bb.Min.Z)
maxX = MyViewSection.Origin.X
minY = MyViewSection.Origin.Y - (bb.Max.X - bb.Min.X) / 2
maxY = MyViewSection.Origin.Y + (bb.Max.X - bb.Min.X) / 2
End If