[VLisp]一点在两点之间？

tukuitk · 发表于 2003-11-14 12:17:00

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

龙龙仔 · 发表于 2003-11-14 12:21:00

用圖解釋一下好嗎?

meflying · 发表于 2003-11-14 13:20:00

看看这个函数：


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

tukuitk · 发表于 2003-11-14 17:20:00

xtwubo4ppeo.jpg

用vlax-curve-getClosestPointTo怎么用？

tukuitk · 发表于 2003-11-17 12:09:00

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

meflying · 发表于 2003-11-17 12:32:00

这个返回是正确的啊，你的那个点确实不在任何两点之间。
另，PTLIST长度变化是什么意思？你输入一个表后，这个表的长度还能变化？

tukuitk · 发表于 2003-11-17 12:38:00

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

meflying · 发表于 2003-11-17 12:46:00

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

tukuitk · 发表于 2003-11-17 12:49:00

受教了，谢谢飞哥！

tukuitk · 发表于 2003-11-17 17:10:00

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

copy


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

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

[VLisp]一点在两点之间？

发表回复

精选推荐