[分享]：安全型NTH函数（可以处理点对）

fylinwater

安全型NTH函数（可以处理点对）
同时把i值加1使程序更加好理解

2. 
   
3. ;;———————————————————————————————————
   
4. ;;#$fildname-> list.lsp
   
5. ;;time-stamp-> 11:03 02-4-22 zjw
   
6. ;;Copyright (C) 2001 by zjw ,WuXi Municipal Enginerring Design Institue. All Rights Reserved.
   
7. 
   
8. ;;-------------------------------------------------
   
9. ;;#$help.begin
   
10. ;;##function.name->  (dd_nth I LST)
    
11. ;;##keyword-> nth  获取 表 元素
    
12. ;;##Description-> 安全获取表元素 不产生错误中断，但修整了参数的含义，比NTH大一
    
13. ;;##Arguments.begin
    
14. ;|            |;
    
15. ;;##Arguments.end
    
16. ;;##return->  pointlist <list> 端点表
    
17. ;;##examples.begin
    
18. ;| (dd_nth 1 '( 1 2)) => 1
    
19.    ( (dd_nth 3 '( 1 2)) => nil     
    
20.     ( (dd_nth 2 '( 1  . 2)) =>  2  |;
    
21. ;;##examples.end
    
22. ;;##see also->
    
23. ;;#$help.end
    
24. ;;-------------------------------------------------
    
25. 
    
26. ;;##use function->
    
27. ;;##use ddsysvar->
    
28. (defun dd_nth ( i lst  / )
    
29.   (if (= 'REAL (TYPE I)) (SETQ I (FIX I)))
    
30. (if (and  (= 'INT (type i)) (= 'LIST (type lst)))
    
31.   (progn
    
32.   (if (/= 'LIST (type (cdr lst) ) )  
    
33.       (setq lst  (list (car lst) (cdr lst))))   ;;处理点对，把点对当二个元素的表
    
34.   (if (and (> i 0 )  (<= i (length lst)))
    
35.    (nth (1-  i ) lst)
    
36.   )
    
37. 
    
38. )
    
39.    )
    
40.   
    
41. )
    
42. 
    
43. 
    

<br /> ;;———————————————————————————————————<br /> ;;#$fildname-> list.lsp<br /> ;;time-stamp-> 11:03 02-4-22 zjw<br /> ;;Copyright (C) 2001 by zjw ,WuXi Municipal Enginerring Design Institue. All Rights Reserved.<br /> <br /> ;;-------------------------------------------------<br /> ;;#$help.begin<br /> ;;##function.name->  (dd_nth I LST)<br /> ;;##keyword-> nth  获取 表 元素<br /> ;;##Description-> 安全获取表元素 不产生错误中断，但修整了参数的含义，比NTH大一<br /> ;;##Arguments.begin<br /> ;|            |;<br /> ;;##Arguments.end<br /> ;;##return->  pointlist <list> 端点表 <br /> ;;##examples.begin<br /> ;| (dd_nth 1 '( 1 2)) => 1<br />    ( (dd_nth 3 '( 1 2)) => nil     <br />     ( (dd_nth 2 '( 1  . 2)) =>  2  |;<br /> ;;##examples.end<br /> ;;##see also-><br /> ;;#$help.end<br /> ;;-------------------------------------------------<br /> <br /> ;;##use function-><br /> ;;##use ddsysvar-><br /> (defun dd_nth ( i lst  / )<br />   (if (= 'REAL (TYPE I)) (SETQ I (FIX I)))<br /> (if (and  (= 'INT (type i)) (= 'LIST (type lst)))<br />   (progn<br />   (if (/= 'LIST (type (cdr lst) ) )  <br />       (setq lst  (list (car lst) (cdr lst))))   ;;处理点对，把点对当二个元素的表<br />   (if (and (> i 0 )  (<= i (length lst)))<br />    (nth (1-  i ) lst) <br />   )<br /> <br /> )<br />    )<br />   <br /> )<br /> <br /> <br />