[编程交流] 请帮我理解

(defun cdrs (key lst / pair rtn)
    (while (setq pair (assoc key lst)) (setq rtn (cons (cdr pair) rtn) lst (cdr (member pair lst)) ) ) (reverse rtn) )

 
;;; its a sub-function for the bigger program
;;; when it is called you need to pass it 2 variables example: (cdrs 10 and the polyline list from the autolisp entget function)
;;; the variable KEY  is the first item in a dotted pair like (10 100.500 200.600)
;;; the variable LST is the list of entity information like if you use (entget(entlast))
(defun cdrs (key lst / pair rtn)
  ;_while pair is not nil loop.
     (while (setq pair (assoc key lst)); pair = the first occurrence of the key item in the list
     (setq rtn (cons (cdr pair) rtn);_a list of the items are being made
             lst (cdr (member pair lst));_remaking the list to be passed back on the next loop
             ;;;with out the previous (assoc key lst) so it will get thew next item in the list
       );_setq
     );_while
  (reverse rtn);_flip the list so the fitst item the while loop retrives is now the first in the list
 );_defun
;;; this sub-function can be tested by the following call
;;; first draw a polyline then make the call
(cdrs 10 (entget(entlast)))

;;; its a sub-function for the bigger program
;;; when it is called you need to pass it 2 variables example: (cdrs 10 and the polyline list from the autolisp entget function)
;;; the variable KEY  is the first item in a dotted pair like (10 100.500 200.600)
;;; the variable LST is the list of entity information like if you use (entget(entlast))
(defun cdrs (key lst / pair rtn)
  ;_while pair is not nil loop.
     (while (setq pair (assoc key lst)); pair = the first occurrence of the key item in the list
     (setq rtn (cons (cdr pair) rtn);_a list of the items are being made
             lst (cdr                     ;_[color="Red"]2. Cdr find in 1. And save in lst variable
                                            ;_Next pass member find next code 10[/color]
                    (member pair lst) ;[color="Red"]_1. Find first code 10[/color]
                  )
;_remaking the list to be passed back on the next loop
             ;;;with out the previous (assoc key lst) so it will get thew next item in the list
       );_setq
     );_while
  (reverse rtn);_flip the list so the fitst item the while loop retrives is now the first in the list
 );_defun
;;; this sub-function can be tested by the following call
;;; first draw a polyline then make the call
(cdrs 10 (entget(entlast)))

(defun pl-list-massoc (key alist) 
(mapcar 'cdr (vl-remove-if-not (function (lambda (x) (= key (car x)))) alist))) ;_ end of defun 

(vl-load-com)(pl-list-massoc 10 (entget(car(entsel "\nSelect a polyline:"))))