Little late, but better ever than never... I should have added final touch much much earlier... So here is final (vlax-curve-getfurthestpointfrom)... From my testings, it should return exact point that is furthest from desired point anywhere in 3D...
(defun vlax
-curve
-getfurthestpointfrom
( curve pt
/ _precise sd ed dd p1 p2 d1 d2 d ptt pp p
) (setq dd
(+ dd
(/ ed
100.0))) (if (> (+ sd dd
) ed
) (setq p1
nil p2
nil)) )
(defun _precise
( fact
/ p1 p2 dd d
) (setq p1 T p2 T dd
0.0 d
nil) (setq dd
(+ dd
(/ ed fact
100.0))) )
)
)
)
(_precise
(expt 100.0 1.0)) (_precise
(expt 100.0 2.0)) (_precise
(expt 100.0 3.0)) (_precise
(expt 100.0 4.0)) (_precise
(expt 100.0 5.0)) (_precise
(expt 100.0 6.0)) (_precise
(expt 100.0 7.0)) (_precise
(expt 100.0 8.0)) (_precise
(expt 100.0 9.0)) (_precise
(expt 100.0 10.0))
)
p
)
M.R.