[VLisp]一点在两点之间？

tukuitk

请问：
若已知有四个（反正就是多于两个）点的坐标（二维还是三维不知），和一个点A的坐标。
求：这个点A在那四个点中的哪两个点所确定的连线上？（返回这两个点的坐标）
用VL，谢谢！

龙龙仔

用圖解釋一下好嗎?

meflying

看看这个函数：

2. 
   
3. (defun Get(pt ptlist / ent entv ent2 entv2 n i j ptv ptx pt2x pts a b)
   
4.   ;(setq ent (car (entsel)))
   
5.   (command "_.line" '(0 0) '(1 1) "")
   
6.   (setq ent (entlast))
   
7.   (command "_.line" '(0 0) '(1 1) "")
   
8.   (setq ent2 (entlast))
   
9.   
   
10.   (setq entv (vlax-ename->vla-object ent))
    
11.   (setq entv2 (vlax-ename->vla-object ent2))
    
12.   (setq i 0)
    
13.   (setq ptv (vlax-3d-point pt))
    
14.   (setq n (length ptlist))
    
15.   (while (< i n)
    
16.     (setq ptx (nth i ptlist))
    
17.     (vla-put-startpoint entv (vlax-3d-point ptx))
    
18.     (vla-put-startpoint entv2 ptv)
    
19.     (setq j (1+ i))
    
20.     (while (< j n)
    
21.       (setq pt2x (nth j ptlist))
    
22.       (vla-put-endpoint entv (vlax-3d-point pt2x))
    
23.       (vla-put-endpoint entv2 (vlax-3d-point pt2x))
    
24.       (setq a (vla-get-delta entv))
    
25.       (setq a (vlax-safearray->list (vlax-variant-value a)))
    
26.       (setq b (vla-get-delta entv2))
    
27.       (setq b (vlax-safearray->list (vlax-variant-value b)))
    
28.       (if (and (= (car a) 0) (= (cadr a) 0) (= (car b) 0) (= (cadr b) 0))
    
29.         (progn (setq pts (list ptx pt2x)) (setq i n j n))
    
30.         (progn
    
31.           (if (and
    
32.                 (/= (+ (car a) (cadr a)) 0)
    
33.                 (/= (+ (car b) (cadr b)) 0)               
    
34.                 (= (/ (caddr a) (sqrt (+ (* (car a) (car a)) (* (cadr a) (cadr a)))))
    
35.                    (/ (caddr b) (sqrt (+ (* (car b) (car b)) (* (cadr b) (cadr b)))))
    
36.                 )
    
37.               )
    
38.             (if (and (/= (car a) 0) (/= (car b) 0)
    
39.                      (= (/ (cadr a) (car a)) (/ (cadr b) (car b)))
    
40.                 )
    
41.               (progn (setq pts (list ptx pt2x)) (setq i n j n))
    
42.               (if (and (= (car a) 0) (= (car b) 0))
    
43.                 (progn (setq pts (list ptx pt2x)) (setq i n j n))
    
44.               )
    
45.             );if
    
46.           );if
    
47.         );progn
    
48.       );if
    
49.       (setq j (1+ j))
    
50.     );while
    
51.     (setq i (1+ i))
    
52.   );while
    
53.   (entdel ent)
    
54.   (entdel ent2)
    
55.   pts
    
56. )
    

<br /> (defun Get(pt ptlist / ent entv ent2 entv2 n i j ptv ptx pt2x pts a b)<br />   ;(setq ent (car (entsel)))<br />   (command "_.line" '(0 0) '(1 1) "")<br />   (setq ent (entlast))<br />   (command "_.line" '(0 0) '(1 1) "")<br />   (setq ent2 (entlast))<br />   <br />   (setq entv (vlax-ename->vla-object ent))<br />   (setq entv2 (vlax-ename->vla-object ent2))<br />   (setq i 0)<br />   (setq ptv (vlax-3d-point pt))<br />   (setq n (length ptlist))<br />   (while (< i n)<br />     (setq ptx (nth i ptlist))<br />     (vla-put-startpoint entv (vlax-3d-point ptx))<br />     (vla-put-startpoint entv2 ptv)<br />     (setq j (1+ i))<br />     (while (< j n)<br />       (setq pt2x (nth j ptlist))<br />       (vla-put-endpoint entv (vlax-3d-point pt2x))<br />       (vla-put-endpoint entv2 (vlax-3d-point pt2x))<br />       (setq a (vla-get-delta entv))<br />       (setq a (vlax-safearray->list (vlax-variant-value a)))<br />       (setq b (vla-get-delta entv2))<br />       (setq b (vlax-safearray->list (vlax-variant-value b)))<br />       (if (and (= (car a) 0) (= (cadr a) 0) (= (car b) 0) (= (cadr b) 0))<br />         (progn (setq pts (list ptx pt2x)) (setq i n j n))<br />         (progn<br />           (if (and<br />                 (/= (+ (car a) (cadr a)) 0)<br />                 (/= (+ (car b) (cadr b)) 0)                <br />                 (= (/ (caddr a) (sqrt (+ (* (car a) (car a)) (* (cadr a) (cadr a)))))<br />                    (/ (caddr b) (sqrt (+ (* (car b) (car b)) (* (cadr b) (cadr b)))))<br />                 )<br />               )<br />             (if (and (/= (car a) 0) (/= (car b) 0)<br />                      (= (/ (cadr a) (car a)) (/ (cadr b) (car b)))<br />                 )<br />               (progn (setq pts (list ptx pt2x)) (setq i n j n))<br />               (if (and (= (car a) 0) (= (car b) 0))<br />                 (progn (setq pts (list ptx pt2x)) (setq i n j n))<br />               )<br />             );if<br />           );if<br />         );progn<br />       );if<br />       (setq j (1+ j))<br />     );while<br />     (setq i (1+ i))<br />   );while<br />   (entdel ent)<br />   (entdel ent2)<br />   pts<br /> )<br />

tukuitk

用vlax-curve-getClosestPointTo怎么用？

tukuitk

飞哥，我用(get '(2.2248 25.1101) '((10 10) (15 20) (-10 30) (0 20)))运行上面的程序，但是返回的是nil？？？
另外，ptlist的长度是变化的话，好像上面的程序不对吧。我只是觉得，请别见怪！

meflying

这个返回是正确的啊，你的那个点确实不在任何两点之间。

另，PTLIST长度变化是什么意思？你输入一个表后，这个表的长度还能变化？

tukuitk

我的意思是：那个表的得来是由我们所选择的对象来确定的！比如，我们选择多段线，它的顶点数是随选择的多段线变化的。

meflying

我只是提供了一个函数，函数的参数是一个点和一个由点组成的表，至于这个怎么来的，那是你的事情。原先你也并未有任何说明，
你作为一个开发者，应该明白提供一个函数和一个完整的程序有什么不同。函数是给你在写程序过程中调用的，而函数的使用条件应该是你去适应它，而不是要它适应你。比如说，你不能去要求(command "list"...)返回LIST命令显示的内容。。。
就本函数来说，获得多线段顶点，并将它做成一个列表并不是什么困难的事情，即使你改一下函数，在开头将其做成选择线段，然后组成点的列表，之后的内容照样运行，都是很容易的，为何还要问这个问题？

tukuitk

受教了，谢谢飞哥！

tukuitk

飞哥，下面是我写的，请指教：

2. (defun getTwoPts (pt0 ptList / ss0 i lastent ptEnd1 ptEnd2)
   
3.     (setq var1 (getvar "osmode"))
   
4.     (setvar "osmode" 0)
   
5.     (setq i 0)
   
6.     (repeat (- (length ptList) 1)
   
7.       (vl-cmdf "line" (nth i ptList) (nth (+ 1 i) ptList) "")
   
8.       (setq lastent (entlast))      
   
9.       (if (equal (vlax-curve-getClosestPointTo
   
10.                    (vlax-ename->vla-object lastent)
    
11.                    pt0
    
12.                  )
    
13.                  pt0
    
14.           )
    
15.         (progn
    
16.           (setq        ptEnd1 (nth i ptList)
    
17.                 ptEnd2 (nth (+ 1 i) ptList)
    
18.           )
    
19.         )
    
20.       )
    
21.       (setq i (+ 1 i))
    
22.       (vl-cmdf "ERASE" lastent "")
    
23.     )
    
24.     (setvar "osmode" var1)
    
25.     (append (list ptEnd1) (list ptEnd2))
    
26.   )
    
27. 
    

(defun getTwoPts (pt0 ptList / ss0 i lastent ptEnd1 ptEnd2)<br />     (setq var1 (getvar "osmode"))<br />     (setvar "osmode" 0)<br />     (setq i 0)<br />     (repeat (- (length ptList) 1)<br />       (vl-cmdf "line" (nth i ptList) (nth (+ 1 i) ptList) "")<br />       (setq lastent (entlast))      <br />       (if (equal (vlax-curve-getClosestPointTo<br />                    (vlax-ename->vla-object lastent)<br />                    pt0<br />                  )<br />                  pt0<br />           )<br />         (progn<br />           (setq        ptEnd1 (nth i ptList)<br />                 ptEnd2 (nth (+ 1 i) ptList)<br />           )<br />         )<br />       )<br />       (setq i (+ 1 i))<br />       (vl-cmdf "ERASE" lastent "")<br />     )<br />     (setvar "osmode" var1)<br />     (append (list ptEnd1) (list ptEnd2))<br />   )<br /> <br />

pt0要为3D点，ptlist的长度是变化也可用。