(defun c:test
( / cl clist ncode
)
(setq cl '
("VK" "SK" "TR" "DI" "K" "NB" "DB" "M" "TB" "MU" "vg" "Spik" "FG" "BS" "el" "0")) '(
(("LAYER" "0") ("CODE" "HPS") ("BESCHREIBUNG" "Hjälppunktstation"))
(("LAYER" "0") ("CODE" "PP") ("BESCHREIBUNG" "Polygonpunkt"))
(("LAYER" "0") ("CODE" "FIX") ("BESCHREIBUNG" "Fixpunkt"))
(("LAYER" "0") ("CODE" "HP") ("BESCHREIBUNG" "Hjälppunkt"))
(("LAYER" "M-BEF-BRUNNAR-VA") ("CODE" "NB") ("BESCHREIBUNG" "Nedstigningsbrunn"))
(("LAYER" "M-BEF-BRUNNAR-VA") ("CODE" "TB") ("BESCHREIBUNG" "Tillsynsbrunn"))
(("LAYER" "M-BEF-BRUNNAR-VA") ("CODE" "AV") ("BESCHREIBUNG" "Avstängningsventil"))
(("LAYER" "M-BEF-BRUNNAR-VA") ("CODE" "DB") ("BESCHREIBUNG" "Dagvattenbrunn"))
(("LAYER" "M-BEF-BRUNNAR-VA") ("CODE" "TR") ("BESCHREIBUNG" "Trumma"))
(("LAYER" "M-BEF-BRUNNAR-VA") ("CODE" "BL") ("BESCHREIBUNG" "Brunnslock"))
(("LAYER" "M-BEF-BERGLINJE") ("CODE" "BF") ("BESCHREIBUNG" "Bergfot"))
(("LAYER" "M-BEF-VÄGKANT") ("CODE" "AK") ("BESCHREIBUNG" "Asfaltkant"))
(("LAYER" "M-BEF-VÄGKANT") ("CODE" "VK") ("BESCHREIBUNG" "Vägkant"))
(("LAYER" "0") ("CODE" "M") ("BESCHREIBUNG" "Marknivå"))
(("LAYER" "M-BEF-VÄGKANTSTÖD") ("CODE" "K") ("BESCHREIBUNG" "Kantstöd"))
(("LAYER" "M-BEF-BERGLINJE") ("CODE" "B") ("BESCHREIBUNG" "Berg"))
(("LAYER" "M-BEF-DIKE") ("CODE" "DI") ("BESCHREIBUNG" "Dike"))
(("LAYER" "M-BEF-VÄGKANT") ("CODE" "P") ("BESCHREIBUNG" "Plattyta"))
(("LAYER" "M-BEF-VÄGKANT") ("CODE" "GR") ("BESCHREIBUNG" "Grusyta"))
(("LAYER" "0") ("CODE" "SK") ("BESCHREIBUNG" "Stakkäpp"))
(("LAYER" "0") ("CODE" "ES") ("BESCHREIBUNG" "El-telestolpe"))
(("LAYER" "M-BEF-VÄGRÄCKE") ("CODE" "VR") ("BESCHREIBUNG" "Vägräcke"))
(("LAYER" "M-BEF-STAKET") ("CODE" "SL") ("BESCHREIBUNG" "Stängsel"))
(("LAYER" "0") ("CODE" "TH") ("BESCHREIBUNG" "Tomthörn"))
(("LAYER" "M-BEF-TRAPPA") ("CODE" "TA") ("BESCHREIBUNG" "Trappa"))
(("LAYER" "M-BEF-STAKETM") ("CODE" "ST") ("BESCHREIBUNG" "Staket"))
(("LAYER" "M-BEF-MUR") ("CODE" "MU") ("BESCHREIBUNG" "Mur"))
(("LAYER" "M-BEF-PLANTERING") ("CODE" "VE") ("BESCHREIBUNG" "Vegetationsgräns"))
(("LAYER" "0") ("CODE" "T") ("BESCHREIBUNG" "Träd"))
(("LAYER" "0") ("CODE" "BU") ("BESCHREIBUNG" "Buskar"))
(("LAYER" "M-BEF-MUR") ("CODE" "MU") ("BESCHREIBUNG" "Mur"))
(("LAYER" "M-BEF-PLANTERING") ("CODE" "VE"))
)
)
)
)
)
)
)