(defun run_dcl        (/ fdesc dcl_id)

  (setq fname (strcat (getvar "dwgprefix") "DCLTEST.dcl"))
  (setq fdesc (open fname "w"))

  (setq zeilen_dcl "DCLTEST : dialog {\n 
                label = \"(c) 2010 DCLTEST V5,5\"\;
\n: row  {
\n	: boxed_column { label = \"Vorgehensweise : \"\;
\n		: text  { width = 50\;
\n			  key   = br1\; 
\n			}
\n		: text  { width = 10\;
\n			  key   = br2\; 
\n			}
\n		: text  { width = 10\;
\n			  key   = br3\; 
\n			}
\n		: text  { width = 10\;
\n			  key   = br4\; 
\n			}		
\n			}
\n	: boxed_column { label = \"Lizenz erworben von : \"\;
\n		: text  { width = 20\;
\n			  key   = zeile1\; 
\n			}
\n		: text  { width = 10 \;
\n			  key   = zeile2\; 
\n			}
\n		: text  { width = 10\;
\n			  key   = zeile3\; 
\n			}
\n		: text  { width = 10\;
\n			  key   = zeile31\; 
\n			}
\n			}
\n		}
\n: row   {
\n	: boxed_column { label = \"copyright:\" \;
\n		: text {width = 20\;
\n			key   = zeile4\;
\n			}
\n		: text {width = 20\; 
\n			key   = zeile5\;
\n			}
\n		: text {width = 20\;
\n			key   = zeile6\;
\n			}
\n			}
\n	: boxed_column {
\n			label = \"\" \;
\n		: image { width = 7\;
\n			aspect_ratio = 2.0\;
\n			key = \"BILD\"\;
\n			}
\n		       }
\n	}
\n: column {
\n	: edit_box {
\n		label = \"Fuzzy-Abstand zum Lückenschließen\"\;
\n		allow_accept = true\;
\n			key = \"K_B\"\;
\n			edit_width  = 6\;
\n			edit_limit  = 5\;
\n		}
\n	: edit_box {
\n		label = \"Auflösung für Kreisbögen (je Quadrant)\"\;
\n		allow_accept = true\;
\n			key = \"RA\"\;
\n			edit_width = 6\;
\n			edit_limit = 5\;
\n		}
\n	: edit_box {
\n		label = \"Auflösung für Splines (je Gesamtlänge)\"\;
\n		allow_accept = true\;
\n			key = \"DIVA\"\;
\n			edit_width  = 6\;
\n			edit_limit  = 5\;
\n		}
\n	}
\n	spacer\; spacer\;
\n	ok_cancel\;
\n}"

                )

  (write-line zeilen_dcl fdesc)

  (setq fdesc (close fdesc)
        )
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun DCLTEST_DIALOG (/ I1)
 (setq I1 (load_dialog "DCLTEST.DCL"))

 (if (null (new_dialog "DCLTEST" I1))
  (alert "\ncannot load the dialog-box")
 )

 (mode_tile "ok" 2)
 (set_tile "br1" "1. Fuzzy-Abstand zum Lückenschließen (Standard 0.0001)")
 (set_tile "br2" "2. Auflösung für Bögen angeben (Standard 10/Quadrant)")
 (set_tile "br3" "3. Auflösung für Splines wählen (Standard 100/Länge)")
 (set_tile "br4" "4. Zu verbindende Linienelemente auswählen")

(set_tile "zeile1"  "ANTARES high-end")
(set_tile "zeile2"  "computing")
(set_tile "zeile3"  "www.ant-ares.de")
(set_tile "zeile31" "123456")


(set_tile "zeile4" "ANTARES high-end computing")
(set_tile "zeile5" "qweewrq  ")
(set_tile "zeile6" "adad")

;;;;
(start_image "BILD")


(vector_image 48 45 61 38 1)
(vector_image 46 45 48 45 1)
(vector_image 61 38 46 45 1)
(vector_image 37 78 60 47 3)
(vector_image 37 57 37 78 3)
(vector_image 60 47 37 57 3)
(vector_image 42 46 74 29 1)
(vector_image 17 47 42 46 1)
(vector_image 17 34 17 47 1)
(vector_image 74 29 17 34 1)
(vector_image 70 75 95 41 4)
(vector_image 46 69 70 75 4)
(vector_image 50 64 46 69 4)
(vector_image 95 41 50 64 4)
(vector_image 37 56 59 46 4)
(vector_image 7 50 37 56 4)
(vector_image 59 46 7 50 4)
(vector_image 75 72 96 44 2)
(vector_image 96 63 75 72 2)
(vector_image 96 44 96 63 2)
(vector_image 46 21 21 32 6)
(vector_image 73 28 46 21 6)
(vector_image 21 32 73 28 6)
(vector_image 4 51 4 72 2)
(vector_image 35 58 4 51 2)
(vector_image 35 79 35 58 2)
(vector_image 4 72 35 79 2)

 (end_image)
;;;;;;


 (set_tile "K_B" "0.0001")      ; fuzz zum Lückenschließen
 (set_tile "RA" "10")           ; Auflösung Kreisbögen
 (set_tile "DIVA" "100")	; Auflösung für Splines

 (setq fuzz    (atof (get_tile "K_B"))
       aufloe  (atoi (get_tile "RA"))
       spldiv  (atoi (get_tile "DIVA"))
 )

 (action_tile "K_B" "(setq fuzz (atof $value))")
 (action_tile "RA"   "(setq aufloe (atoi $value))")
 (action_tile "DIVA" "(setq spldiv (atoi $value))")

 
 (action_tile "CANCEL" "(DONE_DIALOG 0)")
 (action_tile "accept" "(done_dialog 1)")
 (setq OK (start_dialog))
 (unload_dialog I1)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;------------------------------------------------------
(defun C:DCL_test()

(run_dcl)
	(DCLTEST_DIALOG)
(vl-file-delete fname)

(print "K_B  = ")(princ fuzz)
(print "RA   = ")(princ aufloe)
(print "DIVA = ")(princ spldiv)
(princ)
)
;;
(prompt "\n")
(prompt "Starten durch Eingabe von DCL_TEST auf der Befehlszeile")
(princ)