[讨论]这下怎么做了，请帮忙lisp

lzy9788 · 发表于 2004-3-19 17:50:00

jq1gkflgtsh.jpg

我只想要交点1 与交点2，怎么样求得出来了
（求pt1 与 pt2连线与最外边两根线的交点）

lzy9788 · 发表于 2004-3-19 17:51:00

不用VL-扩展函数，lisp能做到吗

meflying · 发表于 2004-3-19 17:55:00

函数：inters

lzy9788 · 发表于 2004-3-20 11:04:00

不是，我求出了多个交点，与上面所有线的交点。
也就是多个交点怎么样排序了，按一个点到交点的距离？
或按X Y 的坐标值。

meflying · 发表于 2004-3-20 11:47:00

我只想要交点1 与交点2，怎么样求得出来了
------------------------------------------------------
提问也要注意别人的理解，从上面这句话，谁能看出来你已经求出了所有交点，而问题是排序问题？

meflying · 发表于 2004-3-20 12:20:00

仅以取代vl-sort函数，用法相同
(defun wl-sort(lst fun / i j n var1 var2 lst_new)
   (defun chg-item(lst i j / item item_j)
   (setq item (nth i lst))
   (setq item_j (nth j lst))
   (setq lst_new nil)
   (setq m 0)
   (repeat (length lst)
   (cond
((= m i) (setq lst_new (append lst_new (list item_j))))
((= m j) (setq lst_new (append lst_new (list item))))
(t (setq lst_new (append lst_new (list (nth m lst)))))
   )
   (setq m (1+ m))
   )
   lst_new
   )
   (setq i 0
j 0
n (length lst))
   (repeat (1- n)
   (setq var1 (nth i lst))
   (setq j (1+ i))
   (repeat (- n i 1)
   (setq var2 (nth j lst))
   (if (not ((eval fun) var1 var2))
(progn
   (setq lst (chg-item lst i j))
   (setq var1 var2)
   (setq var2 (nth j lst))
)
   )
   (setq j (1+ j))
   )
   (setq i (1+ i))
   )
   lst
)