objenin birini seç sağ klik select similar tıkladığında diğerlerinide seçer, seçmezse hepsini seç bir şekilde.quick select vs..
.sonra properties den (ctrl+1 ile de açılır ) geometry bölümünden diameter,lerini değiştir.
;|***************************************************************************|;
;| ChCrr: Change CircLe Radius. |;
;| Seçilen Gurup içindeki belirlenen Radius değerine sahip Çember çaplarını |;
;| seçilecek başka bir çemberin Çapına çevirir. |;
;|---------------------------------------------------------------------------|;
(defun C:ChCrr (/ chm p ocr ncr n e)
(if (setq chm 0 p (ssget (list (cons 0 "CircLe"))))
(progn (if (not (setq ocr (getreal "\nOld radius: ")))
(setq ocr (cdr (assoc 40 (entget (car (entsel "\npick an object")))))))
(if (not (setq ncr (getreal "\nNew radius: ")))
(setq ncr (cdr (assoc 40 (entget (car (entsel "\npick an object")))))))
(setq n (sslength p))
(while (not (minusp (setq n (1- n)))) (setq e (entget (ssname p n)))
(if (= ocr (cdr (assoc 40 e)))
(setq e (subst (cons 40 ncr) (assoc 40 e) e) chm (1+ chm)
e (entmod e) e (entupd (cdr (assoc -1 e))))))))
(princ (strcat "\nChanged " (itoa chm) " Circile(s)")))
Eski ve yeni çember yarıçapları doğrudan klavyeden sayısal değer olarak girilebileceği gibi, enter ile geçildiğinde, seçilen çemberin yarıçapı alınabilir. Bu yarıçapçap belirleme işlemi, mevcut çember için de, hedef yarıçapçap için de kullanılır. Mevcut yarıçap belirlendikten sonra, istenen yöntemle özgürce seçim yapılabilir. window veya crossing ile seçilen objeler arasından yalnızca Circle olan ve belirlenen yarıçaptaki çemberler seçilecektir.
