|
Ví dụ lấy về tọa độ của vị trí nhấn chuột trên bản đồ
Trước tiên ta thêm mới một Tool vào giao diện của ArcMap
- Mở hộp thoại Customize
- Thêm mới một Tool
‘ Trong sự kiện Mouse Down của Tool cài đặt đoạn code sau
Private Sub ITool_OnMouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
Dim pMxDoc As IMxDocument
Dim pActiveView As IActiveView
Dim m_pPoint As IPoint
Set pMxDoc = ThisDocument
Set pActiveView = pMxDoc.FocusMap
‘ Biến m_pPoint trả về tọa độ của vị trí nhấn chuột trên bản đồ
‘ Chú ý X, Y là vị trí nhấn chuột lên bản đồ không phải tọa độ địa lý
Set m_pPoint = pActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(X, Y)
‘ Thử hiển thị tọa độ địa l ý X, Y của vị trí nhấn chuột
Msgbox m_pPoint.X & “ “ & m_pPoint.Y
End Sub
Tài liệu tham khảo: Giáo trình ArcObject cơ bản - Lê Đức Trị
|
Lập trình ArcObjects cơ bản (lập trình VBA trên ArcGIS)
