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