[求助]：请各位高手帮忙看看，代码错在那里

hq740311

下面获取图中所有图元信息的代码错在那里，怎么是死循环呢？如何判定最后呢
(defun C:PRINTDXFAll()
  (setq one_ent (entnext));设置ent为第一个元
  (while one_ent
    (setq entl (entget one_ent))             ;设置entl为这个图元的图元数据库   
    (setq ct 0)
    (textpage)                          ;切换到文本屏幕
    (princ "\nentget of last entity:")
    (repeat (length entl)               ;按表中成员的数量进行循环
    (print (nth ct entl))             ;在新的一行上打印出每个表成员的容
   
    (setq ct (1+ ct))  
    )
    (princ)
   )
  (setq one_ent(entnext one_ent))
  
  )

netbee

将这句放在循环体中(setq one_ent (entnext one_ent))

2. 
   
3. (defun C:PRINTDXFAll ()
   
4.   (setq one_ent (entnext))                ;设置ent为第一个元
   
5.   (while one_ent
   
6.     (setq entl (entget one_ent))        ;设置entl为这个图元的图元数据库
   
7.     (setq ct 0)
   
8.     (textpage)                                ;切换到文本屏幕
   
9.     (princ "\nentget of last entity:")
   
10.     (repeat (length entl)                ;按表中成员的数量进行循环
    
11.       (print (nth ct entl))                ;在新的一行上打印出每个表成员的容
    
12. 
    
13.       (setq ct (1+ ct))
    
14.     )
    
15.     (princ)
    
16.     (setq one_ent (entnext one_ent))
    
17.   )
    
18. )
    

<br /> (defun C:PRINTDXFAll ()<br />   (setq one_ent (entnext))                ;设置ent为第一个元<br />   (while one_ent<br />     (setq entl (entget one_ent))        ;设置entl为这个图元的图元数据库 <br />     (setq ct 0)<br />     (textpage)                                ;切换到文本屏幕<br />     (princ "\nentget of last entity:")<br />     (repeat (length entl)                ;按表中成员的数量进行循环<br />       (print (nth ct entl))                ;在新的一行上打印出每个表成员的容<br /> <br />       (setq ct (1+ ct))<br />     )<br />     (princ)<br />     (setq one_ent (entnext one_ent))<br />   )<br /> )<br />