线的交点问题

Sub test2()
 Dim ent As AcadEntity
   On Error Resume Next
    n = -1
    Do
        ThisDrawing.Utility.GetEntity ent, pnt, "选择区域范围线（多段线）："
        If Err Then Exit Sub
        If TypeName(ent) Like "IAcad*Polyline" Then Exit Do
    Loop
    Dim StartPt(0 To 2) As Double, EndPt(0 To 2) As Double
    For u = 1 To 5
    
        StartPt(0) = 100 + (u - 1) * 5
        StartPt(1) = 100
        StartPt(2) = 0
        
        EndPt(0) = 120 + (u - 1) * 5
        EndPt(1) = 120
        EndPt(2) = 0
        
    Dim LineObj As AcadLine
    
    Set LineObj = ThisDrawing.ModelSpace.AddLine(StartPt, EndPt)
    LineObj.Update
    
   
    intPoints = LineObj.IntersectWith(ent, acExtendThisEntity)
    
      Dim str As String
    Dim pointObj As AcadPoint         '声明点的对象变量
    Dim Location(0 To 2) As Double    '声明点的位置数组变量
    
    
    If UBound(intPoints) > 0 Then
        For i = 0 To UBound(intPoints) Step 3
            j = i / 2
            str = "Intersection Point[" & j & "] is: " & Format(intPoints(i), "0.000") & "," & Format(intPoints(i + 1), "0.000") & "," & intPoints(i + 2)
            MsgBox str, , "IntersectWith Example"
            
            Location(0) = Format(intPoints(i), "0.000")
            Location(1) = Format(intPoints(i + 1), "0.000")
            Location(2) = Format(intPoints(i + 2), "0.000")
            
            Set pointObj = ThisDrawing.ModelSpace.AddPoint(Location)
            str = ""
        Next i
    End If
    
    Next u
End Sub