(setq pick:obj(car(entsel)));;select insert Block with Xdata (setq pick:obj1(cadr(assoc -3(entget pick:obj '("WCHOLE"))))) (setq txt3(cdr(nth 1 txt2 )));; filter only this text (setq sel:obj (ssget (..what to do..) (setq i 0) (setq obj:qty (sslength sel:obj))