TEXT JUSTIFICATION

[sudarsann]

I have many mtext entities in a drawing with different justification. I need to circle the different justification of individual with different colors using autolisp.

thanks a lot.

[ВeekeeCZ · Accepted solution]

Possibly like this

(defun c:MarkMjust ( / s r i d)

  (if (and (setq s (ssget '((0 . "MTEXT"))))
	   (setq r (assoc 40 (entget (ssname s 0))))
	   )
    (repeat (setq i (sslength s))
      (setq d (entget (ssname s (setq i (1- i)))))
      (entmake (list '(0 . "CIRCLE") (assoc 10 d) r (cons 62 (cdr (assoc 71 d)))))))
  (princ)
  )

[sudarsann]

Thanks a lot BeekeeCZ