[编程交流] 简单下拉菜单。。。帮助

  ;///////////// 05-01-2010 \\\\\\\\\\\\\\\\\
;//////////// Drawing Generator\\\\\\\\\\\\\\\\\
;;AUTOLISP CODING STARTS HERE   *** ASSOCIATED DCL FILE <DG.DCL****
(defun c:dg (/                Dcl_Id%          NAMES$           NAMESQ$
            )
 (setq DGVersion "DG v1.0") ; this is the DCL title string
(vl-cmdf "-layer" "ON" "*" "") ; turn on all layers to begin
 
            
 ;;  This is the Master List for DCL variables
 ;;    VarName      TileName   DefValue   TileType    listAssoc  
 (setq MasterList
    '( (Q1          "Q1"          0        0       NAMESQ)
       (Q2          "Q2"          0        0       NAMESQ)
       (Q3          "Q3"          0        0       NAMESQ)
))
;;  TileType 0 = PopUp_List
;;           1 = Toggle
            
            
 ;;
 ;;          *********************    Start of get_data function    ***********************
 ;;  
 ;; Compressor Count, Subcooling & Liquid Injection Options
 ;;
 (defun get_data ()
   (foreach itm MasterList
     (set (car itm) (get_tile (eval (cadr itm))))
   )
)                           ; defun get_data
 (defun Q(cnt)
   (setq cnt (atoi cnt))
     (mode_tile "Q1"        (if (> cnt 0) 0 1))
     (mode_tile "Q2"        (if (> cnt 0) 0 1))
     (mode_tile "Q3"        (if (> cnt 0) 0 1))
  
 )
 ;;          /////////////////////     End  of get_data function      \\\\\\\\\\\\\\\\\\\\\\\\\ 
 ;;          *********************    Start of Pull Down List Define  Section    ***********************
 (setq NAMESQ
        '("None"                  "One"        "Two"
          "Three"     "Four"      "Five"))
                             
 ;;
 ;;          /////////////////////     End  of Pull Down List Define  Section      \\\\\\\\\\\\\\\\\\\\\\\\\ 
 ;;
 ;;  Locate DCL file & prepare to start it
 (setq dcl_id (load_dialog "DG.dcl")) ;load dialog
 (if (not (new_dialog "DG" dcl_id)) ;test for dialog
   (exit)                    ;exit if no dialog
 )                           ;End if
 ;;
 ;;          *********************    Start of List Box Build Section    ***********************
 ;;
 (defun AddList (tile lst)
   (start_list tile)
   (mapcar 'add_list lst)
   (end_list)
 )
 (foreach itm MasterList
   (if (zerop (cadddr itm))
     (AddList (eval (cadr itm)) (eval (last itm))) ; debug CAB
   )
 )
 ;;===============================================================
 (cond
   (*DGGlobal*  ;  recover last used settings
     (foreach itm MasterList
       (if (setq value (cdr (assoc (car itm) *DGGlobal*)))
          (set (car itm) value)
       )
     )
   )
   (t  ;  set to default values
   (foreach itm MasterList
     (set (car itm) (itoa(caddr itm)))
   )
  )
 )
   
 (Q Q1)
;;;  (CompQtyS compqty2)
 ;;          /////////////////////     End  of List Box Build  Section      \\\\\\\\\\\\\\\\\\\\\\\\\
 ;;  Set all tiles
 (foreach itm MasterList
   (set_tile (cadr itm) (eval (car itm)))
 )
 (set_tile "title" DGVersion) ; add title to DCL
 
 ;;          /////////////////////     Begin Button Actions Definitions      \\\\\\\\\\\\\\\\\\\\\\\\\ 
 (action_tile "Q1" "(Q $value)")
;;;  (action_tile "Q2" "(CompQtyS $value)")
 (action_tile "help" "(help "acet-help")")
 (action_tile "accept" "(get_data) (done_dialog) (setq userclick T)") ;action tile
 (action_tile "cancel" "(done_dialog) (setq userclick nil)")          ;close dialog
 (start_dialog)
 (unload_dialog dcl_id)
 ;;          /////////////////////     End of Button Actions Definitions      \\\\\\\\\\\\\\\\\\\\\\\\\ 
 ;; **************************************************************************************
 ;; This Starts the Program to start processing the Data Selected from the Dialog Screen
 (if userclick
   (progn
     (setq Qcnt1 (atoi Q1))
;;;            compcnt2 (atoi Q2))
     
     ;;  set Global var  & set local vars to strings from list
     (setq *DGGlobal* nil)
     (foreach itm MasterList
       (setq *DGGlobal* (cons (cons (car itm) (eval(car itm)))  *DGGlobal*))
       (set (car itm) (nth (atoi (eval(car itm))) (eval (last itm))))
     )
 ;;          /////////////////////     End Read & Set of List Varibles  Section      \\\\\\\\\\\\\\\\\\\\\\\\\    
 ;;          /////////////////////     Start command print of Varible  Section      \\\\\\\\\\\\\\\\\\\\\\\\\    
 ;;see other file named "princ.lsp"
 ;;          /////////////////////     End of command print of Varible  Section      \\\\\\\\\\\\\\\\\\\\\\\\\    
 ;; This Ends the  Program to start processing the Data Selected from the Dialog Screen
 ;; ///////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
 ;;
 (setvar "CMDECHO" 0)        ; Set Autocad setvar " CMDECHO" to 0 to stop process of info scrolling in Autocad, Makes it run faster
 (command "_.undo" "_begin")
 ;;  Set layers & catch any errors
 (defun SetLayer (status layname / err )
   (setq err (vl-catch-all-apply 'vl-cmdf (list "-layer"  status layname "")))
   (if (vl-catch-all-error-p err) ; yes, error
     (princ (strcat "\n" (vl-catch-all-error-message err) "\n" layname))
   )
 )
;; ///////////////// Begin Layer Controls /////////////////
   
 (cond
   ((= Q1 "None")
    (SetLayer "off" "test*") ; All off
;;;     (SetLayer "OFF" "test-[12345]") ;[...] Matches any one of the characters enclosed     
   
   )
   ((= Q1 "One")
    (SetLayer "ON" "test")
   )    
   ((= Q1 "Two")
    (SetLayer "on" "test2")
   )    
   ((= Q1 "Three")
    (SetLayer "on" "test3")
   )    
   ((= Q1 "Four")     
    (SetLayer "on" "test4")
   )    
   ((= Q1 "Five")
    (SetLayer "ON" "test5")
   )
 )    
     (command "_.undo" "_end")
   )
 )                           ; endif userclick
;;
;;This is where you need to Re-Set the " setvar " or Autocad will continue to run under those settings.
;;
;; Here the ' setvar "CMDECHO" ' is set back to a Value of  " 1 " so the AutoCad command prompt will display commands.
;; This must be done before the program ends and clears itself.
;;
 (setq Layers nil
       MasterList nil)
 (setvar "CMDECHO" 1)
 (princ "\nType "DG" to start ")
)
(princ)
;;
;;AUTOLISP CODING ENDS HERE
;;          >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>                   AUTOLISP CODING ENDS HERE                         <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<