(defun c:Title(/ scale_list format_list scale format dlg) (setq scale_list (list '( "5:1" 5.0) '( "2:1" 2.0) '( "1:1" 1.0) '( "1:2" 0.5) '( "1:2.5" 0.4) '( "1:5" 0.2) );end list ) (setq format_list (list "A0" "A1" "A2" ) ) (setq dialogshow T) (setq dcl_id (load_dialog "C:/Programme/XY.dcl")) (if (not (new_dialog "title_setup" dcl_id) );end not (setq dialogshow nil) );end if (if dialogshow (progn (start_list "scale_choose") (mapcar 'add_list (mapcar 'car scale_list)) (end_list) (start_list "title_choose") (mapcar 'add_list format_list) (end_list) (action_tile "cancel" "(done_dialog) (setq ok_click nil)") (action_tile "scale_choose" "(setq scale (cadr(nth (atoi $VALUE) scale_list)))") (action_tile "format_choose" "(setq format (nth (atoi $VALUE) format_list))") (action_tile "accept" "(done_dialog) (setq ok_click T)") (start_dialog) (unload_dialog dcl_id) (if ok_click (cond ((= format "A0") (command "._insert" "C:/Programme/A0.dwg" "0,0" scale "" "0") ) ((= format "A1") (command "._insert" "C:/Programme/A1.dwg" "0,0" scale "" "0") ) ((equal FORMAT "A2") (command "._insert" "C:/Programme/A2.dwg" "0,0" scale "" "0") ) ('t (alert "Unbekanntes Format")(princ "\nInhalt von 'format':\n")(print format)) );end cond );end if ok_click );end progn );end if showdialog );end defun