各位，小弟请教AUTOLISP程序问题

simon_hbedi

下面是小弟写的一段AUTOLISP程序，在AutoCAD里执行，总是返回NIL，小弟百思不得其解，望指教
(defun C:dd()
   (setq enta1 (entnext))
   (setq ent-list1 (entget enta1))
   (while enta1
     (if(and (= (cdr (assoc 8 ent-list1)) "zm") (= (cdr (assoc 0 ent-list1)) "LINE"))
       (progn
         (setq p1 (cdr (assoc 10 ent-list1)))
         (setq x1 (fix (car p1)))
         (setq enta2 (entnext enta1))
         (setq ent-list2 (entget enta2))
         (setq p2 (cdr (assoc 10 ent-list2)))
         (setq x2 (fix (car p2)))
         (setq d (- x2 x1))
         (setq x (/ (+ x1 x2) 2))
         (setq d (* d 5))
         (command "text" "C" (list (+ x 20) 21) 0 d)
       )     
     )
     (setq enta1 enta2)
     (setq ent-list1 ent-list2)  
  )
)

mccad