[编程交流] 选择点并连接

(defun c:ptjoin ( / i l m p s )
   (if (setq s (ssget '((0 . "POINT"))))
       (progn
           (repeat (setq i (sslength s))
               (setq l (cons (cdr (assoc 10 (entget (ssname s (setq i (1- i)))))) l))
           )
           (if (setq p (getpoint "\nPick 1st point: "))
               (progn
                   (setq p (trans p 1 0))
                   (while l
                       (setq p (closestpoint p l)
                             m (cons (cons 10 p) m)
                             l (vl-remove p l)
                       )
                   )
                   (entmake
                       (append
                           (list
                              '(000 . "LWPOLYLINE")
                              '(100 . "AcDbEntity")
                              '(100 . "AcDbPolyline")
                               (cons 90 (length m))
                              '(070 . 0)
                           )
                           m
                       )
                   )
               )
           )
       )
   )
   (princ)
)
(defun closestpoint ( p l / d q r x )
   (setq r (car l)
         d (distance p r)
   )
   (foreach q (cdr l)
       (if (< (setq x (distance p q)) d)
           (setq r q d x)
       )
   )
   r
)

; example from help
(vl-sort '((1 3) (2 2) (3 1))
            (function (lambda (e1 e2)
                        (< (cadr e1) (cadr e2)))))
((3 1) (2 2) (1 3))   

(setq lst (list (list 1 23 (list 100 100))(list 2 22 (list 50 100))(list 3 35 (list 50 50))))
(vl-sort lst
   (function (lambda (e1 e2)
   (< (cadr e1) (cadr e2)))))
; result
((2 22 (50 100)) (1 23 (100 100)) (3 35 (50 50)))