удаление расширенных данных

(defun C:DEL_ALLXDATA ( / en e xe xn)
  (if (setq en (car (entsel))) (progn
    (setq e (entget en '("*")))
    (setq xe (cdr (assoc -3 e)))
    (foreach x xe
      (entmod (append (entget en) (list (list -3 (list (car x))))))
    )
  ))
 (princ)
)

(defun REMOVE_XDATA ( / ss)
  (princ (strcat "\n" "Select annotations to remove GEOL_DH extended data" ": "));
  (setq ss (ssget '((-4 . "<OR")
                     (-3 ("KAI13*ANN*"))
;тут еще кое-что было
                     (-4 . "OR>")
                   )
               ));setq ss
  (if (and ss (> (sslength ss) 0))
    (progn
      (setq i 0)
      (repeat (sslength ss)
        (DEL_XDATA (ssname ss i) '("KAI13*"))
        (setq i (1+ i))
      );repeat
      (princ (strcat "\n" "Numbers of cleaned objects" ":  " (itoa (sslength ss))))
    )
    (princ (strcat "\n" ="Nothing selected."))  )
);end of *** REMOVE_XDATA ***
;
(defun DEL_XDATA (ent app / entlst tmplst)
  (setq entlst (entget ent app))
  (foreach memb (cdr (assoc -3 entlst))
    (setq tmplst (cons -3 (list (cons (car memb) nil)))
          entlst (subst tmplst (assoc -3 entlst) entlst)
          entlst (entmod entlst)
    );setq
  );foreach
);end of *** DEL_XDATA ***

(defun delregapp  (apname / app del regapps)
  (vl-load-com)

  (setq regapps (vla-get-registeredapplications
          (vla-get-activedocument
            (vlax-get-acad-object))))
  (if (zerop(vla-get-count regapps))
    (exit))
  (setq del nil)
  (vlax-for app  regapps
   
    (if (eq (strcase (vla-get-name app))(strcase apname))
    (progn
    (if    (not (vl-catch-all-error-p
      (vl-catch-all-apply 'vla-delete (list app))))
      (setq del T)))))
         
      (if del
         (alert (strcat "Registered application " "\""apname "\"" " removed")))

  (princ)
  )