Is there any lisp combine multi three different coloured text in one text

[ibrahelba]

Is there any lisp combine the three nearest text in one mtext

[ibrahelba]

I found lisp by lee mac to collect the nearsest text to near point 

;; Text 2 Point  -  Lee Mac 2012
;; Prompts for a selection of Text and Point entities and moves
;; each Text entity to the nearest (2D distance) Point entity in the set.
;;
;; Retains existing Text elevation.
(defun c:txt2pt ( / _textinsertion di1 di2 dxf ent inc ins lst mpt pnt sel txt )
   (defun _textinsertion ( elist )
       (if
           (and
               (zerop (cdr (assoc 72 elist)))
               (zerop (cdr (assoc 73 elist)))
           )
           (cdr (assoc 10 elist))
           (cdr (assoc 11 elist))
       )
   )
   (if (setq sel (ssget "_:L" '((0 . "POINT,TEXT"))))
       (progn
           (repeat (setq inc (sslength sel))
               (setq ent (entget (ssname sel (setq inc (1- inc)))))
               (if (eq "POINT" (cdr (assoc 0 ent)))
                   (setq lst (cons (cdr (assoc 10 ent)) lst))
                   (setq txt (cons (cons (_textinsertion ent) ent) txt))
               )
           )
           (foreach ent txt
               (setq ins (list (caar ent) (cadar ent)))
               (if (setq pnt (vl-some '(lambda ( pnt ) (equal ins (list (car pnt) (cadr pnt)) 1e-8)) lst))
                   (setq lst (vl-remove pnt lst))
                   (progn
                       (setq di1 (distance ins (list (caar lst) (cadar lst)))
                             mpt (car lst)
                       )
                       (foreach pnt (cdr lst)
                           (if (< (setq di2 (distance ins (list (car pnt) (cadr pnt)))) di1)
                               (setq di1 di2
                                     mpt pnt
                               )
                           )
                       )
                       (setq pnt (list (car mpt) (cadr mpt) (caddar ent))
                             dxf (cdr ent)
                             dxf (subst (cons 10 pnt) (assoc 10 dxf) dxf)
                             dxf (subst (cons 11 pnt) (assoc 11 dxf) dxf)
                       )
                       (entmod dxf)
                       (setq lst (vl-remove mpt lst))
                   )
               )
           )
       )
   )
   (princ)
)
(vl-load-com) (princ)

 

[BIGAL]

There has been a few convert text to mtext lately maybe at Forums/autodesk. Ok for your situation if the text is on 3 layers no dwg supplied, you can get say the yellow text and its angle, make a little 4 point box based on this text, you use this to find the other 2 text and based on their layer name make a new Mtext.

 

You need to post a sample dwg, no good guessing text size etc.