;; --------------------------------------------------------------------------------------------------- ;; ;; -- OBJEKT_SET_FARBE : Setzen der Objektfarbe. Farbe wird als Integerwert übergeben . Dabei -- ;; ;; -- entsprechen die Werte 0 .. "von Block" und 256 "von Layer" und Werte -- ;; ;; -- dazwischen die Farbe nach Nummer -- ;; ;; -- z.B. (OBJEKT_SET_FARBE (entlast) 256) -- ;; ;; --------------------------------------------------------------------------------------------------- ;; (defun OBJEKT_SET_FARBE ( OBJEKT FARBE /) (if (and (=(type OBJEKT) 'ENAME)(=(type FARBE) 'INT)) ; Parameter o.k. ? (if (and (>= FARBE 0)(<= FARBE 256)) (entmod (list (cons -1 OBJEKT)(cons 62 FARBE))) (progn (princ (strcat "\n Ungültige Farbe - [OBJEKT_SET_FARBE]\n")) (princ) ) ) (progn (princ (strcat "\n Kein Objekt (ENAMETYP) - [OBJEKT_SET_FARBE]\n")) (princ) ) ) ) ;; --------------------------------------------------------------------------------------------------- ;;