(defun c:InkleurenKaart (/ ss i j ent Lagen Laag layer Filter) 
  (setvar "cmdecho" 0)
  (command "_.UNDO" "Begin")
  (setvar "transparencydisplay" 1)
  (setq Lagen '("BEGROEIDTERREINDEEL" "ONBEGROEIDTERREINDEEL" "OVERBRUGGINGSDEEL" 
                "WATERDEEL" "ONDERSTEUNENDWATERDEEL" "WEGDEEL" "ONDERSTEUNENDWEGDEEL" 
                "PAND"
               )
  )
  (setq OnzichtbareLagen '("PerceelNummer" "kadastrale_CODE" "kadastrale_OPPERVLAK" 
                           "PERCEEL"
                          )
  )
  (setq j 0)
  (while (< j (length Lagen)) 
    (setq Laag (nth j Lagen))
    (setq NieuweLaag (strcat "Arcering_" Laag))
    (setq kleur (cdr (assoc 62 (tblsearch "layer" laag))))
    (command "_.layer" "make" NieuweLaag "color" kleur "" "Transparency" 75 "" "")
    (setq Filter (list (cons 0 "LWPOLYLINE") (Cons 8 Laag)))
    (setq ss (ssget "ALL" Filter)) ; Select all polylines
    (if ss 
      (progn 
        (setq i 0)
        (while (< i (sslength ss)) 
          (setq ent (ssname ss i))
          (command "_.HATCH" "Solid" ent "")
          (setq i (1+ i))
        )
        (princ 
          (strcat "\naantal arceringen in de laag " 
                  Laag
                  ": "
                  (vl-princ-to-string i)
          )
        )
      )
      (princ (strcat "\ngeen arceringen in de laag: " Laag))
    )
    (setq j (1+ j))
  )
  (princ)
  (setvar "clayer" "0")
  (setvar "ctab" "Layout1")
  (command "MSPACE")
  (setq j 0)
  (while (< j (length OnzichtbareLagen)) 
    (setq OnzichtbareLaag (nth j OnzichtbareLagen))
    (command "_.vplayer" "freeze" OnzichtbareLaag "current" "")
    (setq j (1+ j))
  )
  (command "_.zoom" "_extents")
  (command "_.zoom" "0.95x")
  (command "PSPACE")
  (command "_.UNDO" "End")
  (princ)
)
InkleurenKaart