I'm trying to Align the Z Axis with 2 points, that works but I'm 90deg off around the Z Axis any help would be appreciated
Shared Function UCSAlignZaxix(ByVal Point1 As Point3d, ByVal Point2 As Point3d) As Matrix3d
Try
Dim ZAxis As Vector3d = Point1.GetVectorTo(Point2).GetNormal
Dim yAxis As Vector3d = ZAxis.GetPerpendicularVector.GetNormal
Dim xAxis As Vector3d = yAxis.CrossProduct(ZAxis).GetNormal
Dim NewMatrix3d As Matrix3d = Matrix3d.AlignCoordinateSystem(Point3d.Origin, Vector3d.XAxis, Vector3d.YAxis, Vector3d.ZAxis, Point1, xAxis, yAxis, ZAxis)
Return NewMatrix3d
Catch
Return Nothing
End Try
End Function
