(defun c:ts (/ so pt os ls ls1 ls2 lss) (vl-load-com)
(defun *error* (msg) (if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*")) (princ (strcat "\nError: " msg))))
(setq so (ssget '((0 . "text"))) pt (getpoint "\nReference point:"))
(vlax-for os (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
(setq ls1 '() ls1 (cons (vla-get-textstring os) ls1) ls1 (cons os ls1) ls (cons ls1 ls) ls2 (cons (vla-get-height os) ls2)))
(setq ls (vl-sort ls '(lambda (x1 x2) (< (cadr x1) (cadr x2)))))
(vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
(foreach lss ls
(vla-move (car lss) (vlax-3d-point (vlax-safearray->list (vlax-variant-value (vla-get-insertionpoint (car lss))))) (vlax-3d-point pt))
(setq pt (polar pt (+ pi (/ pi 2)) (* 2 (apply 'max ls2)))))
(vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
(princ))