[VBA程序]：求助：利用IntersectWith方法不能求出直线和细多段线的交点

gzmkshjsh

sub test()
Dim spt1(2) As Double, ept1(2) As Double
Dim Line1 As AcadLine
    spt1(0) = 100
    spt1(1) = 100
    ept1(0) = 800
    ept1(1) = 100
Set Line1 = ThisDrawing.ModelSpace.AddLine(spt1, ept1)
Dim Pline1 As AcadLWPolyline
Dim Points1(0 To 7) As Double
    Points1(0) = 300
    Points1(1) = 600
    Points1(2) = 300
    Points1(3) = 300
    Points1(4) = 400
    Points1(5) = 300
    Points1(6) = 200
    Points1(7) = 0
   
    Set Pline1 = ThisDrawing.ModelSpace.AddLightWeightPolyline(Points1)

Dim intPoints As Variant
    intPoints = Line1.IntersectWith(Points1, acExtendNone) '此行出现类型不匹配
Line1.EndPoint = intPoints
Line1.Update
End Sub
以上程序绘制一条直线和一条细多段线，但是利用IntersectWith方法求它们的交点时，却总是出现类型不匹配造成程序终止。求斑竹解决！！！

雪山飞狐(lzh)

intPoints = Line1.IntersectWith(Pline1, acExtendNone)

gzmkshjsh

没想到出现如此低级的错误。谢谢斑竹指点！！！！