lisp layerkleur (OPGELOST)

[Rudy]

Wie kan mij helpen?

Zoek lisp om verscheidene layers met de kleur nr 7 in een keer om te zetten naar kleur nr 255.

Dank bij voorbaat.

[EddyBeerke]

Waarom doe je dat niet in de layermanager?
Als je de kleuren sorteert dan maak je de selectie en geef je het de kleur 255.
Of wil je meer doe dan alleen de kleur veranderen?

[Rudy]

Waarom doe je dat niet in de layermanager?

Op deze manier heb ik het al gedaan.
Dit neemt echter te veel tijd in beslag, ik moet dit doen bij vele tekeningen.
Daarom wou ik de opdracht achter een knopje plaatsen en met 1 druk op de knop
de kleur wijzigen.

[roy_043]

Verscheidene layers met kleur nr. 7...
Op basis van welke eigenschap moeten deze layers worden geselecteerd? Of moeten ALLE layers met deze kleur worden omgezet?

[Rudy]

ALLE layers met deze kleur worden omgezet?

Inderdaad alle layers met deze kleur.

[roy_043]

Zoiets:

Code Selecteer Uitklappen


(defun c:ModifyLayers ( / )
  (vl-load-com)
  (vlax-for la (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
    (if (= (vla-get-color la) 7)
      (vla-put-color la 255)
    )
  )
  (princ)
)


[Rudy]

Dank u Roy
Dit is wat ik wou