Вставка вершин в месте пересечения

Question

Как вставить вершину в место пересечения двух полилиний из разных слоев и задать этой вершине z-значение (class feature содержит z и m значения). Наверное код должен быть примерно таким:
Set pFeatureCursor = pFeatureLayer.Search(Nothing, True)
Set pFeature = pFeatureCursor.NextFeature
While Not pFeature Is Nothing
        Set pTopologicalOperator = pFeature.Shape
        Set pIntersectCursor = pIntersectFeatureLayer.Search(Nothing, True)
        Set pIntersectFeature = pIntersectCursor.NextFeature
        While Not pIntersectFeature Is Nothing
            Set pSegments = pIntersectFeature.Shape
            For m = 0 To pSegments.SegmentCount - 1
                Set pIntersectGeometry = pSegments.Segment(m)
                Set pIntersectPoints = pTopologicalOperator.Intersect(pIntersectGeometry, esriGeometry0Dimension)
            Next m
            Set pIntersectFeature=IntersectCursor.NextFeature
        Wend
    Set pFeature = pFeatureCursor.NextFeature
Wend
;но с ISegment метод Intersect работать не будет, как же выяснить место вставки вершины?

Answer 1

подними справочник по аналитической геометрии

есть формула "уравнение пучка прямых, проходящих через точку"

ладно, напишу

дано М(х.у)  ----точка пересечения

две прямых   с координатами    х1у1 х2у2   и х3у3х4у4

к1=(у2-у1)/(х2-х1) ---это кооф. наклона

к2 аналогично с х3 и у3

решай систему из двух уравнений с двумя неизвестными и всё!

удачи

 

Дмитрий   Oberon@ngs.ru

итак:  у1-у=к1(х1-х) -это уравнение первой прямой

Answer 2

Здается мне, что метод Intersect объекта Line возвратит точку... Это уже будет в двух измерениях... А третье можно дать прямым указанием присвоения например...

oPt.z = чемуто там....