[编程交流] I need help me with the Popup_

;;;---------------------------------------- setvar --------------------------(defun saveVars() (setq blkList (list))  (setq ignlist (get_tile "bloqlist"))   (setq count 1)    (while (setq fila (read ignlist))   (setq blkList (append blkList (list (nth fila bloList))))   (while      (and       (/= " " (substr ignlist count 1))       (/= ""  (substr ignlist count 1)))     (setq count (1+ count)))   (setq ignlist (substr ignlist count))));;;---------------------------------------- read file "1-DWG-TOMACORRIENTES.txt" for default --------------------------(defun blokinf ()(setq bloList (list))   (if (findfile "1-DWG-TOMACORRIENTES.txt") (progn(if (setq ruta (open (findfile "C:/Program Files/AutoCAD 2008/1-DWG-TOMACORRIENTES.txt") "r"))(progn        (read-line ruta)  (while (setq pa (read-line ruta))         (setq bloList          (append bloList(list (list pa)))))(close ruta))))) bloList );;;---------------------------------------- main program --------------------------(defun c:E1 ( / bloqlist$ infolist$)(if (not *E1@) (setq *E1@ (list nill "" "")))(setq bloqlist$ (nth 1 *E1@))(setq infolist$ (nth 2 *E1@))(setvar "cmdecho" 0)(setq bloList (blokinf))   (if bloList   (progn(setq dcl_id (load_dialog "INSERT-1.dcl"))      (if (not (new_dialog "INSERTA" dcl_id "" (cond (*screenpointE1*) ('(-1 -1)))))      (progn(princ "\n**ERROR**") (exit)))     (setq bloNames (list))    (foreach pa bloList(setq bloNames (append bloNames(list (car pa)))))(setq folder (GetDwgsMob "AutoCAD 2008")) ;;add version autocad to folder;;;;(_addlist "bloqlist" bloNames)(_addlist "infolist" folder)(set_tile "bloqlist" bloqlist$)(set_tile "infolist" infolist$)(action_tile "bloqlist" "(setq bloqlist$ $value)")(action_tile "infolist" "(start_list "bloqlist") (mapcar 'add_list (eval (read (strcat "1-DWG-" $value ".TXT")))) (end_list)")(action_tile "cancel" "(setq *screenpointE1* (done_dialog 1))")(action_tile "accept" "(saveVars)(setq *screenpointE1* (done_dialog 2))")(setq ddiag (start_dialog))(unload_dialog dcl_id)(setq *E1@ (list nil bloqlist$ infolist$))(if (= ddiag 1) (prompt "\n**Cancel**"))  (princ))));;----------------- Path-2DAMobBasico ------------------------------------;; main route ---> "C:/Program Files/";;------------------------------------------------------------------------(defun Path-2DAMobBasico () "C:/Program Files/");;------------------------ GetDwgsMob ------------------------------------------------------------------;; collects data from the specified directory  (setq folder (GetDwgsMob "AutoCAD 2008"));; return ---> "C:/Program Files/AutoCAD 2008/";;------------------------------------------------------------------------------------------------------(defun GetDwgsMob (sParentMob / ListaMob DirMobTipo)             (if (setq DirMobTipo (strcat (Path-2DAMobBasico) sParentMob))     (setq ListaMob (vl-directory-files (strcat DirMobTipo "\") "*.txt" 1)       ListaMob (mapcar (function vl-filename-base) ListaMob))       );c.if    ListaMob   );c.defun       (defun _addlist ( key lst )       (start_list key)       (foreach x lst (add_list x))       (end_list)       lst)

INSERTA : dialog { label = "Program.....";          initial_focus="bloqlist";         : column {           spacer_1;         : boxed_row { label = "content of each list"; alignment = centered;         spacer_1;          : list_box { key = "bloqlist"; allow_accept = true; fixed_width = true; width = 40; value = "0";}        }         spacer_1;         }         spacer_1;       : popup_list { width =40; key = "infolist"; value = "1"; is_enabled = true ; }        spacer_1;       : row {       : button { key = "accept";label = "accept"; is_default = true;width =14;}          : button { key = "cancel";label = "cancel"; is_default = false; is_cancel = true;width =14;}          }}