(defun C:TC (/ acadobj docobj msobj sel-txt sel-cer tts	ccs tts-obj ccs-obj len-tt len-cc kk hh	pkk
	     cen rad dist)
 (vl-load-com)
 (setq sel-txt (ssget "X" '((0 . "TEXT")))
       sel-cer (ssget "X" '((0 . "CIRCLE")))
       tts-obj (mapcar 'vlax-ename->vla-object (sel2lst sel-txt))
       ccs-obj (mapcar 'vlax-ename->vla-object (sel2lst sel-cer))
 )
 
 (mapcar '(lambda (x)
           (setq punto(vla-get-insertionpoint x))
	   (vla-put-alignment x acAlignmentMiddleCenter)
	   (setq punto0(vla-get-insertionpoint x))
	   (vla-move x punto0 punto)
	  )
	tts-obj
 )

 (setq len-tt (length tts-obj)
       len-cc (length ccs-obj)
       kk     0
       hh     0
 )

 (while	(< kk len-tt)
  (setq	txt (nth kk tts-obj)
	pkk (vlax-get txt 'TextAlignmentPoint)
  )
  (while (< hh len-cc)
   (setq cer  (nth hh ccs-obj)
	 cen  (vlax-get cer 'Center)
	 rad  (vlax-get cer 'Radius)
	 dist (distance pkk cen)
   )
   (if (<= dist rad)
    (progn
     (vla-move txt (vlax-3d-point pkk) (vlax-3d-point cen))
     (setq hh (1- len-cc))
    )
   )
   (setq hh (1+ hh))
  )		    ;while hh
  (setq	kk (1+ kk)
	hh 0
  )
 )		    ;while kk
)		    ;defun


;;;;;;
(defun SEL2LST (ss / i lst)
 (setq i -1)
 (repeat (sslength ss)
  (setq lst (cons (ssname ss (setq i (1+ i))) lst))
 )
 lst
)

;;; **************************************CENTEXT**********************************************
;;; Funzione per CENTRARE I TESTI NEI PALLINI
;;;
;;; 22/11/2011 - EMISSIONE
;;; 27/11/2011 - MIGLIORATA GESTIONE SELEZIONE CERCHI-TESTI

(defun C:CENTEXT (/ gru grucerchi grutesti index gruc grut listadist listacer)
  (setq	gru	  (ssget '(
			   (-4 . "<OR")
			   (0 . "TEXT")
			   (0 . "CIRCLE")
			   (-4 . "OR>")
			  )
		  )
	grucerchi (ssadd)
	grutesti  (ssadd)
	index	  0
  )

  (repeat (sslength gru)
    (cond
      ((= (cdr (assoc 0 (entget (ssname gru index)))) "CIRCLE")
       (ssadd (ssname gru index) grucerchi)
      )
      ((= (cdr (assoc 0 (entget (ssname gru index)))) "TEXT")
       (ssadd (ssname gru index) grutesti)
      )
    )
    (setq index (1+ index))
  )

  (if (and (= (rem (sslength gru) 2) 0)
	   (= (sslength grucerchi) (sslength grutesti))
      )
    (progn
      (vl-cmdf "_JUSTIFYTEXT" grutesti "" "M")
      (setq gruc (mapcar '(lambda (elem) (list elem (cdr (assoc 10 (entget elem)))))
			 (ssgetli grucerchi)
		 )
	    grut (mapcar '(lambda (elem) (list elem (cdr (assoc 11 (entget elem))) nil))
			 (ssgetli grutesti)
		 )
      )

      (foreach elem gruc
	(setq grut
	       (vl-sort
		 grut
		 '(lambda (x y) (< (distance (cadr elem) (cadr x)) (distance (cadr elem) (cadr y))))
	       )
	)

	(setq index 0
	      segno "x"
	)
	(while segno
	  (if (= (caddr (nth index grut)) nil)
	    (progn
	      (vl-cmdf "_MOVE" (car (nth index grut)) "" (cadr (nth index grut)) (cadr elem))
	      (setq grut  (subst
			    (list (car (nth index grut)) (cadr elem) "x")
			    (nth index grut)
			    grut
			  )
		    segno nil
	      )
	    )
	  )
	  (setq index (1+ index))
	)

      )
    )
  )

  (princ)
)

;; ****************************FUNZIONE SSGETLI*************************************
;;; Funzione che trasforma una lista ssget in una lista normale
(defun ssgetli (selezione / gruppo)
  (if (and selezione
	   (equal (type selezione) 'PICKSET)
      )
    (progn
      (setq gruppo (vl-remove-if
		     '(lambda (elemento) (equal (type elemento) 'LIST))
		     (mapcar 'cadr (ssnamex selezione))
		   )
      )
    )
  )
)

(princ
  "\nCENTEXT (vers.2) - by Terminator"
)
(princ "\nDigitare CENTEXT per lanciare il lisp")
(princ)