（XD::List:Reverse）表元素指定位置间元素Reverse

marting

从下面这个帖子写的，
http://bbs.xdcad.net/thread-714613-1-1.html

1. (defun XD::List:Reverse (pts from to / lst0 lst1 lst2)
   
2.   (if (and (not from) (not to))
   
3.     (reverse pts)
   
4.     (progn (if (not from)
   
5.              (setq from 0)
   
6.            )
   
7.            (if (not to)
   
8.              (setq to (1- (length pts)))
   
9.            )
   
10.            (setq lst0 (XD::List:Nth-- pts from nil)
    
11.                  lst1 (XD::List:Nth++ pts from (1+ (- to from)))
    
12.                  lst2 (XD::List:Nth++ pts (1+ to) nil)
    
13.            )
    
14.            (append lst0 (reverse lst1) lst2)
    
15.     )
    
16.   )
    
17. )
    

(defun XD::List:Reverse (pts from to / lst0 lst1 lst2)<br />   (if (and (not from) (not to))<br />     (reverse pts)<br />     (progn (if (not from)<br />              (setq from 0)<br />            )<br />            (if (not to)<br />              (setq to (1- (length pts)))<br />            )<br />            (setq lst0 (XD::List:Nth-- pts from nil)<br />                  lst1 (XD::List:Nth++ pts from (1+ (- to from)))<br />                  lst2 (XD::List:Nth++ pts (1+ to) nil)<br />            )<br />            (append lst0 (reverse lst1) lst2)<br />     )<br />   )<br /> )<br />

wzjck01

学习,学习.

qxlonmsn

大佬威武啊  

qxlonmsn

感觉最近晓东论坛老是打不开  现在就没有啥人 发帖了   都变冷清了

tanxindong

大佬威武啊