一段autocad lisp 代码求完善

想删除空白文字同零线，高版本自带清理功能 ：[code=lsp](command "_.-purge" "_Z" "_.-purge" "_E")[/code]但是低版本中没有这个选项，现有一段代码，有高手能帮我完善吗？谢谢[code](setq ss (ssadd) e (entnext))(while (and e (wcmatch (cdr (assoc 0 (setq en (entget e)))) "LINE,LWPOLYLINE,*TEXT")) (if (or (and (vlax-property-available-p (setq v (vlax-ename->vla-object e)) ✀LENGTH) (zerop (vla-get-length v)) ) (and (vlax-property-available-p v ✀TEXTSTRING) (eq (vla-get-textstring v) "")) ) (ssadd e ss) ) (setq e (entnext e)))(sssetfirst nil ss)[/code]