No its purely 2d.
Thanks for that - i changed the code around so it will work now.
This is what i have.
Public Function CalcAngle(ByVal ObjCurve As AcadNetDbServices.Curve, ByVal Dist As Double)
Dim Radians As Double
Dim Degrees As Double
Dim Point1 As AcadNetGeometry.Point3d = ObjCurve.GetPointAtDist(Dist)
Dim firstderiv As AcadNetGeometry.Vector3d = ObjCurve.GetFirstDerivative(Point1)
Radians = Math.Atan2(Cdbl(firstderiv.Y) , Cdbl(firstderiv.X))
Degrees = Radians * (180 / Math.PI)
'If in positive quadrants then = 180 - abs.Degrees
'If in Negative quadrants then = Abs.Degrees - 180
If Degrees < 0 Then
Degrees = (Math.Abs(Degrees)) + 180
Degrees = 180 - (Math.Abs(Degrees))
CalcAngle = Degrees