获得倒数第几个创建的对象

54256

有没有这样的函数，参数是1,2,3,4,5……

返回值是获取倒数第几个创建的对象，比如(fun  3)返回倒数第三个创建的对象

谢谢

819534890

来个简单的：

(defun k1(n)
(repeat (1- n)
(command "erase" (entlast) "")
)
(setq sn (entlast))
(repeat (1- n)
(command  "undo" "")
)
sn
)

ZZXXQQ

2. (defun bb (n)
   
3. (setq ss (ssadd))
   
4. (repeat (1- n)
   
5.   (ssadd (entlast) ss)
   
6.   (entdel (entlast))
   
7. )
   
8. (setq i -1)
   
9. (repeat (sslength ss)
   
10.   (entdel (ssname ss (setq i (1+ i))))
    
11. )
    
12. ss
    
13. )

(defun bb (n)<br /> (setq ss (ssadd))<br /> (repeat (1- n)<br />   (ssadd (entlast) ss)<br />   (entdel (entlast))<br /> )<br /> (setq i -1)<br /> (repeat (sslength ss)<br />   (entdel (ssname ss (setq i (1+ i))))<br /> )<br /> ss<br /> )

自贡黄明儒

2. 
   
3. ;;获取倒数第n个元素 自贡黄明儒2013年11月9日
   
4. ;;示例(HH:nthEnt 1)=(entlast)
   
5. (defun HH:nthEnt (n / LASTENT LST)
   
6.   (repeat n
   
7.     (setq lastent (entdel (entlast)))
   
8.     (setq lst (cons lastent lst))   
   
9.   )
   
10.   (mapcar 'entdel lst)
    
11.   lastent
    
12. )
    

<br /> ;;获取倒数第n个元素 自贡黄明儒2013年11月9日<br /> ;;示例(HH:nthEnt 1)=(entlast)<br /> (defun HH:nthEnt (n / LASTENT LST)<br />   (repeat n<br />     (setq lastent (entdel (entlast)))<br />     (setq lst (cons lastent lst))    <br />   )<br />   (mapcar 'entdel lst)<br />   lastent<br /> )<br />

xyp1964

2. ;; (aaa 3)
   
3. (defun aaa (n)
   
4.   (setq  ss (ssget "x")
   
5.         s1 (ssname ss (- n 1))
   
6.   )
   
7.   (redraw s1 3)
   
8. )

;; (aaa 3)<br /> (defun aaa (n)<br />   (setq  ss (ssget "x")<br />         s1 (ssname ss (- n 1))<br />   )<br />   (redraw s1 3)<br /> )

llsheng_73

上边的回复说明我们都很容易被惯性思维影响，一看见要倒数第几个，马上想到ENTLAST而忘了SSGET没有说明但大家都知道的一点：它所返回的图元与绘图的先后是反的
还是院长来得直接