[求助]：大虾知道为什么有时用entget获取实体表结构中有相同项？

xazhji

我们经常用entget获得实体的列表结构，但是，有时会出现关键字相同的2个以上的列表，不知道为什么？我们要是取得  第二个 表项，就有一点麻烦。

柔柔

是这样，请看我的一个子程序

2. 
   
3. ;-------------------------------------------------------------
   
4. ; LWPOLYLINE 及 SPLINE 曲线上第 ptno 号点
   
5. ; IN:  elist ptno
   
6. ; OUT: LWpt
   
7. 
   
8. (defun set_LWpt ( elist ptno / count tmp LWptx LWpty)
   
9.    (setq count 0)
   
10.    (while (/= (car (nth count elist)) 10)
    
11.      (setq count (1+ count))
    
12.    )
    
13.    (if (= (cdr (assoc 0 elist)) "LWPOLYLINE")
    
14.        (setq tmp (nth (+ count (* ptno 4)) elist))
    
15.        (setq tmp (nth (+ count (* ptno 1)) elist))
    
16.    )
    
17.    (setq LWpt (cdr tmp))
    
18.    (if (= (cdr (assoc 0 elist)) "SPLINE")
    
19.      (setq LWptx (car LWpt)
    
20.            LWpty (cadr LWpt)
    
21.             LWpt (list LWptx LWpty)
    
22.      )
    
23.    )
    
24. )

<br /> ;-------------------------------------------------------------<br /> ; LWPOLYLINE 及 SPLINE 曲线上第 ptno 号点<br /> ; IN:  elist ptno<br /> ; OUT: LWpt<br /> <br /> (defun set_LWpt ( elist ptno / count tmp LWptx LWpty)<br />    (setq count 0)<br />    (while (/= (car (nth count elist)) 10)<br />      (setq count (1+ count))<br />    )<br />    (if (= (cdr (assoc 0 elist)) "LWPOLYLINE")<br />        (setq tmp (nth (+ count (* ptno 4)) elist))<br />        (setq tmp (nth (+ count (* ptno 1)) elist))<br />    )<br />    (setq LWpt (cdr tmp))<br />    (if (= (cdr (assoc 0 elist)) "SPLINE")<br />      (setq LWptx (car LWpt)<br />            LWpty (cadr LWpt)<br />             LWpt (list LWptx LWpty)<br />      )<br />    )<br /> )

aeo

(mapcar x elist
(if(= (car x) 10 )   .....