cambiare il layer

[Angelo2449]

Hello everyone,
I would like to realize a command that changes the plan to all "circle" elements of a design.
if possible I would like the command to affect the circles that are part of a certain layer"
my current knowledge of the lisp recommend the help of a kind willing!
Thank you.

 

[rpor66]

(defun c:chgcirclelayer(/ sel layerdest layer)
    (setq layerdest (getstring "\nlayer di destinazione: "))
    (setq layer (getstring "\nlayer: "))
    (if (= layer "")
        (setq layer "*")
    )
    (command "_layer" "_m" layerdest "")   
    (setq sel (ssget "x" (list (cons 0 "circle") (cons 8 layer))))
    (if (/= sel nil)
        (command "_change" sel "" "_pr" "_la" layerdest "")
    )   
)

Target layer: if there is no importance, the routine creates it regardless.
layer: you can also indicate multiple layers at the same time, just separate them from the comma; e.g.: walls, walls

 

[Angelo2449]

thanks rpor66, perfect as always!
if instead of the plan, you want to change the size or the diameter?
Thank you.

 

[rpor66]

(defun c:chgdiamcircle(/ sel c n)
(setq diam (getreal "\ndiametro:")
(setq sel (ssget "x" (list (cons 0 "circle"))))
(if (/= sel nil)
(progn)
(setq c 0)
(repeat (sslength sel)
(sssname sel c)
(vlax-put-property (vlax-ename->vla-object n) 'radius (/diam 2.0))
(setq c (1+ c))
)
)
)
)

 

[lattu]

this problem could be solved quickly even with isolay and _.qselect (fast selection)