拾取点-获取表格单元格

Option Explicit
Function GetTableCell(ByVal oTable As AcadTable, ByVal varPt As Variant, _
                      ByRef rowIndex As Long, ByRef colIndex As Long) As Variant
     Dim wviewVec As Variant
     Dim resVar(1) As Long
     wviewVec = ThisDrawing.GetVariable("VIEWDIR")
     oTable.HitTest varPt, wviewVec, rowIndex, colIndex
    resVar(0) = rowIndex
    resVar(1) = colIndex
    GetTableCell = resVar
    
End Function
Sub test()
    Dim ar As Variant, _
    e As AcadEntity, _
    t As AcadTable, _
    p As Variant, _
    ip As Variant, _
    r As Long, _
    c As Long
    
    With ThisDrawing.Utility
    .GetEntity e, ip, "Select table"
    p = .GetPoint(, "Pick point in cell")
    End With
    Set t = e
    ar = GetTableCell(t, p, r, c)
      r = ar(0)
      c = ar(1)
      
           MsgBox "Row " & r & ", Column " & c & vbCr & _
            "Value: " & t.GetText(r, c)
End Sub

Public Sub SelectCell()
    Dim objTable As AcadTable
    Dim varPnt As Variant
    Dim varCoords As Variant
    Dim lngRow As Long, lngCol As Long
    
    varPnt = ThisDrawing.Utility.GetPoint(, "Select a cell to edit...")
    
    If objTable.HitTest(varPnt, varCoords, lngRow, lngCol) Then
        MsgBox "Found a cell"
    End If
End Sub