Here is a quickie.
(defun c:test (/ ss vlalst)
(setq ss (ssget "X" '((0 . "LWPOLYLINE"))))
(setq vlalst (mapcar 'vlax-ename->vla-object
(vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
)
)
(mapcar '(lambda (x)
(if (and (vlax-property-available-p x 'area)
(zerop (setq area (vla-get-area x)))
)
(setq zeroLst (cons x ZeroLst))
)
)
vlalst
)
ZeroLst
)