[求助]：如何获得与一条LineString相交的全部文本

stoneball

VBA 如何获得与一条LineString或LIne相交的全部文本？

MicroStation迷

①在Line所在范围内搜索所有Text元素；
②用逐个搜索到的Text元素的范围与该Line求交。

stoneball

Private Function GetRoadIntersectText(oLine As LineElement, iLevel As Integer, iColor As Integer, sName As String) As Boolean
    Dim scanCriteria As New ElementScanCriteria
    Dim oCurrent As Element
    Dim enumerator As ElementEnumerator
    Dim ptList() As Point3d
    Dim mtrx As Matrix3d
   
    scanCriteria.ExcludeAllTypes
    scanCriteria.IncludeType msdElementTypeText
    scanCriteria.ExcludeAllColors
    scanCriteria.IncludeColor iColor
    scanCriteria.ExcludeAllLevels
    scanCriteria.IncludeLevel ActiveModelReference.Levels.FindByNumber(iLevel)
   
    Set enumerator = ActiveModelReference.Scan(scanCriteria)
    Do While enumerator.MoveNext
        Set oCurrent = enumerator.Current
'下一步出错
        ptList = oLine.GetIntersectionPointsOnIntersector(oCurrent, Application.Matrix3dIdentity)

这样也不行        ptList = oLine.GetIntersectionPoints(oCurrent, Application.Matrix3dIdentity)
        If UBound(ptList) > 0 Then
            sName = oCurrent.AsTextElement.Text
            Exit Do
        End If
    Loop
   
    GetRoadIntersectText = True

End Function

shengl

取文本范围，查线，是不是好点？

MicroStation迷

没有仔细看懂我的意思！
1、应该先取出文字的范围构造一个矩形再与线求交。你现在是直接那线与文字求交了！
2、正如4楼所述，扫描时应该按线的范围限定一下，能减少大量不必要的文字。

stoneball

到其他地方问了，8.5以下的函数GetIntersectionPointsOnIntersector(oCurrent, Application.Matrix3dIdentity)当没有交点时出错，而不是返回-1等值