Lisp for draw circle on particular text

[Yuvi0967]

Someone please provide AutoCAD lisp for.. i need circle on particular text in drawing. Example: i have so many text like "COMBO" i need circle on them at a time by using lisp..

[Tharwat]

Hi,

1- Is the text string "COMBO" all the time or you would like the program to ask the user to specify a text string to search for it?
2- Are you are referring to single text or Mtext?
3- Is there any specific layer that you would like the circle(s) to reside on?
4- Is there any specific Diameter of circle(s) to go with or the length of each text to be the Diameter of circles?

[Yuvi0967]

the COMBO text in particular block reference and i need circle on them.. thats ok it should be in any layer any diameter(but it should appear). Just i want circle on COMBO..

thanks for my concern

[Tharwat]

Try this routine and let me know.

(defun c:Test ( / sel int ins ent get)
  ;; Tharwat - Date: 27.Sep.2017	;;
  (if (setq int -1 sel (ssget '((0 . "INSERT") (66 . 1))))
    (while (setq ent (ssname sel (setq int (1+ int))))
      (setq ins (assoc 10 (entget ent)))
      (while (= (cdr (assoc 0 (setq get (entget (setq ent (entnext ent)))))) "ATTRIB")
        (if (wcmatch (strcase (cdr (assoc 1 get))) "*COMBO*")
          (entmake (list '(0 . "CIRCLE") ins '(40 . 14.0)))
          )
        )
      )
    )
  (princ)
  )

[Yuvi0967]

YA THIS GREAT. but i have so many combo blocks. i need circles on them at a time.