AutoCAD lisp routine for changing selectable objects to color red 1

;;;; CHANGE-ENTITIES-TO-COLOR-RED-1.LSP - AutoCAD lisp routine voor het veranderen van te selecteren objecten naar color red 1
;;;; Versie 1.0
;;;; Start de AutoCAD-routine met AutoCAD commando: ch2cr1

(defun C:CH2CR1 ( / ss1 pt1 pt2)
(graphscr)
(setq pt1 '(0.0 0.0 0.0))
(setq pt2 '(0.0 0.0 0.0))
(setvar "cmdecho" 0)
(prompt "Selecteer objecten om te veranderen naar color byblock:")
(setq ss1(ssget))
(command "move" ss1 "" pt1 "" pt2)
(command "change" ss1 "" "P" "COLOR" "1" "")
(prompt "\nDe veranderen-kleur-routine opdracht is beëindigd, er zijn geen objecten meer geselecteerd. Start de routine opnieuw met AutoCAD commando: ch2cr1")
(princ)
)
(princ "\nCHANGE-ENTITIES-TO-COLOR-RED-1.LSP - AutoCAD lisp routine voor het veranderen van te selecteren objecten naar color red 1.")
(princ "\nStart de veranderen-laag-routine met AutoCAD commando: ch2cr1")
(princ)