(defun C:sel_text_by_text (/ list-txt nabor)
  (setq nabor (ssget "_X" (list '(6 . "DASHED2")))); '(0 . "MLINE")'(1 . "Архив*") '(8 . "Здания,Здания_старые"))))
  (if nabor
    (progn
      (setq n 0)
      (princ (sslength nabor))
;;;      (repeat (sslength nabor)
;;;	(vla-put-Linetype  (vlax-ename->vla-object(ssname nabor n)) "ЛИНИЯ_2-1")
;;;	(setq n (1+ n))
;;;	)
;;;      (setq list-txt (convert_ss_to_list nabor))
;;;      (foreach x list-txt
;;;	(terpri)
;;;	(princ(cdr(assoc 1 (entget x))))
;;;	)
      )
    (princ "No")
    )
  (princ)
  )