(defun C:Liniedcl
       (/ dcl_id DCLPunktX1 DCLPunktX2 DCLPunktY1 DCLPunktY2 Liste)
  (initerr)


  (setq dcl_id (load_dialog "test_linie.dcl"))
  (if (not (new_dialog "test_linie2" dcl_id))
    (exit)
  )					;if
  (action_tile
    "accept"
    "(progn
(setq DCLPunktX1 (atof(get_tile \"DCLPunktX1\"))) 
(setq DCLPunktY1 (atof(get_tile \"DCLPunktY1\")))
(setq DCLPunktX2 (atof(get_tile \"DCLPunktX2\"))) 
(setq DCLPunktY2 (atof(get_tile \"DCLPunktY2\"))) 
)(done_dialog)"
  )
  (action_tile "cancel" "(done_dialog)")
  (start_dialog)
  (Setq	LISTE (List (list DCLPunktX1 DCLPunktY1)
		    (list DCLPunktX2 DCLPunktY2)
	      )
  )
  (ZEICHNEN_UEBER Liste)
  (unload_dialog dcl_id)
  (reset)
  (princ)
)					;defun
-----------------------
(DEFUN ZEICHNEN_UEBER (WERTELISTE)
  (initerr)
  (command "_undo" "m")
  (command "-layer" "SE" "Rueckwand" "")
  (repeat 10
    (command "_.line"
	     (nth 0 Werteliste)
	     (nth 1 Werteliste)
	     ""
    )
  )

  (command "_.circle" "0,0" "3" "")
  (reset)
)