CrisjovanoGuimaraes

BoreHole 3d NoVertical Line - How can I calculate it ?

Discussion created by CrisjovanoGuimaraes on Aug 3, 2011
Latest reply on Dec 18, 2011 by CrisjovanoGuimaraes
Hi all.
I am trying to create a borehole inclined line, but I just could create a vertical line using the fields X, Y, From, To fields.
I would like to create a no vertical (the line inclined with angle). I have other fields (Azimuth, Dip, Z, Depth), but I don't know the calc for it.

Below. The piece of code. It is working well and it can create a vertical line. But I am not sure how can I create a no vertical line

        Set pPointCollection = New Polyline
        Dim pzawarePC As IZAware
        Set pzawarePC = pPointCollection
        pzawarePC.ZAware = True
       
        ' get first coordinate and store
        pPoint.x = pRow.Value([XField])
        pPoint.y = pRow.Value([YField])
        Dim pZAware As IZAware
        Set pZAware = pPoint
        pZAware.ZAware = True
        pPoint.Z = pRow.Value([TopField])
        pPointCollection.AddPoint pPoint
       
        ' get second coordinate and store
        pPoint.x = pRow.Value([XField]) + 0.00001
        pPoint.y = pRow.Value([YField])
        Set pZAware = pPoint
        pZAware.ZAware = True

        pPoint.Z = pRow.Value([BottonField])
        pPointCollection.AddPoint pPoint
       
        ' store the pointcolletion in the featurebuffer
        Set pFeature.Shape = pPointCollection
       

Fields that I am not using from my shape (Z, Depth, Dip, Azimut)

Below the printscreen about two lines. The vertical line was created using the calc above. The second line was created using the ArcHydro tool.

Outcomes