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.
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?
Citaat van: EddyBeerke op do 28 06 2012, 13:04:51
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.
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?
Citaat van: roy_043 op do 28 06 2012, 15:48:12
ALLE layers met deze kleur worden omgezet?
Inderdaad alle layers met deze kleur.
Zoiets:
(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)
)
Dank u Roy :D
Dit is wat ik wou :vreegoe: