;;http://www.xdcad.net/forum/showthread.php?s=&threadid=562316
(defun c:tt (/ ss ssl i obj p1 p2 s1 sl m l ipts pts p)
  (princ "\nselect circle text ....")
  (if (setq ss (ssget '((0 . "circle,text"))))
    (progn
      (if (< (getvar "osmode") 13684)
	(setvar "osmode" (+ (getvar "osmode") 13684))
      )
      (command ".undo" "be")
      (setq ssl	(sslength ss)
	    i	-1
      )
      (repeat ssl
	(setq e	  (ssname ss (setq i (1+ i)))
	      obj (vlax-ename->vla-object e)
	)
	(vla-getboundingbox obj 'bp 'up)
	(setq p1 (safearray-value bp)
	      p2 (safearray-value up)
	)
	(if (setq s1 (ssget "_c" p1 p2 '((0 . "line,lwpolyline"))))
	  (progn
	    (setq sl (sslength s1)
		  m  -1
	    )
	    (command ".trim" (list e p1) "")
	    (repeat sl
	      (setq l	 (ssname s1 (setq m (1+ m)))
		    ipts (safearray-value
			   (variant-value
			     (vla-intersectwith
			       obj
			       (vlax-ename->vla-object l)
			       0
			     )
			   )
			 )
	      )
	      (if ipts
		(progn (while ipts
			 (setq pts  (cons
				      (list (car ipts) (cadr ipts) (caddr ipts))
				      pts
				    )
			       ipts (cdddr ipts)
			 )
		       )
		       (setq p	 (mapcar '(lambda (x) (/ x (length pts)))
					 (apply 'mapcar (cons '+ pts))
				 )
			     pts nil
		       )
		       (command (list l p))
		)
	      )
	    )
	    (command "")
	  )
	)
      )
      (command ".undo" "end")
    )
  )
  (princ)
)