[->Status / Info]
  [$(eval,"  Zeit: "$(edtime,$(getvar,date),HH:MM))]
  [$(eval," Datum: "$(edtime,$(getvar,date),D.M.YYYY))]
  [$(eval,"Z-Name: "$(getvar,dwgname)".DWG")]
  [--]
  [$(eval,"Sicherung alle "$(getvar,savetime)"  min")]^c^c_SAVETIME
  [--]
  [$(eval,"Konstruktionspkt: "$(if,$(=,$(getvar,blipmode),1),$(eval,"JA"),$(eval,"NEIN")))]'_setvar BLIPMODE ^p(- 1 (getvar "BLIPMODE"))
  [$(eval,"Text mitspiegeln: "$(if,$(=,$(getvar,mirrtext),1),$(eval,"JA"),$(eval,"NEIN")))]'_setvar MIRRTEXT ^p(- 1 (getvar "MIRRTEXT"))
  [$(eval,"Obj. ausleuchten: "$(if,$(=,$(getvar,highlight),1),$(eval,"JA"),$(eval,"NEIN")))]'_setvar HIGHLIGHT ^p(- 1 (getvar "HIGHLIGHT"))
  [$(eval,"   Solids fllen: "$(if,$(=,$(getvar,fillmode),1),$(eval,"JA"),$(eval,"NEIN")))]'_setvar FILLMODE ^p(- 1 (getvar "FILLMODE"))
  [$(eval,"       3D Kanten: "$(if,$(=,$(getvar,splframe),1),$(eval,"SICHTBAR"),$(eval,"UNSICHTB.")))]'_setvar SPLFRAME ^p(- 1 (getvar "SPLFRAME"))
  [$(eval,"        Tilemode: "$(if,$(=,$(getvar,tilemode),1),$(eval,"EIN"),$(eval,"AUS")))]'_setvar tilemode ^p(- 1 (getvar "tilemode"))
  [--]
  [$(eval,"           Farbe: "$(getvar,cecolor))]^c^c_CECOLOR
  [$(eval,"       Linientyp: "$(getvar,celtype))]^c^c_CELTYPE
  [$(eval,"        Textstil: "$(getvar,textstyle))]^c^c_TEXTSTYLE
  [$(eval,"       Textgr”áe: "$(getvar,textsize))]^c^c_TEXTSIZE
  [$(eval," Schraffurmuster: "$(getvar,hpname))]^c^c_HPNAME
  [$(eval,"Punktdarstellung: "$(getvar,pdmode))]^c^c_PDMODE
  [$(eval,"     Punkt-Gr”áe: "$(getvar,pdsize))]^c^c_PDSIZE
  [$(eval,"  Abrundenradius: "$(getvar,filletrad))]^c^c_FILLETRAD
  [$(eval,"     Fasenbreite: "$(getvar,chamferb))]^c^c_CHAMFERB
  [$(eval,"   Limitenfaktor: "$(getvar,ltscale))]^c^c_LTSCALE
  [--]
  [$(eval," 3D-Netzdichte 1: "$(getvar,surftab1))]^c^c_SURFTAB1
  [$(eval," 3D-Netzdichte 2: "$(getvar,surftab2))]^c^c_SURFTAB2
  [$(eval,"        Erhebung: "$(getvar,elevation))]^c^c_ELEVATION
  [$(eval,"      Objekth”he: "$(getvar,thickness))]^c^c_THICKNESS
  [$(eval,"      Shade-Edge: "$(getvar,shadedge))]^c^c_SHADEDGE
  [<-$(eval,"       Shade-Dif: "$(getvar,shadedif))]^c^c_SHADEDIF
[->Befehle]

***POP2
[HAASCAD]
[--]
[->Grundriá]
  [->Darstellung]
    [nur 2D  ]^c^c^p(progn(setvar "USERI1" 2)(prin1))
    [nur 3D  ]^c^c^p(progn(setvar "USERI1" 3)(prin1))
    [<-2D + 3D (default)]^c^c^P(progn(setvar "USERI1" 1)(prin1))
  [--]
  [->Mauerwerk]
    [Auáenwand            ]^C^C^P(progn (setq DO_ARGS '("wall" "c:wall" "Aussen" "Neu")) (prin1)) DO_FAME12
    [Auáenwand anschlieáen]^C^C^P(progn (setq DO_ARGS '("wall" "c:wall" "Aussen" "Alt")) (prin1)) DO_FAME12
    [Innenwand            ]^C^C^P(progn (setq DO_ARGS '("wall" "c:wall" "Innen" "Neu")) (prin1)) DO_FAME12
    [Innenwand anschlieáen]^C^C^P(progn (setq DO_ARGS '("wall" "c:wall" "Innen" "Alt")) (prin1)) DO_FAME12
    [Browand/Rasterwand  ]^C^C^P(progn (setq DO_ARGS '("cg6107_0" "c:mwb" "cg6107_0.vor")) (prin1)) DO_FAME12
    [--]
    [Aussparungen         ]^C^C^P(progn (setq DO_ARGS '("cg6206_0" "c:asp" "cg6206.vor" "cg6206.vor")) (prin1)) DO_FAME12
    [Wandausbruch         ]^p^c^c(cond ((null c:ausb) (load (strcat hc_lsppath "HAAS822"))) ((prin1)));ausb
    [Sttzen              ]^C^C^P(progn (setq DO_ARGS '("cg6104_0" "c:stu" "cg6104.vor" "cg6104.vor")) (prin1)) DO_FAME12
    [Pfeiler und S„ulen   ]$i=grund_stuez $i=*
    [--]
    [Innenwand l”schen    ]^C^C^P(progn (setq DO_ARGS '("cg6108_0" "c:cg6108" "dummy")) (prin1)) DO_FAME12
    [Wand heilen          ]^p^c^c(cond ((null c:heile) (load (strcat hc_lsppath "HAAS821"))) ((prin1)));heile
    [--]
    [Plinie --> Wand      ]^C^C^P(progn (if (not c:gp) (progn (load (strcat Ppath "WPOLY"))+
  (xload (strcat Ppath "cg6100_0")) )) (prin1)) gp
    [<-Linie  --> Fl„che    ]^C^C^P(progn (setq DO_ARGS '("c:l2f" "cg6103_0" "dummy")) (prin1)) DO_FAME
  [->Fenster]
    [Konfigurieren        ]^C^C^P(progn (setq DO_ARGS '("cg6214_0" "c:handle_cfg_cg6214" "cg6201.vor" "cg6205.vor" "cg6210.vor" "cg6211.vor")) (prin1)) DO_FAME12
    [--]
    [Standard             ]^C^C^P(progn (setq DO_ARGS '("c:oms" "cg6201_0" "cg6201" "c:fen" "cg6205_0" "cg6205")) (prin1)) DO_FAME
    [Fr runde W„nde      ]^C^C^P(progn (setq DO_ARGS '("window" "c:window")) (prin1)) DO_FAME12
    [™ffnung „ndern       ]^C^C^P(progn (setq DO_ARGS '("cg6213_0" "c:cg6213" "dummy")) (prin1)) DO_FAME12
    [<-™ffnung entfernen  ]^C^C^P(progn (setq DO_ARGS '("cg6105_0" "c:obck" "dummy")) (prin1)) DO_FAME12
  [->Tren]
    [Konfigurieren        ]^C^C^P(progn (setq DO_ARGS '("cg6214_0" "c:handle_cfg_cg6214" "cg6201_t.vor" "cg6205.vor" "cg6210.vor" "cg6211.vor")) (prin1)) DO_FAME12
    [--]
    [Standard             ]^C^C^P(progn (setq DO_ARGS '("c:oms" "cg6201_0" "cg6201_t" "c:tuer" "cg6210_0" "cg6210")) (prin1)) DO_FAME
    [Schiebetr           ]^C^C^P(progn (setq DO_ARGS '("c:oms" "cg6201_0" "cg6201_t" "c:schtuer" "cg6211_0" "cg6211")) (prin1)) DO_FAME
    [Transchlag „ndern   ]^C^C^P(progn (setq DO_ARGS '("cg6212_0" "c:cg6212" "dummy")) (prin1)) DO_FAME12
    [™ffnung „ndern       ]^C^C^P(progn (setq DO_ARGS '("cg6213_0" "c:cg6213" "dummy")) (prin1)) DO_FAME12
    [<-™ffnung entfernen  ]^C^C^P(progn (setq DO_ARGS '("cg6105_0" "c:obck" "dummy")) (prin1)) DO_FAME12
  [--]
  [->Treppen]
    [Konfigurieren        ]^C^C^P(progn (setq DO_ARGS '("ck31_130" "c:handle_dbox_ck31_130" "ck31_130.dcl")) (prin1)) DO_FAME12
    [--]
    [Gerade               ]^C^C^P(progn (setq DO_ARGS '("ck4000_0" "c:gpt" "ck4000_0.vor")) (prin1)) DO_FAME12
    [1/4 gewendelt        ]^C^C^P(progn (setq DO_ARGS '("ck4001_0" "c:vt" "ck4001_0.vor")) (prin1)) DO_FAME12
    [1/2 gewendelt        ]^C^C^P(progn (setq DO_ARGS '("ck4002_0" "c:ht" "ck4002_0.vor")) (prin1)) DO_FAME12
    [Gewendelt            ]^C^C^P(progn (setq DO_ARGS '("ck4003_0" "c:wt" "ck4003_0.vor")) (prin1)) DO_FAME12
    [Podest 1/2 Richtungsw.]^C^C^P(progn (setq DO_ARGS '("ck4005_0" "c:ptv" "ck4005_0.vor")) (prin1)) DO_FAME12
    [<-Podest mit Richtungsw.]^C^C^P(progn (setq DO_ARGS '("ck4004_0" "c:pth" "ck4004_0.vor")) (prin1)) DO_FAME12
  [->D„cher]
    [Konfigurieren        ]^C^C^P(progn (setq DO_ARGS '("ck31_140" "c:handle_dbox_ck31_140")) (prin1)) DO_FAME12
    [--]
    [Flachdach            ]^C^C^P(progn (setq DO_ARGS '("ck2001_0" "c:fd" "ck2001_0.vor")) (prin1)) DO_FAME12
    [Satteldach           ]^C^C^P(progn (setq DO_ARGS '("ck2000_0" "c:sd" "ck2000_0.vor")) (prin1)) DO_FAME12
    [Walmdach             ]^C^C^P(progn (setq DO_ARGS '("ck2002_0" "c:wd" "ck2002_0.vor")) (prin1)) DO_FAME12
    [Krueppelwalmdach     ]^C^C^P(progn (setq DO_ARGS '("ck2004_0" "c:kw" "ck2004_0.vor")) (prin1)) DO_FAME12
    [<-Pyramidendach        ]^C^C^P(progn (setq DO_ARGS '("ck2003_0" "c:pyra" "ck2003_0.vor")) (prin1)) DO_FAME12
  [->Bemaáung]
    [Konfiguration ]^C^C^P(progn (setq DO_ARGS '("ck31_80" "c:handle_cfg_mec")) (prin1)) DO_FAME12
    [--]
    [Eingabe       ]^C^C^P(progn (setq DO_ARGS '("ck31_80" "c:input_mec")) (prin1)) DO_FAME12
    [Update        ]^C^C^P(progn (setq DO_ARGS '("ck31_80" "c:update_mec")) (prin1)) DO_FAME12
    [Gesamtupdate  ]^C^C^P(progn (setq DO_ARGS '("ck31_80" "c:update_all_mec")) (prin1)) DO_FAME12
    [Masspunkte    ]^C^C^P(progn (setq DO_ARGS '("ck31_80" "c:add_mecpoints_mec")) (prin1)) DO_FAME12
    [Kreuzen       ]^C^C^P(progn (setq DO_ARGS '("ck31_80" "c:crossing_mec")) (prin1)) DO_FAME12
    [Skalieren     ]^C^C^P(progn (setq DO_ARGS '("ck31_80" "c:scale_mec")) (prin1)) DO_FAME12
    [Wand bemaáen  ]^C^C^P(progn (setq DO_ARGS '("ck31_80" "c:auto_walls_mec")) (prin1)) DO_FAME12
    [--]
    [Fixieren      ]^C^C^P(progn (setq DO_ARGS '("ck31_80" "c:fix_numbers_mec")) (prin1)) DO_FAME12
    [L”sen         ]^C^C^P(progn (setq DO_ARGS '("ck31_80" "c:unfix_numbers_mec")) (prin1)) DO_FAME12
    [--]
    [<-L”schen     ]^C^C^P(progn (setq DO_ARGS '("ck31_80" "c:erase_mec")) (prin1)) DO_FAME12
  [->Schnitte]
    [H”henschnitt     ]^C^C^P(progn (setq DO_ARGS '("ck3012_0" "c:ck3012_4" "ck3012_4.vor")) (prin1)) DO_FAME12
    [Dachverschneidung]^C^C^P(progn (setq DO_ARGS '("ck3012_0" "c:ck3012_5" "ck3012_5.vor")) (prin1)) DO_FAME12
    [Schnitt gerade   ]^C^C^P(progn (setq DO_ARGS '("ck3012_0" "c:ck3012_3" "ck3012_3.vor")) (prin1)) DO_FAME12
    [<-Schnitt versetzt ]^C^C^P(progn (setq DO_ARGS '("ck3012_0" "c:ck3012_6" "ck3012_6.vor")) (prin1)) DO_FAME12
  [<-Schraffur ]^C^C^P(progn (setq DO_ARGS '("ck31_70" "c:hatch_update" "ck31_70.tab")) (prin1)) DO_FAME12
[->Innenarchitektur]
  [Utensilien...      ]$i=inn_ute1 $i=*
  [EDV-Ger„te...      ]$i=inn_pcmo $i=*
  [Bilder...          ]$i=inn_bild $i=*
  [--]
  [Wohnen/Schlafen... ]$i=famea_1 $i=*
  [Kche/Bad/WC...    ]$i=famea_2 $i=*
  [--]
  [Heizk”rper...     ]$i=inn_heiz $i=*
  [B”den, Decken...   ]$i=inn_bode $i=*
  [--]
  [Jalousien          ]^p^c^c(progn (load (strcat hc_lsppath "haas300")) (c:haas300))
  [Lamellen           ]^p^c^c(progn (load (strcat hc_lsppath "haas301")) (c:haas301))
  [--]
  [Personen...        ]$i=famea_3 $i=*
  [Fahrzeuge...       ]$i=famea_5 $i=*
  [<-B„ume...           ]$i=famea_4 $i=*
[->Anzeige (Layerkontrolle)]
  [->Artikelnummern            03]
    [aus         ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 10 "ARTNR")
    [ein         ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 11 "ARTNR")
    [--]
    [sperren     ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 14 "ARTNR")
    [<-entsperren]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 15 "ARTNR")
  [->Symbole                   02]
    [aus         ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 10 "SYMBOL")
    [ein         ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 11 "SYMBOL")
    [--]
    [sperren     ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 14 "SYMBOL")
    [<-entsperren]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 15 "SYMBOL")
  [->Fangpunkte                07]
    [aus         ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 10 "FANGPUNKT")
    [ein         ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 11 "FANGPUNKT")
    [--]
    [sperren     ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 14 "FANGPUNKT")
    [<-entsperren]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 15 "FANGPUNKT")
  [->Bewegungs-/Arbeitsfl„chen 04]
    [aus         ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 10 "BEWEGFL")
    [ein         ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 11 "BEWEGFL")
    [--]
    [sperren     ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 14 "BEWEGFL")
    [<-entsperren]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 15 "BEWEGFL")
  [--]
  [->Innenarchitektur]
    [aus         ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 12 "INNENARCH")
    [ein         ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 13 "INNENARCH")
    [--]
    [sperren     ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 14 "INNENARCH")
    [<-entsperren]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 15 "INNENARCH")
  [->Bemaáung]
    [aus         ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 12 "BEMASSUNG")
    [ein         ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 13 "BEMASSUNG")
    [--]
    [sperren     ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 14 "BEMASSUNG")
    [<-entsperren]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 15 "BEMASSUNG")
  [->Raumbuch]
    [aus         ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 12 "RAUMBUCH")
    [ein         ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 13 "RAUMBUCH")
    [--]
    [sperren     ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 14 "RAUMBUCH")
    [<-entsperren]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 15 "RAUMBUCH")
  [->Positionsnummern]
    [aus         ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 12 "POSNR")
    [ein         ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 13 "POSNR")
    [--]
    [sperren     ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 14 "POSNR")
    [<-entsperren]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 15 "POSNR")
  [--]
  [->2D-Darstellung]
    [aus         ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 12 "2D")
    [ein         ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 13 "2D")
    [--]
    [sperren     ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 14 "2D")
    [<-entsperren]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 15 "2D")
  [->3D-Darstellung]
    [aus         ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 12 "3D")
    [ein         ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 13 "3D")
    [--]
    [sperren     ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 14 "3D")
    [<-entsperren]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 15 "3D")
  [2D ein <=> 3D aus]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 12 "3D");(hcly_main 13 "2D")
  [3D ein <=> 2D aus]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 12 "2D");(hcly_main 13 "3D")
  [--]
  [<-*** ALLES  EIN *** ]^c^c._layer _th *;_on *;_fr FRZ_AME*;;
[->Auswertung]
  [Stckliste generieren]^p^c^c(cond ((null c:ca_mo_02) (load"/garb_sys/prg/ca_mo_02")) ((prin1)));(c:ca_mo_02 "PF");
  [--]
  [HPOS-UPOS bilden     ]^p^c^c(cond ((null c:ca_mo_01) (load"/garb_sys/prg/ca_mo_01")) ((prin1)));ca_mo_01;
  [--]
  [Austausch Systeme    ]^p^C^C(progn (princ) (princ "*** HERSTELLER-Programm - Bitte Menpunkt bei jeweiligem Hersteller aufrufen ***") (princ))
  [Globales Nachtragen der Varianten]^p^C^C(progn (princ) (princ "*** HERSTELLER-Programm - Bitte Menpunkt bei jeweiligem Hersteller aufrufen ***") (princ))
  [--]
  [->Auswertung mit Parameter]
    [Raumbegrenzung einzeichnen ]^c^c._pline \_wi 0.02 0.02;
    [Raumkennung einfgen       ]^p^c^c(cond ((null c:ca_mo_04) (load"/garb_sys/prg/ca_mo_04")) ((prin1)));ca_mo_04;
    [<-Auswertung               ]^p^c^c(cond ((null c:ca_mo_02) (load"/garb_sys/prg/ca_mo_02")) ((prin1)));(c:ca_mo_02in "PF");
  [--]
  [<-Stckliste -> WWS kopieren ]^p^c^c(cond ((null c:stcopy) (load (strcat hc_lsppath "haas818"))) ((prin1)));stcopy
[->3D-Darstellung]
  [M”bel austauschen (2D => 3D) ]^p^c^c(cond ((null c:ca_mo_03)  (load"/garb_sys/prg/ca_mo_03")) ((prin1)));ca_mo_03;
  [--]
  [3D-M”bel l”schen             ]^p^c^c(cond ((null c:haas819)   (load (strcat hc_lsppath "haas819")))  ((prin1)));haas819;
  [3D-Optimierung               ]^p^c^c(cond ((null c:pre_hide)  (load (strcat hc_lsppath "pre_hide"))) ((prin1)));pre_hide;
  [--]
  [->Perspektive]
    [Perspektivblock einsetzen]^p^c^c(cond ((null c:pers_a) (load (strcat hc_lsppath "haas310")))  ((prin1)));pers_a;
    [--]
    [Perspektive]$i=dar_pers $i=*
    [Perspektive fr Draufsicht       ]^p^c^c(load (strcat hc_lsppath "haas310"));(c:pers nil);
    [--]
    [<-Perspektive via Dialog]^c^cfm_pers
  [->Bildschirmfoto]
    [erstellen  ]^p^c^c(cond ((null c:sld2dxf)   (load (strcat hc_lsppath "haas815")))  ((prin1)));sld2dxf;
    [einlesen   ]^p^c^c(cond ((null c:ladedxf)   (load (strcat hc_lsppath "haas815")))  ((prin1)));ladedxf;
    [--]
    [ausschalten  ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 12 "DIA_ANSICHT")
    [<-einschalten]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 13 "DIA_ANSICHT")
  [--]
  [->3D-W„nde einzeichnen]
    [unsichtbar]^p^c^c(cond ((null c:haas813_u) (load (strcat hc_lsppath "haas813")))  ((prin1)));haas813_u;
    [<-sichtbar]^p^c^c(cond ((null c:haas813_s) (load (strcat hc_lsppath "haas813")))  ((prin1)));haas813_s;
  [--]
  [->Farbgebung]
    [nach Varianten            ]^p^c^c(cond ((null c:ca_mo_05 ) (load"/garb_sys/prg/ca_mo_05")) ((prin1)));ca_mo_05;
    [durch Vorgabedatei        ]^p^c^c(cond ((null c:haas809  ) (load (strcat hc_lsppath "haas809")))  ((prin1)));(c:haas809 "hc_cstan.dat")
    [<-durch Anpicken (Pickbox)]^p^c^c(cond ((null c:haas809  ) (load (strcat hc_lsppath "haas809")))  ((prin1)));(c:haas809 "")
  [->HAASCAD-AutoShade]
    [Stehlampe      ]^p^c^c(cond ((null shade      ) (load (strcat hc_lsppath "shade"  )))  ((prin1)));LICHT \S;
    [Deckenlampe    ]^p^c^c(cond ((null shade      ) (load (strcat hc_lsppath "shade"  )))  ((prin1)));LICHT \D;
    [~--]
    [Kamera setzen  ]^p^c^c(cond ((null shade      ) (load (strcat hc_lsppath "shade"  )))  ((prin1)));KAMERA;
    [Szene einsetzen]^p^c^c(cond ((null shade      ) (load (strcat hc_lsppath "shade"  )))  ((prin1)));SZENE;
    [~--]
    [Kamerasicht    ]^p^c^c(cond ((null shade      ) (load (strcat hc_lsppath "shade"  )))  ((prin1)));KAMSICHT;
    [~--]
    [Filmrolle erstellen ]^p^c^c(cond ((null shade      ) (load (strcat hc_lsppath "shade"  )))  ((prin1)));FILMROLL;
    [<-AutoShade]^p^c^c(command "SHELL" "SHADE");
  [<-RenderStar-šbergabe]^p^c^c(cond ((null c:haas814  ) (load (strcat hc_lsppath "haas814")))  ((prin1)));haas814;
[->HAASCAD-Tools]
  [Drehen/Schieben/Kopieren        DS]^p^c^c(cond ((null c:ds) (load (strcat hc_lsppath "haas801"))) ((prin1)));DS;
  [Elemente um Basispunkt drehen   DB]^p^c^c(cond ((null c:db) (load (strcat hc_lsppath "haas806"))) ((prin1)));DB;
  [Text global „ndern              TG]^p^c^c(cond ((null c:tg) (load (strcat hc_lsppath "haas805"))) ((prin1)));TG;
  [Element spiegeln mit Bst.-Nr.     ]^p^c^c(cond ((null c:ca_mo_06) (load"/garb_sys/prg/ca_mo_06"))) ((prin1)));ca_mo_06;
  [->Stanzen]
    [Stanzlinie einzeichnen]^c^cplinie \b 0.02 0.02;
    [--]
    [Stanzen -> l”schen ]^p^C^C(cond ((null c:stanz)  (load (strcat hc_lsppath "haas203"))) ((princ)));stanz;
    [<-Stanzen -> schieben]^p^C^C(cond ((null c:mschieb)(load (strcat hc_lsppath "haas203"))) ((princ)));mschieb;
  [--]
  [->Elementlayer]
    [aus                  EA ]^p^c^c(cond ((null c:ea) (load (strcat hc_lsppath "haas804"))) ((prin1)));EA;
    [frieren              ELF]^p^c^c(cond ((null c:ea) (load (strcat hc_lsppath "haas804"))) ((prin1)));EA;
    [durch Element setz.  ELS]^p^c^c(cond ((null c:els)(load (strcat hc_lsppath "haas804"))) ((prin1)));ELS;
    [<-auf akt. Layer setz. ELA]^p^c^c(cond ((null c:ela)(load (strcat hc_lsppath "haas804"))) ((prin1)));ELA;
  [->Werte setzen durch Anpicken]
    [Layer               EL]^p^c^c(cond ((null c:el) (load (strcat hc_lsppath "haas804"))) ((prin1)));EL;
    [Linientyp           ET]^p^c^c(cond ((null c:et) (load (strcat hc_lsppath "haas804"))) ((prin1)));ET;
    [Farbe               EF]^p^c^c(cond ((null c:ef) (load (strcat hc_lsppath "haas804"))) ((prin1)));EF;
    [Textstil und Gr”sse ES]^p^c^c(cond ((null c:es) (load (strcat hc_lsppath "haas804"))) ((prin1)));ES;
    [--]
    [<-<-Alle Werte          EP]^p^c^c(cond ((null c:ep) (load (strcat hc_lsppath "haas804"))) ((prin1)));EP;
[->HAASCAD-Vorgaben]
  [Zeichnungsrahmen einfgen        ]^p^c^c(cond ((null c:haas800) (load (strcat hc_lsppath "haas800"))) ((prin1)));haas800;
  [->Benutzermakros]
    [definieren ]^p^c^c(cond ((null c:bmdef) (load (strcat hc_lsppath "haas811"))) ((prin1)));bmdef;
    [<-einfgen ]^p^c^c(cond ((null c:bmcall) (load (strcat hc_lsppath "haas811"))) ((prin1)));bmcall;
  [HAASCAD-Zeichens„tze...          ]$i=div_stil $i=*
  [--]
  [->Bibliothek-Verwaltung]
    [Bibliothek ausw„hlen  ]^p^c^c(if (null c:XX_ma_01) (progn(load"/garb/XX/prg/XX_ma_01")(prin1)) (prin1)) XX_ma_01
    [Makro definieren      ]^p^c^c(if (null c:XX_ma_02) (progn(load"/garb/XX/prg/XX_ma_01")(prin1)) (prin1)) XX_ma_02
    [--]
    [Makro plazieren       ]^p^c^c(if (null c:XX_ma_03) (progn(load"/garb/XX/prg/XX_ma_01")(prin1)) (prin1)) XX_ma_03
    [Makro plazieren MATCH ]^p^c^c(if (null c:XX_ma_04) (progn(load"/garb/XX/prg/XX_ma_01")(prin1)) (prin1)) XX_ma_04
    [--]
    [Makrodaten „ndern     ]^p^c^c(if (null c:XX_ma_05) (progn(load"/garb/XX/prg/XX_ma_01")(prin1)) (prin1)) XX_ma_05
    [<-Makro l”schen         ]^p^c^c(if (null c:XX_ma_06) (progn(load"/garb/XX/prg/XX_ma_01")(prin1)) (prin1)) XX_ma_06
  [--]
  [->Initialisieren/Konfigurieren]
    [Herstellertablettmens anpassen  ]^p^c^c(cond ((null c:haas816) (load (strcat hc_lsppath "haas816"))) ((prin1)));haas816;
    [Tablett/Maus-Tasten konfigurieren]^p^c^c(cond ((null c:haas817) (load (strcat hc_lsppath "haas817"))) ((prin1)));haas817;
    [--]
    [Vorgabewerte  einstellen]^p^c^c(cond ((null haas850) (load (strcat hc_lsppath "haas850"))) ((prin1)));xunload_all;(HAAS850 0);
    [*** GRUNDEINSTELLUNG ***]^p^c^c(cond ((null haas850) (load (strcat hc_lsppath "haas850"))) ((prin1)));xunload_all;(HAAS850 1);
    [--]
    [->Tablett konfigurieren]
      [--]
      [Neukonfigurieren ]^p^c^c(progn (princ "Tablettbereiche 1-4 anpicken (linke-obere, linke-untere, rechte-untere Ecke).") (prin1));_TABLET;_CFG;4;\\\36;9;\\\11;9;\\\14;9;\\\36;7;_Y
      [Rekonfigurieren  ]^p^c^c(progn (princ "Tablettbereiche 1-4 anpicken (linke-obere, linke-untere, rechte-untere Ecke).") (prin1));_TABLET;_CFG;4;_Y;\\\36;9;\\\11;9;\\\14;9;\\\36;7;_Y
      [Kalibrieren      ]^c^cTABLETT KAL
      [<-<-<---]
[->Status / Info]
  [$(eval,"  Zeit: "$(edtime,$(getvar,date),HH:MM))]
  [$(eval," Datum: "$(edtime,$(getvar,date),D.M.YYYY))]
  [$(eval,"Z-Name: "$(getvar,dwgname)".DWG")]
  [--]
  [$(eval,"Sicherung alle "$(getvar,savetime)"  min")]^c^c_SAVETIME
  [--]
  [$(eval,"Konstruktionspkt: "$(if,$(=,$(getvar,blipmode),1),$(eval,"JA"),$(eval,"NEIN")))]'_setvar BLIPMODE ^p(- 1 (getvar "BLIPMODE"))
  [$(eval,"Text mitspiegeln: "$(if,$(=,$(getvar,mirrtext),1),$(eval,"JA"),$(eval,"NEIN")))]'_setvar MIRRTEXT ^p(- 1 (getvar "MIRRTEXT"))
  [$(eval,"Obj. ausleuchten: "$(if,$(=,$(getvar,highlight),1),$(eval,"JA"),$(eval,"NEIN")))]'_setvar HIGHLIGHT ^p(- 1 (getvar "HIGHLIGHT"))
  [$(eval,"   Solids fllen: "$(if,$(=,$(getvar,fillmode),1),$(eval,"JA"),$(eval,"NEIN")))]'_setvar FILLMODE ^p(- 1 (getvar "FILLMODE"))
  [$(eval,"       3D Kanten: "$(if,$(=,$(getvar,splframe),1),$(eval,"SICHTBAR"),$(eval,"UNSICHTB.")))]'_setvar SPLFRAME ^p(- 1 (getvar "SPLFRAME"))
  [$(eval,"        Tilemode: "$(if,$(=,$(getvar,tilemode),1),$(eval,"EIN"),$(eval,"AUS")))]'_setvar tilemode ^p(- 1 (getvar "tilemode"))
  [--]
  [$(eval,"           Farbe: "$(getvar,cecolor))]^c^c_CECOLOR
  [$(eval,"       Linientyp: "$(getvar,celtype))]^c^c_CELTYPE
  [$(eval,"        Textstil: "$(getvar,textstyle))]^c^c_TEXTSTYLE
  [$(eval,"       Textgr”áe: "$(getvar,textsize))]^c^c_TEXTSIZE
  [$(eval," Schraffurmuster: "$(getvar,hpname))]^c^c_HPNAME
  [$(eval,"Punktdarstellung: "$(getvar,pdmode))]^c^c_PDMODE
  [$(eval,"     Punkt-Gr”áe: "$(getvar,pdsize))]^c^c_PDSIZE
  [$(eval,"  Abrundenradius: "$(getvar,filletrad))]^c^c_FILLETRAD
  [$(eval,"     Fasenbreite: "$(getvar,chamferb))]^c^c_CHAMFERB
  [$(eval,"   Limitenfaktor: "$(getvar,ltscale))]^c^c_LTSCALE
  [--]
  [$(eval," 3D-Netzdichte 1: "$(getvar,surftab1))]^c^c_SURFTAB1
  [$(eval," 3D-Netzdichte 2: "$(getvar,surftab2))]^c^c_SURFTAB2
  [$(eval,"        Erhebung: "$(getvar,elevation))]^c^c_ELEVATION
  [$(eval,"      Objekth”he: "$(getvar,thickness))]^c^c_THICKNESS
  [$(eval,"      Shade-Edge: "$(getvar,shadedge))]^c^c_SHADEDGE
  [<-$(eval,"       Shade-Dif: "$(getvar,shadedif))]^c^c_SHADEDIF

***icon
**grund_stuez
[Pfeiler, S„ulen]
[haascad(hcstu01,Pfeiler 1)]^p^C^C(cond ((null haas808) (load (strcat hc_lsppath "haas808"))) (princ));(c:haas808 1);
[haascad(hcstu02,Pfeiler 2)]^p^C^C(cond ((null haas808) (load (strcat hc_lsppath "haas808"))) (princ));(c:haas808 2);
[haascad(hcstu03,S„ule   1)]^p^C^C(cond ((null haas808) (load (strcat hc_lsppath "haas808"))) (princ));(c:haas808 4);
[haascad(hcstu04,S„ule   2)]^p^C^C(cond ((null haas808) (load (strcat hc_lsppath "haas808"))) (princ));(c:haas808 3);

**inn_bild
[Bilder]
[haascad(hcbild1,Linien  )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2BILD1__" )
[haascad(hcbild3,Dreieck )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2BILD3__" )
[haascad(hcbild2,Umsatz  )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2BILD2__" )
[haascad(hcbild4,Bl„tter )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2BILD4__" )

**div_stil
[Zeichens„tze]
[HAASCAD(HCSTILN,Normschrift   )]^C^CSTIL norm haas-n 0.00;;;;;
[HAASCAD(HCSTILB,Blockschrift  )]^C^CSTIL block haas-b 0.00;;;;;
[HAASCAD(HCSTILD,Doppelschrift )]^C^CSTIL doppel haas-d 0.00;;;;;

**inn_pcmo
[PC, Monitore, Drucker]
[haascad(hcpc07,Workstation #1  )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCWORK1" )
[haascad(hcpc01,PC-Geh„use      )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCTISCH" )
[haascad(hcpc02,PC-Geh„use klein)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCTISC2" )
[haascad(hcpc03,Towergeh„use    )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCTOWER" )
[haascad(hcpc04,Laptop          )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCLAPTP" )
[haascad(hcpc09,Tastatur        )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCTAST_" )
[haascad(hcpc05,Monitor 12"     )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCMON12" )
[haascad(hcpc06,Monitor 20"     )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCMON20" )
[haascad(hcpc14,Laserdrucker    )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCLASER" )
[haascad(hcpc13,Matrixrucker    )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCDRUCK" )
[haascad(hcpc15,A3-Plotter      )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCPLOT3" )
[haascad(hcpc16,A0-Plotter      )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCPLOT0" )
[haascad(hcpc10,Digitizer       )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCTABLT" )
[haascad(hcpc11,Streamer        )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCSTREA" )

**inn_ute1
[Utensilien]
[haascad(hcut01,Ordner          )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2ORDNER1" )
[haascad(hcut05,x-Ordner        )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2ORDNERX" )
[haascad(hcut06,Lampe           )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2LAMPE1_" )
[haascad(hcut13,Globus          )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2GLOBUS_" )
[haascad(hcut02,Telefon         )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2TELEFON" )
[haascad(hcut14,Tablett         )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2TTABLET" )
[haascad(hcut15,Tassen/Teller   )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2TTABLTT" )
[haascad(hcut03,Blume           )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2BLUME1_" )
[haascad(hcut07,Mlleimer       )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2MUELL1_" )
[haascad(hcut08,Aktenkoffer     )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2KOFFER_" )
[haascad(hcut12,Schreibmaschine )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2SMASCH_" )
[haascad(hcut04,Projektor       )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PROJEKT" )
[haascad(hcut09,Kopierer        )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2KOPIER_" )
[haascad(hcut10,Ventilator kl.  )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2VENTILA" )
[haascad(hcut11,Ventilator gr.  )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2VENTIL2" )
[haascad(hcut16,Wanduhr         )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2WANDUHR" )
[haascad(hcut17,Nordenpfeil 1   )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2NORD1__" )
[haascad(hcut18,Nordenpfeil 2   )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2NORD2__" )
[haascad(hcut19,Nordenpfeil 3   )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2NORD3__" )

**inn_bode
[Fussboden, Decken]
[haascad(hcbode01,FB kariert    )]^p^c^c(cond ((null haas302) (load (strcat hc_lsppath "haas302"))) (princ));haas302;
[haascad(hcbode04,DE kariert    )]^p^c^c(cond ((null haas307) (load (strcat hc_lsppath "haas307"))) (princ));haas307;
[haascad(hcbode02,FB L„ngsmuster)]^p^c^c(cond ((null haas303) (load (strcat hc_lsppath "haas303"))) (princ));haas303;
[haascad(hcbode05,DE L„ngsmuster)]^p^c^c(cond ((null haas306) (load (strcat hc_lsppath "haas306"))) (princ));haas306;
[haascad(hcbode07,DE mit Lampen )]^p^c^c(cond ((null haas308) (load (strcat hc_lsppath "haas308"))) (princ));haas308;
[haascad(hcbode08,DE mit Lampen )]^p^c^c(cond ((null haas309) (load (strcat hc_lsppath "haas309"))) (princ));haas309;
[haascad(hcbode03,Fuáboden var. )]^p^c^c(cond ((null haas304) (load (strcat hc_lsppath "haas304"))) (princ));haas304;
[haascad(hcbode06,Decke var.    )]^p^c^c(cond ((null haas305) (load (strcat hc_lsppath "haas304"))) (princ));haas305;

**inn_heiz
[Heizk”rper]
[haascad(hchei08,Breite  800 mm)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) )(haas802 "2heiz08_" )
[haascad(hchei13,Breite 1300 mm)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) )(haas802 "2heiz13_" )
[haascad(hchei15,Breite 1500 mm)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) )(haas802 "2heiz15_" )
[haascad(hchei18,Breite 1800 mm)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) )(haas802 "2heiz18_" )

**dar_pers
[Ansichtsh”he w„hlen]
[haascad(hcpers1,Augenh”he ca. 2 m   )]^p^c^c(load (strcat hc_lsppath "haas310"));(c:pers "1");
[haascad(hcpers2,Augenh”he ca. 3 m   )]^p^c^c(load (strcat hc_lsppath "haas310"));(c:pers "2");
[haascad(hcpers3,Augenh”he ca. 6 m   )]^p^c^c(load (strcat hc_lsppath "haas310"));(c:pers "3");
[haascad(  Augenh”he variabel        )]^p^c^c(load (strcat hc_lsppath "haas310"));(c:pers "D");

**famea_1
[Wohnen/Schlafen]
[famea(ach001a,Einzelbett        )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH001A" )
[famea(ach002a,Doppelbett        )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH002A" )
[famea(ach003a,Tisch             )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH003A" )
[famea(ach004a,Schreibtisch      )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH004A" )
[famea(ach005a,Wohnzimmertisch   )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH005A" )
[famea(ach006a,Rundtisch         )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH006A" )
[famea(ach010a,Sitzgruppe        )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH010A" )
[famea(ach009a,2er Sofa          )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH009A" )
[famea(ach008a,3er Sofa          )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH008A" )
[famea(ach007a,Sessel #1         )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH007A" )
[famea(ach012a,Sessel #2         )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH012A" )
[famea(ach016a,Garderobe         )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH016A" )
[famea(ach011a,Eátisch 8 Personen)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH011A" )
[famea(ach013a,Eátisch 4 Personen)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH013A" )
[famea(ach014a,Eátisch 3 Personen)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH014A" )
[famea(ach022a,Fernseher         )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH022A" )

**famea_2
[Kche/Bad/WC]
[famea(ach015a,Eckbank          )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH015A" )
[famea(ach017a,Sple klein      )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH017A" )
[famea(ach018a,Sple groá       )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH018A" )
[famea(ach019a,E-Herd           )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH019A" )
[fameb(ach023a,Schrank 1        )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH023A" )
[fameb(ach024a,Schrank 2        )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH024A" )
[fameb(ach020a,Schrank 3        )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH020A" )
[fameb(ach021a,Schrank 4        )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH021A" )
[famea(ach026a,Badewanne        )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH026A" )
[famea(ach027a,Duschwanne       )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH027A" )
[famea(ach028a,Waschbecken #1   )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH028A" )
[famea(ach029a,Waschbecken #2   )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH029A" )
[famea(ach030a,Waschbecken #3   )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH030A" )
[famea(ach035a,Doppelwaschbecken)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH035A" )
[famea(ach031a,WC #1            )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH031A" )
[famea(ach032a,WC #2            )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH032A" )
[famea(ach033a,WC #3            )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH033A" )
[famea(ach034a,WC #4            )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH034A" )

**famea_3
[Personen]
[famea(ach031c,Mann mit Koffer  )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH031C" )
[famea(ach029c,Mann mit Mantel  )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH029C" )
[famea(ach033c,Mann mit Tasche  )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH033C" )
[famea(ach032c,Frau mit Tasche  )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH032C" )
[famea(ach028c,Mann mit Junge   )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH028C" )
[famea(ach030c,Frau mit M„dchen )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH030C" )
[famea(ach034c,Kinder           )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH034C" )
[famea(ach035c,Ehepaar          )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH035C" )

**famea_4
[B„ume]
[famea(ach040a,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH040A" )
[famea(ach040c,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH040C" )
[famea(ach041a,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH041A" )
[famea(ach041c,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH041C" )
[famea(ach042a,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH042A" )
[famea(ach042c,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH042C" )
[famea(ach043a,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH043A" )
[famea(ach043c,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH043C" )
[famea(ach044a,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH044A" )
[famea(ach044c,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH044C" )
[famea(ach045a,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH045A" )
[famea(ach045c,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH045C" )

**famea_5
[Fahrzeuge]
[famea(ach050a,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH050A" )
[famea(ach050c,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH050C" )
[famea(ach050f,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH050F" )
[famea(ach050r,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH050R" )
[famea(ach052a,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH052A" )
[famea(ach052c,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH052C" )
[famea(ach052f,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH052F" )
[famea(ach052r,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH052R" )
[famea(ach055a,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH055A" )
[famea(ach055c,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH055C" )
[famea(ach055f,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH055F" )
[famea(ach055r,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH055R" )

