(defun c:tt (/ ss ssl e att obj ms)
  (if (setq ss (ssget '((66 . 1))))
    (progn
      (setq ssl	(sslength ss)
	    ms	(vla-get-modelspace
		  (vla-get-activedocument (vlax-get-acad-object))
		)
      )
      (while (> ssl 0)
	(setq e (ssname ss (setq ssl (1- ssl))))
	(setq att (car (vlax-invoke
			 (setq obj (vlax-ename->vla-object e))
			 'getattributes
		       )
		  )
	)
	(vla-addtext
	  ms
	  (vla-get-textstring att)
	  (vla-get-insertionpoint obj)
	  (vla-get-height att)
	)
      )
      (command ".erase" ss "")
    )
  )
  (princ)
)