Veränderung der Schicht

[Angelo2449]

Hallo alle,
Ich möchte einen Befehl realisieren, der den Plan auf alle "kreisförmigen" Elemente eines Designs ändert.
wenn möglich möchte ich den Befehl, die Kreise zu beeinflussen, die Teil einer bestimmten Schicht sind"
meine aktuelle Kenntnis der Lispe empfehlen die Hilfe einer Art willing!
Danke.

 

[rpor66]

(defun c:chgcirclelayer(/sel layerdest layer)
(setq layerdest (getstring "\nlayer di destinazione: "))
(setq Schicht (getstring "\nlayer: "))
(wenn (= Schicht "")
(Setq-Schicht "*")
)
(Befehl "_layer" "_m" Layerdest ")
(setq sel (ssget "x" (list (cons 0 "circle") (cons 8 layer)))
(falls (/= sel nil)
(Befehl "_change" sel "" "_pr" "_la" Layerdest ")
)
)

Zielschicht: Wenn es keine Bedeutung gibt, erzeugt die Routine sie unabhängig.
Schicht: Sie können auch mehrere Schichten gleichzeitig anzeigen, sie einfach vom Komma trennen; z.B.: Wände, Wände

 

[Angelo2449]

Danke rpor66, perfekt wie immer!
wenn Sie anstelle des Plans die Größe oder den Durchmesser ändern möchten?
Danke.

 

[rpor66]

(Defun c:chgdiamcircle(/ sel c n)
(setq diam (getreal "\ndiametro:")
(setq sel (get "x" (list (cons 0 "circle"))))
(falls (/= sel nil)
(Progn)
(Setq c 0)
(Repeat)
(ssname sel c)
(vlax-put-property (vlax-ename->vla-object n) 'radius (/diam 2.0))
(Setq c (1+c)
)
)
)
)

 

[lattu]

dieses Problem konnte schnell auch mit Isolay gelöst werden und _.qselect (schnelle Auswahl)