请问怎样以最短的距离连接分布在长方形上的6个点!

huayingjie · 发表于 2004-10-9 09:19:00

请帮帮小弟
怎样用lisp编写一个能解决如下问题的程程序
假设有6个点，任意在一个长方形的4个边上放置，长方形4个角点的坐标已知，6个点的坐标也已知，而且其z坐标相同，想要请问怎样以最短的线延着长方形的边连接这6个点，连线必须是线延着长方形的边布置的，当各点不在同一边上时，要经过一些角点，各点在长方形上的位置是任意摆放的。
这个程序对我来说很重要，麻烦各位大侠费费神，小弟感激不尽!

alin · 发表于 2004-10-9 13:20:00

找到6个点中间隔最大的两点，问题就解决了。

huayingjie · 发表于 2004-10-9 13:58:00

关键是怎么找啊!小弟想了好几天了，都没有想明白啊!谁帮忙编写一个啊!

alin · 发表于 2004-10-9 14:02:00

参考下面函数的用法：
vlax-curve-getDistAtPoint

xyp1964 · 发表于 2004-10-9 14:04:00

不明白！这个长方形不就是想要的吗？发个图或图片看看！

alin · 发表于 2004-10-9 14:09:00

我想楼主是想要一个开口的长方形。

huayingjie · 发表于 2004-10-9 15:11:00

6楼的说的很对。

meflying · 发表于 2004-10-9 15:57:00

晕,这里又有,希望不要重复发贴,一个问题发一个帖子就够了,不要到处发帖子,

meflying · 发表于 2004-10-9 16:28:00

按点顺序直接连起来了,剩下的事情,你自己做做吧

copy


(vl-load-com)
(defun c:test( / ent ptLst i n dist l lMax)
   (setq ent (car (entsel)))
   (repeat 6
       (setq ptLst (append ptLst (list (getpoint "\nPick a point:"))))
   )
   (setq ptLst (mapcar '(lambda(x) (list (vlax-curve-getDistAtPoint ent x) x)) ptLst))
   (setq ptLst (vl-sort ptLst '(lambda (x1 x2) ( lMax l)
       (progn
           (setq n (vl-position lMax dist))
           (repeat (1+ n)
  (setq ptLst (reverse (cons (car ptLst) (reverse (cdr ptLst)))))
           )
       )
   )
   (command "_.pline")
   (mapcar 'command (mapcar 'cadr ptLst))
   (command "")
)

huayingjie · 发表于 2004-10-9 16:55:00

6个点的坐标是已知的，不需要输入!上面有程序对我来说有点高深了，不太懂!不过不是要谢谢各位朋友的回帖。

请问怎样以最短的距离连接分布在长方形上的6个点!

发表回复

精选推荐