Multiple circle array

[AnotherSteve]

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.

 

[BIGAL]

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)