(defun c:chg_col_all+ (/ farbe1 farbe2)
  (vl-load-com)
  (if (and
	  (princ "\nGrundfarbe angeben: ")
          (setq farbe1 (acad_colordlg 0 t))
	  (princ (rtos farbe1 2 0))
	  (princ "\nSolid-Schraffurfarbe angeben: ")
          (setq farbe2 (acad_colordlg 0 t))
	  (princ (rtos farbe2 2 0))
      )
      (vlax-for block
	                  (vla-get-blocks
	                    (vla-get-activedocument (vlax-get-acad-object))
	                    ) ;_ end of vla-get-blocks
	    (vlax-for obj block
	      (if (/= (substr
	                (vl-list->string
	                  (reverse (vl-string->list (vla-get-objectname obj)))
	                  ) ;_ end of vl-list->string
	                1
	                9
	                ) ;_ end of substr
	              "noisnemiD"
	              ) ;_ end of /=
	        (progn
	          (if (and (vlax-property-available-p obj "hasattributes")
	                   (= (vla-get-hasattributes obj) :vlax-true)
	                   ) ;_ end of and
	            (mapcar
	              '(lambda (att)
	                 (vla-put-color att farbe1)
	                 ) ;_ end of lambda
	              (vlax-safearray->list
	                (vlax-variant-value
	                  (vla-getattributes obj)
	                  ) ;_ end of vlax-variant-value
	                ) ;_ end of vlax-safearray->list
	              ) ;_ end of mapcar
	            ) ;_ end of if
	          (if (and
	                (= "ACDBHATCH" (strcase (vla-get-ObjectName obj)))
	                (= "SOLID" (strcase (vla-get-PatternName obj)))
	                ) ;_ end of and
	            (vla-put-color obj farbe2)
	            (vla-put-color obj farbe1)
	            ) ;_ end of if
	          ) ;_ end of progn
	        ) ;_ end of if
	      ) ;_ end of vlax-for
	  ) ;_ end of vlax-for
          (princ "\nAbbruch durch Benutzer")
  );_if
  (command "_.REGEN")
  (princ)
 ) ;_ end of defun
;|«Visual LISP© Format Options»
(72 2 40 1 T "end of " 60 9 0 0 0 nil T nil T)
;*** KEINEN Text unterhalb des Kommentars hinzufügen! ***|;