;; | ---------------------------------------------------------------------------
;; | LI_mitem
;; | ---------------------------------------------------------------------------
;; | Function : Return Multiple instances of a DXF code dotted pair from the
;; |            entity list.
;; | Argument : 'Code'   - The DXF Code to check
;; |            'alist'  - The List to check
;; | Returns  : A list of all DXF dotted pair values, if it exists else ret. nil
;; | Update   : December 26, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun LI_mitem( Code entl / Lst itm )

(setq Lst '())
(foreach itm entl
	(if (= (car itm) Code)
		(setq Lst (cons (cdr itm) Lst))
	)
)
(if Lst (reverse Lst) nil)
)