Below is the code of Parabola with 3 points in VBA
'-----------------------------------------------------------Code
Sub para()
Dim Pnt1, Pnt2, Pnt3 As Variant '3points for parabola
Pnt1 = ThisDrawing.Utility.GetPoint(, "1st Point")
Pnt2 = ThisDrawing.Utility.GetPoint(, "2nd...