高手求救！！求交点问题。急急急!!！！！

yuanji007

Dim TVP As AcadEntity
        Set TVP = IPCOL(1)

         IntPointsL = lineObj.IntersectWith(TVP, acExtendThisEntity)

程序出现“要求对象”

Public Function SelectAtPoint2()
     On Error Resume Next
    Dim A As AcadEntity
     dim IPCOL As AcadModelSpace

    If Not IsNull(ThisDrawing.SelectionSets.Item("SSet2")) Then
       Set SSet2 = ThisDrawing.SelectionSets.Item("SSet2")
           SSet2.Delete
    End If
    Set SSet2 = ThisDrawing.SelectionSets.Add("SSet")
      SSet2.Select acSelectionSetLast
      
      
      For Each A In SSet2
         IPCOL.Add A
      Next
  End Function
请各位高手指教一下呀！！！谢谢