entnext 选择集的下一个对象,是从前向后找,有没有从后前找的函数??????????

挚友01

entnext选择集的下一个对象, 是从前向后找,有没有从后前找的函数??????????

zxq0220

2. ;获得倒数第n个实体
   
3. (defun tt (n)
   
4.   (setq slst (list))
   
5.   (repeat n
   
6.    (setq s (entlast))
   
7.    (setq slst (cons s slst))
   
8.    (entdel s)
   
9.   )
   
10.   (foreach x slst (entdel x))
    
11.   s
    
12. )

;获得倒数第n个实体<br /> (defun tt (n)<br />   (setq slst (list))<br />   (repeat n<br />    (setq s (entlast))<br />    (setq slst (cons s slst))<br />    (entdel s)<br />   )<br />   (foreach x slst (entdel x))<br />   s<br /> )

/db_自贡黄明儒_

没有这一函数，你可用 （nth n (ssget "X"))

csharp

(ssname (ssget "x") n)

/db_自贡黄明儒_

csharp 发表于 2015-8-31 08:49
(ssname (ssget "x") n)

还是你比我熟习哈{:soso_e113:}

edata

沙发用entdel直接不是删除？好坑人，地板这个也算是前往后找，选择集转表，再反转，不就是了。

edata

1. ;;sk_entpre 最后往前获取ent
   
2. (defun sk_entpre(ent / ss en lst flag en_h5 a entpre)
   
3.   (if(and ent(= (type ent) 'ENAME) (setq ss(ssget "x")))
   
4.     (progn
   
5.       (while(setq en(ssname ss 0))
   
6.       (setq lst(cons en lst))
   
7.       (setq ss(ssdel en ss))
   
8.       )
   
9.       (setq lst(reverse lst))
   
10.       (setq flag t en_h5 (cdr(assoc 5(entget ent))))
    
11.       (if lst(while(and (setq a(car lst)) flag)
    
12.                (if (and (=(cdr(assoc 5(entget a))) en_h5)
    
13.                         (cadr lst))
    
14.                  (setq entpre (cadr lst) flag nil))               
    
15.                (setq lst(cdr lst))
    
16.                )
    
17.         )
    
18.       )
    
19.     )
    
20.   entpre
    
21.   )
    
22. ;;test
    
23. (defun c:tt()
    
24.   (setq a(entlast))  
    
25.   (while(setq a (sk_entpre a))(print a))
    
26.   (princ)
    
27.   )

;;sk_entpre 最后往前获取ent<br /> (defun sk_entpre(ent / ss en lst flag en_h5 a entpre)<br />   (if(and ent(= (type ent) 'ENAME) (setq ss(ssget "x")))<br />     (progn<br />       (while(setq en(ssname ss 0))<br />       (setq lst(cons en lst))<br />       (setq ss(ssdel en ss))<br />       )<br />       (setq lst(reverse lst))<br />       (setq flag t en_h5 (cdr(assoc 5(entget ent))))<br />       (if lst(while(and (setq a(car lst)) flag)<br />                (if (and (=(cdr(assoc 5(entget a))) en_h5)<br />                         (cadr lst))<br />                  (setq entpre (cadr lst) flag nil))               <br />                (setq lst(cdr lst))<br />                )<br />         )<br />       )<br />     )<br />   entpre<br />   )<br /> ;;test<br /> (defun c:tt()<br />   (setq a(entlast))  <br />   (while(setq a (sk_entpre a))(print a))<br />   (princ)<br />   )