Topic: vlax-curve-getfurthestpointfrom

[ribarm]

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...

Code - Auto/Visual Lisp: [Select]

1. (defun vlax-curve-getfurthestpointfrom ( curve pt / _precise sd ed dd p1 p2 d1 d2 d ptt pp p )
2.   (setq sd (vlax-curve-getdistatparam curve (vlax-curve-getstartparam curve)))
3.   (setq ed (vlax-curve-getdistatparam curve (vlax-curve-getendparam curve)))
4.   (setq p1 T p2 T dd 0.0)
5.   (while (and p1 p2)
6.     (setq p1 (vlax-curve-getpointatdist curve (+ sd dd)))
7.     (setq dd (+ dd (/ ed 100.0)))
8.     (setq d1 (distance pt p1))
9.     (setq p2 (vlax-curve-getpointatdist curve (+ sd dd)))
10.     (if (>= (+ sd dd) ed) (setq p2 (vlax-curve-getendpoint curve)))
11.     (setq d2 (distance pt p2))
12.     (if (null p) (setq p p1))
13.     (if (> d1 (distance pt p)) (setq p p1))
14.     (if (> d2 (distance pt p)) (setq p p2))
15.     (if (> (+ sd dd) ed) (setq p1 nil p2 nil))
16.   )
17.  
18.   (defun _precise ( fact / p1 p2 dd d )
19.     (setq p1 T p2 T dd 0.0 d nil)
20.     (while (and p1 p2)
21.       (if (not (equal p (vlax-curve-getstartpoint curve) 1e-8))
22.         (progn
23.           (setq p1 (vlax-curve-getpointatdist curve (+ (if (null d) (setq d (- (vlax-curve-getdistatpoint curve p) (/ ed fact))) d) dd)))
24.           (setq dd (+ dd (/ ed fact 100.0)))
25.           (setq d1 (distance pt p1))
26.           (setq p2 (vlax-curve-getpointatdist curve (+ d dd)))
27.           (if (>= (+ d dd) ed) (setq p2 (vlax-curve-getendpoint curve)))
28.           (setq d2 (distance pt p2))
29.           (if (> d2 d1) (setq p p2) (setq p1 nil p2 nil))
30.         )
31.         (setq p1 nil p2 nil)
32.       )
33.     )
34.   )
35.  
36.   (_precise (expt 100.0 1.0))
37.   (_precise (expt 100.0 2.0))
38.   (_precise (expt 100.0 3.0))
39.   (_precise (expt 100.0 4.0))
40.   (_precise (expt 100.0 5.0))
41.   (_precise (expt 100.0 6.0))
42.   (_precise (expt 100.0 7.0))
43.   (_precise (expt 100.0 8.0))
44.   (_precise (expt 100.0 9.0))
45.   (_precise (expt 100.0 10.0))
46.  
47.   (setq ptt (mapcar '+ pt (mapcar '* '(2.0 2.0 2.0) (mapcar '- p pt))))
48.   (setq pp (vlax-curve-getclosestpointto curve ptt))
49.   (while (not (equal p pp 1e-50))
50.     (setq p pp)
51.     (setq ptt (mapcar '+ pt (mapcar '* '(2.0 2.0 2.0) (mapcar '- p pt))))
52.     (setq pp (vlax-curve-getclosestpointto curve ptt))
53.   )
54.   p
55. )
56.  

M.R.