[求助]：请版主解释一下

追日

还是上次表格编程那个问题，因我学的是DELPHI，这几句源码不太懂，烦请版主大人再解释一下：

Dim MaxX As Double
    MaxX = 99999999
    Dim EntObj As AcadEntity
    Dim v As Variant
    ' 枚举选择集
    For Each EntObj In SSetObj
        v = EntObj.IntersectWith(RayObj, acExtendNone)
        ' 直线与射线相交
        If Not IsEmpty(v) Then
            If UBound(v) > 0 Then If v(0) <= MaxX Then MaxX = v(0)
        End If

efan2000

IntersectWith，如果没有交点，返回值为空。有交点时，返回值为三维的点数组。即第一点的X、Y、Z，第二点的X、Y、Z顺序。射线与直线只有一个交点，故V（0）就是X坐标。单元格的最大X坐标就是射线与所有直线相交中X最小的一个。