Lisp to auto draw Circles on selected objects

[mit]

Hi all,

I'm new to autolisp. Can someone make a lisp to draw auto circles on selected objects. I hope you guys could help me with this problem (Image below)

[jonathann3891]

deleted message

Edited August 17, 2015 by jonathann3891

[jonathann3891]

http://www.cadtutor.net/forum/showthread.php?52530-Drawing-circles-to-all-vertices-of-polyline

 

(defun C:PCIRC (/  coords ent rad)
 (setq rad (getreal"\nEnter radius: "))
           (while (setq ent (entsel "\nSelect polyline (or press Enter to Exit) >> "))
           (setq ent (car ent))
      (setq coords (vl-remove-if 'not
      (mapcar
        (function (lambda(p)
      (if (= 10 (car p))(cdr p))))
        (entget ent))))
      
      (foreach pt coords
 (command "_circle" "_non" pt rad)   
   )
         )
           (princ)
 )

[mit]

Ah ha

Thank you