mit Posted August 17, 2015 Share Posted August 17, 2015 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) Quote Link to comment Share on other sites More sharing options...
jonathann3891 Posted August 17, 2015 Share Posted August 17, 2015 (edited) deleted message Edited August 17, 2015 by jonathann3891 Quote Link to comment Share on other sites More sharing options...
jonathann3891 Posted August 17, 2015 Share Posted August 17, 2015 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) ) Quote Link to comment Share on other sites More sharing options...
mit Posted August 17, 2015 Author Share Posted August 17, 2015 Ah ha Thank you Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.