; Die Funktionen für die Bearbeitung der DCL-Komponenten bekannt geben
  (vl-doc-set '*lnrzangat* lnrzang) 
  (vl-doc-set '*lbasispktat* lbasispkt)
  (vl-doc-set '*idonebasisat* idonebasis) 
  (vl-doc-set '*lbschgsffat* lbschgsff)
  (action_tile "ceb_nummer" "(vl-doc-set '*lnrzangat* (nrzangaben_ermitteln (vl-doc-ref '*lnrzangat*)))") 
  (action_tile "ceb_hoehezif" "(vl-doc-set '*lnrzangat* (nrzangaben_ermitteln (vl-doc-ref '*lnrzangat*)))") 
  (action_tile "ceb_breitenrz" "(vl-doc-set '*lnrzangat* (nrzangaben_ermitteln (vl-doc-ref '*lnrzangat*)))") 
  (action_tile "crb_eunrz" "(vl-doc-set '*lnrzangat* (nrzangaben_ermitteln (vl-doc-ref '*lnrzangat*)))") 
  (action_tile "crb_eunrzmk" "(vl-doc-set '*lnrzangat* (nrzangaben_ermitteln (vl-doc-ref '*lnrzangat*)))") 
  (action_tile "crb_babnrz" "(vl-doc-set '*lnrzangat* (nrzangaben_ermitteln (vl-doc-ref '*lnrzangat*)))") 
  (action_tile "crb_babnrzmk" "(vl-doc-set '*lnrzangat* (nrzangaben_ermitteln (vl-doc-ref '*lnrzangat*)))") 
  (action_tile "crb_bus2nrz" "(vl-doc-set '*lnrzangat* (nrzangaben_ermitteln (vl-doc-ref '*lnrzangat*)))") 
  (action_tile "crb_bus3nrz" "(vl-doc-set '*lnrzangat* (nrzangaben_ermitteln (vl-doc-ref '*lnrzangat*)))") 
  (action_tile "crb_bussfnrz" "(vl-doc-set '*lnrzangat* (nrzangaben_ermitteln (vl-doc-ref '*lnrzangat*)))") 
  (action_tile "crb_bussfnrzmk" "(vl-doc-set '*lnrzangat* (nrzangaben_ermitteln (vl-doc-ref '*lnrzangat*)))")
  (action_tile "clb_foltypele" "(vl-doc-set '*lnrzangat* (nrzangaben_ermitteln (vl-doc-ref '*lnrzangat*)))") 
  (action_tile "crb_folplokein" "(vl-doc-set '*lnrzangat* (nrzangaben_ermitteln (vl-doc-ref '*lnrzangat*)))")
  (action_tile "crb_folploposein" "(vl-doc-set '*lnrzangat* (nrzangaben_ermitteln (vl-doc-ref '*lnrzangat*)))")
  (action_tile "crb_folploposgru" "(vl-doc-set '*lnrzangat* (nrzangaben_ermitteln (vl-doc-ref '*lnrzangat*)))")
  (action_tile "crb_folploneggru" "(vl-doc-set '*lnrzangat* (nrzangaben_ermitteln (vl-doc-ref '*lnrzangat*)))")  
  (action_tile "crb_folploddrgru" "(vl-doc-set '*lnrzangat* (nrzangaben_ermitteln (vl-doc-ref '*lnrzangat*)))")  
  (action_tile "cb_elefarbe" "(vl-doc-set '*lnrzangat* (nrzangaben_ermitteln (vl-doc-ref '*lnrzangat*)))") 
  (action_tile "clb_foltypgrd" "(vl-doc-set '*lnrzangat* (nrzangaben_ermitteln (vl-doc-ref '*lnrzangat*)))") 
  (action_tile "cb_grdfarbe" "(vl-doc-set '*lnrzangat* (nrzangaben_ermitteln (vl-doc-ref '*lnrzangat*)))") 
  (action_tile "cb_basis" "(done_dialog (vl-doc-ref '*idonebasisat*))")
  (action_tile "ceb_xbasis" "(vl-doc-set '*lbasispktat* (basispkt_ermitteln))") 
  (action_tile "ceb_ybasis" "(vl-doc-set '*lbasispktat* (basispkt_ermitteln))") 
  (action_tile "ceb_zbasis" "(vl-doc-set '*lbasispktat* (basispkt_ermitteln))") 
  (action_tile "ceb_bschgsfofagrd" "(vl-doc-set '*lbschgsffat* (beschreibung_sff_ermitteln (vl-doc-ref '*lbschgsffat*)))") 
  (action_tile "ceb_bschgsfofaele" "(vl-doc-set '*lbschgsffat* (beschreibung_sff_ermitteln (vl-doc-ref '*lbschgsffat*)))") 
  
; Das Dialogfeld anzeigen und Anwendereingabe ermöglichen
  (setq iok (start_dialog)) 
  
; Die DCL-Datei aus dem Speicher entfernen
  (unload_dialog idclid)

; Die lokalen Variablen aktualisieren
  (setq idonebasis (vl-doc-ref '*idonebasisat*))
  (setq lbasispkt (vl-doc-ref '*lbasispktat*))  
  (setq lnrzang (vl-doc-ref '*lnrzangat*))
  (setq lbschgsff (vl-doc-ref '*lbschgsffat*))