请问怎样以最短的距离连接分布在长方形上的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

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

(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) (< (car x1) (car x2)))))
(setq i 1)
(repeat 5
(setq dist (append dist (list (- (car (nth i ptLst)) (car (nth (1- i) ptLst))))))
(setq i (1+ i))
)
(setq lMax (apply 'max dist))
(setq l (+ (caar ptLst) (- (vlax-curve-getDistAtParam ent (vlax-curve-getEndParam ent)) (car (last ptLst)))))
(if (> 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个点的坐标是已知的，不需要输入!上面有程序对我来说有点高深了，不太懂!不过不是要谢谢各位朋友的回帖。

账号		自动登录	找回密码
密码			注册