(defun c:los ()

  (setq edata (entsel))
(princ "test")
  (setq
    en	     (nth 0 edata)
    typ	     (Li_item 0 en)
    pktliste (cond
	       ((= typ "LINE") (lin_sel$do-line en))
	       ((= typ "VERTEX") (lin_sel$do-vertex edata))
	       ((= typ "LWPOLYLINE") (lin_sel$do-lwpline edata))
	     ) ;_ cond
  ) ;_ setq

  ;;+++++++ hier fehler !! ++++++++

  pktliste
  (cond
    ((= typ "LINE") (lin_sel$do-line en))
    ((= typ "VERTEX") (lin_sel$do-vertex edata))
    ((= typ "LWPOLYLINE") (lin_sel$do-lwpline edata))
  ) ;_ cond
) ;_ setq

wobei
LI_ITEM....

(defun Li_item (code ename)
  (cdr (assoc code (entget ename)))
)					; Li_item