[编程交流] Dcl列表框帮助

(initget 0 "1 2 3")
(setq demo (getkword "\nSpecify demo number [1/2/3]: "))

/////////////////////////////////////////////////////////////////////////////////////////////
DEMO : dialog {
      label = "Demo.lsp";
      : column {
        : boxed_column {
          label = "Select a function:";
          : popup_list {
            key = "FUNCT";
            width = 18.0;
            fixed_width = true;
            alignment = centered;
          }
          : spacer {
            height = 0;
          }
        }
        : button {
          label = "&Ok";
          key = "accept";
          width = 18;
          fixed_width = true;
          alignment = centered;
          is_default = true;
        }  
        : button {
          label = "&Exit";
          key = "cancel";
          width = 18;
          fixed_width = true;
          alignment = centered;
          is_cancel = true;
        }
      }
    }
/////////////////////////////////////////////////////////////////////////////////////////////

copy

(defun C:DEMO (/ DCL_ID FUNCT FUNCT_LIST)
 (or F:UNCT (setq F:UNCT 0))
 (setq FUNCT_LIST (list "Demo 1" "Demo 2" "Demo 3"))
 (setq DCL_ID (load_dialog "DEMO.dcl"))
 (if (not (new_dialog "DEMO" DCL_ID))
   (exit))
 (start_list "FUNCT")(mapcar 'add_list FUNCT_LIST)(end_list)
 (if F:UNCT-DEF (set_tile "FUNCT" (itoa F:UNCT-DEF)))
 (action_tile "accept"
   (strcat
    "(progn (setq F:UNCT (atoi (get_tile "FUNCT")) F:UNCT-DEF F:UNCT)"            
           "(done_dialog)(setq button T))"))
 (action_tile "cancel" "(done_dialog)(setq button nil)")
 (start_dialog)
 (unload_dialog DCL_ID)
 (setq FUNCT F:UNCT)
 (if button
   (cond
     ((= FUNCT 0)(ALERT "You selected Demo 1"))
     ((= FUNCT 1)(ALERT "You selected Demo 2"))
     ((= FUNCT 2)(ALERT "You selected Demo 3"))))
 (princ))

(initget "1 2 3")
(setq demo (getkword "\nSpecify demo number [1/2/3] <1>: "))

(defun c:demo (/ dcl_write DATA DC FLAG PTR)
 (vl-load-com)
 
 (setq data '(("demo1" . (c:demo1))
              ("demo2" . (c:demo2))
              ("demo3" . (c:demo3))))
 
 (defun dcl_write (fname / wPath ofile)
   
   (if (not (findfile fname))
     
     (if (setq wPath (findfile "ACAD.PAT"))
       (progn
         (setq wPath (vl-filename-directory wPath))
         
         (or (eq "\" (substr wPath (strlen wPath)))
             (setq wPath (strcat wPath "\")))
         
         (setq ofile (open (strcat wPath fname) "w"))
         
         (foreach str '("demo : dialog   { label = "Select Function"; spacer;"
                        "     : list_box { key = "lst"; } spacer;  ok_cancel; }" )
           
           (write-line str ofile)) (setq ofile (close ofile)) t)
       
       nil)
     
     t))
 (defun Make_list (key lst)
   (start_list key)
   (mapcar (function add_list) lst) (end_list))
 (cond (  (not (dcl_write "LMAC_demo.dcl"))
          (princ "\n** DCL could not be written **"))
       (  (<= (setq dc (load_dialog "LMAC_demo.dcl")) 0)
          (princ "\n** DCL File not Found **"))
       (  (not (new_dialog "demo" dc))
          (princ "\** Dialog Could not be Loaded **"))
       (t (Make_list "lst" (mapcar (function car) data))
          (setq ptr (set_tile "lst" "0"))
          (action_tile "lst" "(setq ptr $value)")
          (setq flag (start_dialog) dc (unload_dialog dc))
          (if (= 1 flag) (eval (cdr (nth (atoi ptr) data))))))
 (princ))

Local Functions
(cond
 ((= FUNCT 0)(DEMO1))
 ((= FUNCT 1)(DEMO2))
 ((= FUNCT 2)(DEMO3))) 
or
Global Functions
(cond
 ((= FUNCT 0)(C:DEMO1))
 ((= FUNCT 1)(C:DEMO2))
 ((= FUNCT 2)(C:DEMO3)))