;DGV_38*************************************************************************************;;;
;;;JBossedbox_38_6 => Dialogbox: Optionen: Interpolation Stützpunkte 3D-Polylinie            ;;
;;;*****************************************************************************************;;;

(defun JBossedbox_38_6 (  / dat ok v_liste_38_6 )
  
  (setq v_liste_38_6 (JB_default1 (strcat(JB_pfad1)"PG_diverse\\default\\DGV\\DGV_6_a.sic")))

  (while (and(/= ok 1)(/= ok 99))  
(setq dat(load_dialog "JB_DGV_vorb.dcl"))
  (if JB_38_6_po
    (if	(not (new_dialog "JB_38_6" dat ""  JB_38_6_po))(exit))
    (if	(not (new_dialog "JB_38_6" dat))(exit)))
    (set_tile "JB_38_6_e1" (nth 4 v_liste_38_6))
    (set_tile "JB_38_6_e2" (nth 5 v_liste_38_6))
    (set_tile "JB_38_6_t1" (nth 0 v_liste_38_6))

    (action_tile "JB_38_6_b1" "(setq v_liste_38_6(JB_38_6_get v_liste_38_6))(setq JB_38_6_po (done_dialog 10))");;Layer, Layervorgaben
    (action_tile "accept" "(setq v_liste_38_6(JB_38_6_get v_liste_38_6))(setq JB_38_6_po (done_dialog 1))");;OK
    (action_tile "cancel" "(setq JB_38_6_po (done_dialog 99))");;Abbrechen
    
  (setq Ok (start_dialog))
  (unload_dialog dat)
    (if (and (= ok 1)(<= (atof(nth 5 v_liste_38_6))0.0))
      (progn
	(setq ok 20)
	(alert "\Der Radius muß größer Null sein.")))
      (cond
        ((= ok 10);;;Layervorgaben für Fehlerkreis
	     (setq v_liste_38_6  (JB_38_layervorgaben v_liste_38_6   '(0 1 2 3))))
	((= ok 1) (JB_sichern1 v_liste_38_6 (strcat(JB_pfad1)"PG_diverse\\default\\DGV\\DGV_6_a.sic"))))
    )
  
)


;;DGV_38*************************************************************************************;;
;;;JBossedbox_38_6_get => Werte aus DCL in v_liste                                          ;;;
;;;*****************************************************************************************;;;
(defun JB_38_6_get (v_liste_38_6  /  liste)
  (JB_sichern1 (setq liste(list
			    (nth 0 v_liste_38_6)
			    (nth 1 v_liste_38_6)
			    (nth 2 v_liste_38_6)
			    (nth 3 v_liste_38_6)
			    (get_tile "JB_38_6_e1")
			    (get_tile "JB_38_6_e2")
			        
			    ))(strcat(JB_pfad1)"PG_diverse\\default\\DGV\\DGV_6_a.sic"))
  liste)