Vanila Lisp中的排序点列表

satishrajdev · 发表于 2022-7-5 16:34:22

你好

我试图为draftsight创建一个代码，但正如我们所知，它只支持AutoLISP而不支持Visual LISP。我被困在一个点，我想在X和Y方向排序点列表，我们可以使用VL-sort函数，但我没有找到任何autolisp函数替代它。我希望能从你那里得到一些想法。

等待您的输入。

当做
萨提什语

rkmcswain · 发表于 2022-7-5 16:45:20

你可以从这里开始：http://www.faqs.org/faqs/CAD/autolisp-faq/part1/section-9.html

satishrajdev · 发表于 2022-7-5 16:51:38

哇！谢谢。。。

Grrr · 发表于 2022-7-5 17:05:12

那些不是吉尔写的吗？在这个线程中。

顺便说一句，这里有一些简单的版本：

copy


; _$ (SortPointList 'x '((0 1 2) (2 0 1) (1 2 0))) -> ((0 1 2) (1 2 0) (2 0 1))
; _$ (SortPointList 'y '((0 1 2) (2 0 1) (1 2 0))) -> ((2 0 1) (0 1 2) (1 2 0))
; _$ (SortPointList 'z '((0 1 2) (2 0 1) (1 2 0))) -> ((1 2 0) (2 0 1) (0 1 2))
(defun SortPointList ( mode pL )
 (cond 
   ( (not (vl-position mode '(x y z))) (princ "\nInvalid mode.") )
   (T
     (vl-sort pL
       '(lambda (p1 p2)
         (apply '< (mapcar (cdr (assoc mode '((x . car)(y . cadr)(z . caddr)))) (list p1 p2)))
       )
     )
   )
 ); cond
); defun