AnotherSteve Posted September 2, 2015 Share Posted September 2, 2015 Hi, I have a drawing with lots of circles (all different sizes). I need to shrink all the circles by .1mm. I need an 'ugway' to help my autocad kung fu. Quote Link to comment Share on other sites More sharing options...
BIGAL Posted September 2, 2015 Share Posted September 2, 2015 Here is a method (defun c:test ( / ss x) (setq ss (ssget (list (cons 0 "Circle")) )) (setq len (sslength ss)) (setq x -1) (Repeat len (setq obj (vlax-ename->vla-object (ssname ss (setq x (+ x 1))))) (setq dia (- (vla-get-diameter obj) 0.1)) (vla-put-diameter obj dia) ) ) (c:test) 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.