;; | ---------------------------------------------------------------------------
;; | LI_CodeStrip
;; | ---------------------------------------------------------------------------
;; | Function : Strip DXF codes specified in the list from the given list
;; | Argument : 'entl'     - List to check (usually will be return from entget)
;; |            'StripLst' - List containing DXF codes to be stripped
;; | Returns  : The updated list
;; | Update   : December 26, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun LI_CodeStrip( entl StripLst / len _entl Code Lst )

(setq
	len (length entl)
	_entl '()
)
(foreach Lst entl
	(setq Code (car Lst))
	(if (not (member Code StripLst))
		(setq _entl (append _entl (list Lst)))
	)
)
_entl
)